- <!---将此文件存为folder_list.asp看看效果就知道了加上权限就可以方便自己了,--->
- <%
- 'const_domain_name为域名最后不要加斜杠
- const const_domain_name="http://localhost"
- %>
- <style>
- b,img,a{font-size:9pt;line-height:150%;text-decoration:none;color:#0000cc;}
- span{font-size:12pt;}
- </style>
- <%
- '------------------------------------------------显示当前目录下的子目录和文件
- sub list
- Dim fso, f, f1, fc, s
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set f = fso.GetFolder(server.MapPath("."))
- set fs=f.SubFolders
- Set fc =f.Files
- For Each fss in fs
- dim folder_name
- folder_name=fss.name
- %>
- <a href="folder_list.asp?act=list_cur&cur_path=<%=fss%>"><span style="font-family:wingdings">0</span><%=folder_name%></a><br>
- <%
- Next
- %>
- <%
- For Each f1 in fc
- dim filename
- filename=f1.name
- %>
- <a href="<%=p2v_path(f1)%>"><span style="font-family:wingdings 2">/</span><%=filename%></a><br>
- <%
- Next
- set fso=nothing
- end sub
- %>
- <%
- '------------------------------------------------显示指定路径下的目录和文件
- sub list_cur
- Dim fso, f, f1, fc, s
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set f = fso.GetFolder(request("cur_path"))
- set fs=f.SubFolders
- Set fc =f.Files
- For Each fss in fs
- dim folder_name
- folder_name=fss.name
- %>
- <a href="folder_list.asp?act=list_cur&cur_path=<%=fss%>"><span style="font-family:wingdings">0</span><%=folder_name%></a><br>
- <%
- Next
- %>
- <%
- For Each f1 in fc
- dim filename
- filename=f1.name
- %>
- <a href="<%=p2v_path(f1)%>"><span style="font-family:wingdings 2">/</span><%=filename%></a><br>
- <%
- Next
- set fso=nothing
- end sub
- %>
- <%
- '------------------------------------------------显示上级目录的子目录和子文件
- sub list_parent
- on error resume next
- Dim fso, f, f1, fc, s
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set f = fso.GetFolder(display_cur_path)
- set fs=f.SubFolders
- Set fc =f.Files
- For Each fss in fs
- dim folder_name
- folder_name=fss.name
- %>
- <a href="folder_list.asp?act=list_cur&cur_path=<%=fss%>"><span style="font-family:wingdings">0</span><%=folder_name%></a><br>
- <%
- Next
- %>
- <%
- For Each f1 in fc
- dim filename
- filename=f1.name
- %>
- <a href="<%=p2v_path(f1)%>"><span style="font-family:wingdings 2">/</span><%=filename%></a><br>
- <%
- Next
- set fso=nothing
- on error goto 0
- end sub
- '---------------------------------------------得到上级目录的路径
- function get_parent_folder()
- on error resume next
- str=display_cur_path
- str_find="\"
- str_int=InStrRev (str,str_find)-1 '得到上一级目录的路径
- get_parent_folder=mid(str,1,str_int)
- err.clear
- end function
- '-----------------------------------------------将文件路径转为www发布的路径这样就可以下载了
- function p2v_path(p_path)
- 'p_path为硬盘上的物理路径
- dim host
- host=lcase(server.MapPath("\"))
- p_path=lcase(p_path)
- p2v_path=replace(p_path,host,const_domain_name)
- end function
- '-----------------------------------------------显示当前所在的路径
- function display_cur_path()
- cur_path=request("cur_path")
- if cur_path="" then
- display_cur_path=server.MapPath(".")
- else
- display_cur_path=cur_path
- end if
- set fso=nothing
- end function
- sub main
- %>
- <a href="folder_list.asp?act=list_parent&cur_path=<%=get_parent_folder%>">向上</a> <b><a href="javascript:void(null)"><%=display_cur_path%></a></B><p>
- <%
- select case request("act")
- case "list_parent"
- list_parent
- case "list_cur"
- list_cur
- case else
- list
- end select
- end sub
- main
- %>
类似于iis浏览的功能
2019-11-01 12:44asp教程网 ASP教程
类似于iis浏览的功能,将此文件存为folder_list.asp看看效果就知道了加上权限就可以方便自己了
延伸 · 阅读
- 2022-03-02windows server 2019开启iis服务器+tp5.1的完美配置运行
- 2022-02-21C#部署数据库及IIS站点
- 2022-02-20Windows Server 2012 安装配置IIS图文教程
- 2022-02-13Windows Sever IIS定时重启工具 v1.0绿色版
- 2022-01-04IIS下调用证书出现异常的解决方法 (C#)
- 2021-12-16iis与apache共用80端口配置方法
精彩推荐
- ASP教程
ASP GetRef 函数指针试探
近日在学习C++,看到函数指针,由于之前一直搞ASP,所以想ASP里面是否也有这个函数指针的东西,百度了一下,没有太多关于此方面的介绍,于是翻了翻...
- ASP教程
asp读取远程文件并保存到本地代码
asp读取远程文件并保存到本地代码 ...
- ASP教程
ASP 判断是否有中文的代码
其实我上一篇写的js判断中文才是最好的方法,这个是asp的一种,只要是双字节都是当作中文判断...
- ASP教程
字符批量替换程序asp服务器版
字符批量替换程序asp服务器版,安装方法:直接把replace.asp文件放在任意的支持asp+FSO的环境中 ...
- ASP教程
asp中一段防SQL注入的通用脚本
asp中一段防SQL注入的通用脚本...
- ASP教程
ASP常用函数:HTMLDecode
ASP常用函数:HTMLDecode ...
- ASP教程
ASP实现文件上传的方法
在基于浏览器/服务器的应用环境中,在浏览器中上传各种类型的文件一直是困扰用户文件管理应用的难题之一。常用的实现方法是利用在RFC1867中引入的一...
- ASP教程
asp删除mssql数据库中没有记录的图片代码
asp删除没有记录的图片需要文件夹(存放图片的文件夹)中的每个图片和数据库中的所有记录进行比较...