最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
LINE9的目录浏览源程序
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
' 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 = ""
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"View our files and folders here:
"&_
"
"&_ " size=2>"&strPath&" | |
"&ShowImageForType("dir")&" "&_ ""&_ ""&objItem.Name&" | |
"&_ " "&ShowImageForType(objItem.Name)&" "&_ ""&objItem.Name&" | "&_"&objItem.Size&" |
%>
-
下一个: 谈谈对于ASP+ PDC bits的经验
相关文章
- 老外编的程序(六)--目录操作 01-12
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- ajax实现城市三级联动的代码介绍 09-16