LINE9的目录浏览源程序

【 tulaoshi.com - Web开发 】

代码如下：

%
' make sure you have the 6 dir_*.gif files!
' yes, you can copy ours if ya want too.. :)
' http://line9.com/img/dir_dir.gif .. etc.
Function ShowImageForType(strName)
strTemp = strName
If strTemp "dir" Then
strTemp = LCase(Right(strTemp, Len(strTemp) - InStrRev(strTemp, ".", -1, 1)))
End If
Select Case strTemp
Case "dir"
strTemp = "dir"
Case "asp"
strTemp = "asp"
Case "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"
Case Else
strTemp = "misc"
End Select
strTemp = "img src=""img/dir_"&strTemp&".gif"" width=16 height=16 border=0"
ShowImageForType = strTemp
End Function
Tek9 = Request.QueryString("Tek9")
If Tek9 = "" Then strPath = "myDirectory/" Else strPath = Tek9
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
Response.Write"bView our files and folders here:/bbr"&_
"table border=0trtd colspan=2"&_
"img src=""img/dir_dir_open.gif"" width=16 height=13 border=0 font face=Arial
size=2b"&strPath&"/b/font/td/tr"
For Each objItem In objFolder.SubFolders
If InStr(1, objItem, "_vti", 1) = 0 Then
Response.Write"trtdfont face=Arial size=2 "&ShowImageForType("dir")&" "&_
"a href=""myFile.asp?Tek9="&strPath&objItem.Name&"/"""&_
""&objItem.Name&"/a/font/tdtd /td/tr"
End If
Next
For Each objItem In objFolder.Files
Response.Write"trtdfont face=Arial size=2"&_
" "&ShowImageForType(objItem.Name)&" "&_
"a href="""&strPath&objItem.Name&""""&objItem.Name&"/a/font/td"&_
"td align=rightfont face=Arial size=2"&objItem.Size&"/font/td/tr"
Next
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
Response.Write"/table"
%