复制代码代码如下:
<%
'¡Asegúrese de tener los 6 archivos GIF Dir _*.
'Sí, puedes copiar el nuestro si quieres también .. :)
'http://line9.com/img/dir_dir.gif .. etc.
Función showImageFortype (strname)
strtemp = strname
Si strtemp <> "dir" entonces
strtemp = lcase (derecha (strtemp, len (strtemp) - instrrev (strtemp, ".", -1, 1)))
Final si
Seleccionar caso Strtemp
Caso "Dir"
strtemp = "dir"
Caso "ASP"
strtemp = "ASP"
Caso "htm", "html"
strtemp = "htm"
Caso "Gif", "JPG", "JPEG", "PNG", "TIF", "CPT", "BMP", "PCX", "TGA", "PSD", "EPS"
strtemp = "img"
Caso "txt", "texto", "dat", "bat", "sys"
strtemp = "txt"
Caso
strtemp = "Misc"
Final seleccionar
strtemp = "<img src =" "img/dir _" & strtemp & ". gif" "width = 16 altura = 16 borde = 0>"
ShowImageFortype = strtemp
Función final
Tek9 = request.QueryString ("Tek9")
If tek9 = "" entonces strpath = "myDirectory/" else strpath = tek9
Establecer objfso = server.createObject ("scripting.filesystemObject")
Establecer objfolder = objfso.getfolder (server.mappath (strpath))
Response.write "<b> Vea nuestros archivos y carpetas aquí: </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> "
Para cada objitem en objfolder.subfolders
Si Instr (1, objitem, "_vti", 1) = 0 entonces
Response.write "<tr> <td> <font face = arial size = 2>" & showImageFortype ("dir") & "" & _
"<a href =" "myFile.asp? Tek9 =" & strpath & objitem.name & "/" ">" & _
"" & objitem.name & "</a> </font> </td> <td> </td> </tr>"
Final si
Próximo
Para cada objitem en 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 = right> <font face = arial size = 2>" & objitem.size & "</font> </td> </tr>"
Próximo
Establecer objitem = nada
Establecer objfolder = nada
Establecer objfso = nada
Response.write "</table>"
%>