复制代码代码如下:
<%
«Assurez-vous d'avoir les 6 fichiers DIR _ *. GIF!
'Oui, vous pouvez copier le nôtre si vous voulez aussi .. :)
'http://line9.com/img/dir_dir.gif .. etc.
Fonction showImageForty (strname)
strTEmp = strname
Si strtemp <> "dir" alors
StrTemp = LCase (à droite (StrTemp, Len (StrTemp) - Instrev (StrTemp, ".", -1, 1)))
Terminer si
Sélectionnez Case StrTemp
Cas "dir"
strTEmp = "dir"
Cas "asp"
strTemp = "asp"
Cas "htm", "html"
strTEmp = "htm"
Cas "gif", "jpg", "jpeg", "png", "tif", "cpt", "bmp", "pcx", "tga", "psd", "eps"
strTemp = "img"
Case "txt", "texte", "dat", "bat", "sys"
strTemp = "txt"
Cas d'autre
strTEmp = "disc"
Fin de sélection
strTemp = "<img src =" "img / dir _" & strTEmp & ". gif" "width = 16 height = 16 border = 0>"
ShowImageFortype = strTemp
Fonction finale
Tek9 = request.Querystring ("tek9")
Si tek9 = "" alors strpath = "mydirectory /" else strpath = tek9
Set objfso = server.createObject ("scripting.fileSystemObject")
Set objfolder = objfso.getfolder (server.mappath (strpath))
Response.Write "<b> Affichez nos fichiers et dossiers ici: </b> <br>" & _
"<table border = 0> <tr> <td Colspan = 2>" & _
"<img src =" "img / dir_dir_open.gif" "width = 16 height = 13 border = 0> <font face = arial
size = 2> <b> "& strpath &" </b> </font> </td> </tr> "
Pour chaque objitem dans objfolder.subbolders
Si instr (1, objitem, "_vti", 1) = 0 alors
Réponse.write "<tr> <td> <font face = arial size = 2>" & showImageForty ("dir") & "" & _
"<a href =" "myfile.asp? tek9 =" & strpath & objitem.name & "/" ">" & _
"" & objitem.name & "</a> </font> </td> <td> </td> </tr>"
Terminer si
Suivant
Pour chaque objitem dans objfolder.files
Réponse.write "<tr> <td> <font face = arial size = 2>" & _
"" & ShowImageFortype (objitem.name) & "" & _
"<a href =" "" & strpath & objitem.name & "" ">" & objitem.name & "</a> </font> </td>" & _
"<td align = droite> <font face = arial size = 2>" & objitem.size & "</font> </td> </tr>"
Suivant
Définir objitem = rien
Définir objfolder = rien
Définir objfso = rien
Réponse.WRITE "</ Table>"
%>