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

　　推荐阅读

　　三种禁用FileSystemObject组件的方法

我整理了一下，本来只找到两种方法，后来被某人一刺激，硬是想到第三种不为人所知的方法，呵呵，也不知道是不是这样的。第一种：用RegSrv32 /u C:WINDOWSSYSTEMscrrun.dll(win98路径)来注销该组 件。此方法过于>>>详细阅读

本文标题：类似于iis浏览的功能

地址：http://www.17bianji.com/kaifa2/ASP/32982.html

 1/2    1