复制代码代码如下:
<%
«Убедитесь, что у вас есть 6 DIR _*. FIL -файлы!
«Да, вы можете скопировать наши, если вы тоже хотите .. :)
'http://line9.com/img/dir_dir.gif .. и т. д.
Функция ShowimageFortype (StrName)
strtemp = strname
Если Strtemp <> "Dir", тогда
strtemp = lcase (справа (Strtemp, Len (Strtemp) - Instrrev (Strtemp, ".", -1, 1)))))
Конец, если
Выберите Case Strtemp
Дело "Dir"
strtemp = "dir"
Случай "asp"
strtemp = "asp"
Дело "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"
Случай еще
strtemp = "Разное"
Конец выбора
strtemp = "<img src =" "img/dir _" & strtemp & ". gif" "ширина = 16 высот = 16 граница = 0>"
ShowiMageFortPe = strtemp
Конечная функция
Tek9 = request.querystring ("tek9")
Если tek9 = "" then strpath = "mydirectory/" else strpath = tek9
Установить objfso = server.createObject ("scripting.filesystemobject")
Установить objfolder = objfso.getfolder (server.mappath (strpath))
Response.write "<b> Посмотреть наши файлы и папки здесь: </b> <br>" & _
"<таблица границы = 0> <tr> <td colspan = 2>" & _
"<img src =" "img/dir_dir_open.gif" "ширина = 16 высот = 13 граница = 0> <font face = arial
size = 2>> <b> "& strpath &" </b> </font> </td> </tr> "
Для каждого обаджитем в objfolder.subfolders
Если instr (1, objitem, "_vti", 1) = 0, тогда
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> "
Конец, если
Следующий
Для каждого обаджитем в 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 = справа> <font face = arial size = 2>" & objitem.size & "</font> </td> </tr>"
Следующий
Установить objitem = ничего
Установить objfolder = ничего
Установить objfso = ничего
Response.write "</table>"
%>