类似于iis浏览的功能

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

%>