类似于iis浏览的功能

小蚂蚁

类似于iis浏览的功能，将此文件存为folder_list.asp看看效果就知道了加上权限就可以方便自己了

<!---将此文件存为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  
%>