Søg
Avatar billede error404 Nybegynder
11. april 2001 - 15:31 Der er 6 kommentarer og
1 løsning

Vis hvad der ligger på serveren...

Jeg skal bruge et ASP script der viser hvad der ligger på min server.. altså.. viser all filer, dirs, underdirs, filer i underdirs... altså ALT hvad der ligger på min server..

/Error404
Avatar billede no_doubt Nybegynder
11. april 2001 - 15:31 #1
ligesom : www.zequenze.dk/eksperten/ ?
Avatar billede no_doubt Nybegynder
11. april 2001 - 15:32 #2
Køre du iss eller hvad `?
Avatar billede no_doubt Nybegynder
11. april 2001 - 15:33 #3
Jeg mener ikke du kan få vist underdirs hvis du er på informations server. (kun filer)
Avatar billede no_doubt Nybegynder
11. april 2001 - 15:34 #4
Eller _ http://www.netcoders.dk/sources.asp?mode=view_source&id=47&tech_id=1
Avatar billede bjarke-b Nybegynder
11. april 2001 - 15:35 #5
<%
                strExts = \"as_,zip,ace,jpg,gif,bmp,png,txt\"
                arrExts = Split(strExts, \",\")

                Set fsoSystem = CreateObject(\"Scripting.FileSystemObject\")
                Set fsoFolders = fsoSystem.GetFolder(Server.MapPath(\".\"))
                set fso = fsosystem.Drives
               
                For intIndex = 0 To UBound(arrExts)
                    For Each fFolder In fsoFolders.Files
                        strName = LCase(fFolder.Name)
                        intSize = FormatNumber(fFolder.Size, 0, 0, , True)

                        If LCase(arrExts(intIndex)) = LCase(Right(strName, 3)) Then
                            Select Case LCase(Right(strName, 3))
                                Case \"asp\"
                                Case \"jpg\", \"gif\", \"bmp\", \"png\": Response.Write \"<a href=\'\" & strName & \"\'><img src=\'gfx/img.gif\' border=0> \" & strName & \" (\" & intSize & \" bytes)</a><br>\"
                                Case \"zip\", \"ace\": Response.Write \"<a href=\'\" & strName & \"\'><img src=\'gfx/com.gif\' border=0> \" & strName & \" (\" & intSize & \" bytes)</a><br>\"
                                Case \"as_\":  Response.Write \"<a href=\'\" & strName & \"\'><img src=\'gfx/asp.gif\' border=0> \" & strName & \" (\" & intSize & \" bytes)</a><br>\"
                                Case \"txt\":  Response.Write \"<a href=\'\" & strName & \"\'><img src=\'gfx/txt.gif\' border=0> \" & strName & \" (\" & intSize & \" bytes)</a><br>\"
                                Case Else:    Response.Write \"<a href=\'\" & strName & \"\'><img src=\'gfx/no.gif\' border=0> \" & strName & \" (\" & intSize & \" bytes)</a><br>\"
                            End Select
                        End If
                    Next
                Next

                Set fsoFolders = Nothing
                Set fsoSystem = Nothing
%>

taget fra http://www.tdaugaard.dk/x/default.as_ (husk _)
Avatar billede no_doubt Nybegynder
11. april 2001 - 15:35 #6
eller : http://www.netcoders.dk/sources.asp?mode=view_source&id=1097&tech_id=1
Avatar billede bjarke-b Nybegynder
13. april 2001 - 11:42 #7
Skal vi til og lukke ?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 18:58 Mellemled til forsendelse fra Tyskland Af nu_igen i E-handel
I går 12:44 Lenovo ThinkPad X1 Yoga Af mort1 i PC
03/0710:40 Dagens vits fra AI Af nu_igen i Andet software
03/0710:28 Stifinder gemmer de sidste 20 åbnede dokumenter, nu er de pludselig væk. Af Uvanga i Windows
01/0715:18 Min PC kan nu ikke se den ekstra skærm Af KurtG i Windows
White papers
Flere white papers »