LINE9的目录浏览源程序
网络编程 2021-07-05 10:58www.168986.cn编程入门
代码如下:
<%
' make sure you have the 6 dir_*.gif files!
' yes, you can copy ours if ya want too.. :)
' http://line9./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"<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")&" "&_
"<a href=""myFile.asp?Tek9="&strPath&objItem.Name&"/"">"&_
""&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>"
%>
上一篇:asp:生成静态页面函数
下一篇:asp最常用的分页函数
编程语言
- 机械手焊接机器人编程 机械手焊接设备编程
- vb数据库编程实例,vb做数据库
- tiobe世界编程语言排行榜,全球编程语言排行
- 成都java编程培训 成都it编程培训中心
- 编程基础培训,编程基础知识培训
- flash游戏编程基础教程,flash游戏开发教程
- 不会英语能学编程吗 不会英语可以学程序员吗
- 爱心代码编程C语言 爱心代码编程c语言公式
- c语言编程学习入门 c语言编程快速入门
- 西门子plc编程培训 西门子plc编程培训班
- 哪里可以学编程 台州哪里可以学编程
- 少儿编程哪个好 少儿编程哪个品牌好
- 编程是什么意思,图形编程是什么意思
- c语言编程软件下载,c语言编程软件在哪下载
- java编程软件下载,java编程下载手机版
- ug编程培训学校,ug编程培训教程