复制代码代码如下::
<%
„Stellen Sie sicher, dass Sie die 6 Dir _*. GIF -Dateien haben!
'Ja, du kannst unsere kopieren, wenn du es auch willst .. :)
'http://line9.com/img/dir_dir.gif .. usw.
Funktion ShowimageFortype (Strname)
Strtemp = Strname
Wenn Strtemp <> "Dir" dann
STRTemp = Lase (rechts (Strtemp, Len (Strtemp) - Instrrev (Strtemp, ".", -1, 1)))
Ende wenn
Wählen Sie Fall Strtemp
Fall "Dir"
Strtemp = "Dir"
Fall "ASP"
Strtemp = "ASP"
Fall "HTM", "HTML"
strtemp = "htm"
Fall "Gif", "JPG", "JPEG", "PNG", "TIF", "CPT", "BMP", "PCX", "TGA", "PSD", "EPS"
Strtemp = "img"
Fall "Txt", "Text", "dat", "BAT", "SYS"
strtemp = "txt"
Fall sonst
strtemp = "miscury"
Ende auswählen
strtemp = "<img src =" "img/dir _" & strtemp & ". Gif" "width = 16 Höhe = 16 Border = 0>"
ShowImageFortype = strtemp
Endfunktion
Tek9 = request.queryString ("tek9")
If tek9 = "" dann strpath = "mydirectory/" else strpath = tek9
Setzen Sie OBJFSO = Server.createObject ("Scripting.FilesSystemObject").
Setzen Sie objfolker = objfso.getFolder (server.mappath (strad))
Response.write "<b> unsere Dateien und Ordner hier anzeigen: </b> <br>" & _
"<table border = 0> <tr> <td colspan = 2>" & _
"<img src =" "img/dir_dir_open.gif" "width = 16 Höhe = 13 Border = 0> <font Face = Arial
size = 2> <b> "& strpath &" </b> </font> </td> </tr> "
Für jedes Objitem in Objfolker.Subfolders
Wenn Instrument (1, objitem, "_vti", 1) = 0 dann
Response.write "<tr> <td> <font face = arial size = 2>" & showimageForfortype ("dir") & "" & _
"<a href =" "myFile.asp? tek9 =" & strpath & objitem.name & "/" ">" & _
"" & objitem.name & "</a> </font> </td> <td> </td> </tr>"
Ende wenn
Nächste
Für jedes Objitem in Objfolder.files
Response.write "<tr> <td> <font face = arial size = 2>" & _
"" & ShowimageFortype (objitem.name) & "" & _
"<a href =" "" & strpath & objitem.name & "" ">" & objitem.name & "</a> </font> </td>" & _
"<td align = rechts> <font face = arial size = 2>" & objitem.size & "</font> </td> </tr>"
Nächste
Objitem einstellen = nichts
Setzen Sie Objfolker = nichts
Setzen Sie objfso = nichts
Antwort.Write "</table>"
%>