复制代码代码如下:
<%
'Certifique -se de ter os 6 arquivos GIF de 6 dir _*. GIF!
'Sim, você pode copiar o nosso se quiser também .. :)
'http://line9.com/img/dir_dir.gif .. etc.
Function showImagefortype (strname)
strTemp = strname
Se strtemp <> "dir" então
strtemp = lcase (direita (strtemp, len (strtemp) - instrumv (strtemp, ".", -1, 1)))
Final se
Selecione o caso STRTEMP
Caso "dir"
strtemp = "dir"
Caso "asp"
strtemp = "asp"
Caso "htm", "html"
strtemp = "htm"
Case "gif", "jpg", "jpeg", "png", "tif", "cpt", "bmp", "pcx", "tga", "psd", "eps"
strtemp = "img"
Case "txt", "text", "dat", "bat", "sys"
strtemp = "txt"
Caso mais
strtemp = "misc"
Final Selecione
strtemp = "<img src =" "img/dir _" & strtemp & "gif" "largura = 16 altura = 16 borda = 0>"
ShowImageTorpe = strTemp
Função final
Tek9 = request.QueryString ("tek9")
Se tek9 = "" então strpath = "myDirectory/" else strpath = tek9
Set objfso = server.createObject ("scripting.filesystemoBject")
Set objFolder = objfso.getFolder (server.mappath (strpath))
Response.Write "<b> Veja nossos arquivos e pastas aqui: </b> <br>" & _
"<borda da tabela = 0> <tr> <td colspan = 2>" & _
")
tamanho = 2> <b> "& strpath &" </b> </font> </td> </tr> "
Para cada objitem em ObjFolder.SubFolders
Se Instr (1, Objitem, "_vti", 1) = 0 então
Response.Write "<tr> <td> <font face = size Arial = 2>" & ShowImageTypey ("Dir") & "" & _
"<a href =" "myfile.asp? tek9 =" & strpath & objitem.name & "/" ">" & _
"" & objitem.name & "</a> </font> </td> <td> </td> </tr>"
Final se
Próximo
Para cada objitem em ObjFolder.Files
Response.Write "<tr> <td> <font face = size Arial = 2>" & _
"" & ShowImagefortype (objitem.name) & "" & _
"<a href =" "" & strpath & objitem.name & "
"<td align = direita> <font face = size arial = 2>" & objitem.size & "</font> </td> </tr>"
Próximo
Definir objitem = nada
Definir ObjFolder = nada
Defina objfso = nada
Response.Write "</ tabela>"
%>