LINE9的目录浏览源程序

复制代码代码如下:<%' 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 = strNameIf strTemp <> "dir" ThenstrTemp = LCase(Right(strTemp, Len(strTemp) - InStrRev(strTemp, ".", -1, 1)))End IfSelect Case strTempCase "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 ElsestrTemp = "misc"End SelectstrTemp = "<img src=""img/dir_"&strTemp&".gif"" width=16 height=16 border=0>"ShowImageForType = strTempEnd FunctionTek9 = Request.QueryString("Tek9")If Tek9 = "" Then strPath = "myDirectory/" Else strPath = Tek9Set objFSO = Server.CreateObject("Scripting.FileSystemObject")Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))Response.Write"View our files and folders here: "&_"<table border=0><tr><td colspan=2>"&_"<img src=""img/dir_dir_open.gif"" width=16 height=13 border=0> "&strPath&"</td></tr>"For Each objItem In objFolder.SubFoldersIf InStr(1, objItem, "_vti", 1) = 0 ThenResponse.Write"<tr><td> "&ShowImageForType("dir")&" "&_"<a href=""myFile.asp?Tek9="&strPath&objItem.Name&"/"">"&_""&objItem.Name&"</a></td><td> </td></tr>"End IfNextFor Each objItem In objFolder.FilesResponse.Write"<tr><td>"&_" "&ShowImageForType(objItem.Name)&" "&_"<a href="""&strPath&objItem.Name&""">"&objItem.Name&"</a></td>"&_"<td align=right>"&objItem.Size&"</td></tr>"NextSet objItem = NothingSet objFolder = NothingSet objFSO = NothingResponse.Write"</table>"%>

　　推荐阅读

　　ASP编程实用20例

1.如何用Asp判断你的网站的虚拟物理路径　答：使用Mappath方法 p align=center font size=4 face=Arial b The Physical path to this virtual website is b font font color=#FF0000 size=6 face=Ar>>>详细阅读

本文标题：LINE9的目录浏览源程序

地址：http://www.17bianji.com/kaifa2/ASP/33207.html

1/2 1