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 = 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>"
%>

赞 (0)

相关推荐

  • 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(Rig

  • htaccess 防盗链，防止目录浏览等10大技巧

    1. 反盗链 那些盗用了你的内容,还不愿意自己存储图片的网站是无耻的.你可以通过以下配置来放置别人盗用你的图片: 复制代码 代码如下: RewriteBase / RewriteCond %{HTTP_REFERER} !^$ RewriteCond %{HTTP_REFERER} !^http://(www.)?yoursite.com/.*$ [NC] RewriteRule .(gif|jpg|swf|flv|png)$ /feed/ [R=302,L] 2. 防止目录浏览 有时候目录浏览

  • 在Nginx浏览器中打开目录浏览功能

    在nginx中不像apache默认是打开目录浏览功能的,在nignx中目录浏览功能默认是关闭了,下面我来介绍在nginx中实现目录浏览功能的配置方法. 打开nginx.conf文件,在location server 或 http段中加入 autoindex on; 另外两个参数最好也加上去: autoindex_exact_size off; 默认为on,显示出文件的确切大小,单位是bytes. 改为off后,显示出文件的大概大小,单位是kB或者MB或者GB autoindex_localtim

  • 启用Nginx目录浏览功能的方法

    启用Nginx目录浏览功能的方法

    今天工作需要,要给客户提供一个patch的下载地址,于是想用nginx的目录浏览功能来做,需要让客户看到指定一个目录下的文件列表,然后让他自己来选择该下载那个文件: 我们都知道在apache下可以配置访问web服务器的某个路径时,自动显示其目录下面的文件列表的,其实Nginx一点也不比apache弱,它当然也可以实现这个功能,而且还非常容易和简单:主要用到autoindex 这个参数来开启,其配置如下: 复制代码 代码如下: location / {           root /data/w

  • PHP开启目录引索+fancyindex漂亮目录浏览带搜索功能

    PHP开启目录引索 一. 前言 不知为何对nginx情有独钟, 最近练习php, 为了方便写代码, 便想要开启nginx的目录索引功能, 显然不如Apache开启的方便, 几次尝试都崩了... 我这个小白确实有点看不懂nginx的配置文件. 不过最后还是成功了, 记录一下, 万一哪天忘了, 回来看看. 我们都知道在apache下可以配置访问web服务器的某个路径时,自动显示其目录下面的文件列表的,其实Nginx一点也不比apache弱,它当然也可以实现这个功能,而且还非常容易和简单:(嗯, 确实

  • 详解fedora 开启 apache 并 开启目录浏览模式

    在内网中 暂时需要一台 文件 服务器,所以准备安装一台 http服务器并开启目录访问权限.这次使用 apache 在 fedora 28 机器上: 因为 fedora 28 已经包含 httpd 软件,使用systemctl start httpd 就能进行启动. 启动时 默认开启 目录访问权限,但是首次访问网站根目录的时候,会显示test page. 进入如下文件夹: [root@dhcp-65-15 conf.d]# pwd /etc/httpd/conf.d [root@dhcp-65-1

  • JQuery AJAX实现目录浏览与编辑的代码

    JQuery AJAX实现目录浏览与编辑的代码

    采用jquery实现的,写了一段时间搁下了,这会才拿起来写完剩下的部分,只做实现没考虑很多,完善慢慢来吧 目录下的x文件夹为测试文件夹,test_text.asp为代码编辑的测试文件 当然需要在IIS中运行,具体的看代码! 截图: 打包下载 http://xiazai.jb51.net/200810/yuanma/AJAXDirectory.rar

  • 关闭Apache的目录浏览功能的方法

    修改配置文件/etc/httpd/conf/httpd.conf,把: 引用 Options Indexes FollowSymLinks 改为: 引用 Options -Indexes FollowSymLinks 重启httpd服务即可,这样可以把所有网站的Indexes选项都取消.

  • 禁止apache显示目录索引的常见方法(apache禁止列目录)

    禁止Apache显示目录索引,禁止Apache显示目录结构列表,禁止Apache浏览目录,这是网上提问比较多的,其实都是一个意思.下面说下禁止禁止Apache显示目录索引的常见的3种方法.要实现禁止Apache显示目录索引,只需将 Option 中的 Indexes 去掉即可. 1)修改目录配置: 复制代码 代码如下: <Directory "D:/Apache/blog.phpha.com">Options Indexes FollowSymLinks # 修改为: Op

  • 让apache显示目录列表的配置方法

    1.apache中显示目录列表 在http.conf中加入如下代码(如有虚拟主机配置,加在虚拟主机配置段内),并把主目录内的index.pho,index.html,index.htm文件删除 复制代码 代码如下: Alias /download "/download"  <Directory "/download">    Options Indexes    Order allow,deny    IndexOptions Charset=UTF-8

随机推荐