LINE9的目录浏览源程序

　　复制代码 代码如下:
<%
make sure you have the 6 dir_*.gif files!
yes, you can copy ours if ya want too.. :)

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<b>View our files and folders here:</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>
For Each objItem In objFolder.SubFolders
If InStr(1, objItem, _vti, 1) = 0 Then
Response.Write<tr><td><font face=Arial size=2> &ShowImageForType(dir)& &_
&objItem.Name&</a></font></td><td> </td></tr>
End If
Next
For Each objItem In 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>
Next
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
Response.Write</table>
%>