f，f。

host，--- % const_domain_name为域名最后不要加斜杠 const const_domain_name= % style b，s Setfso=CreateObject( Scripting.FileSystemObject ) Setf=fso.GetFolder(display_cur_path) setfs=f.SubFolders Setfc=f.Files ForEachfss in fs dimfolder_name folder_name=fss.name % ahref= folder_list.asp?act=list_curcur_path=%=fss% spanstyle= font-family:wingdings 0/span%=folder_name%/abr % Next % % ForEachf1 in fc dimfilename filename=f1.name % ahref= %=p2v_path(f1)% spanstyle= font-family:wingdings2 //span%=filename%/abr % Next setfso=nothing onerror goto 0 endsub ---------------------------------------------得到上级目录的路径 function get_parent_folder() onerrorresumenext str=display_cur_path str_find= \ str_int=InStrRev(str，f1，s Setfso=CreateObject( Scripting.FileSystemObject ) Setf=fso.GetFolder(request( cur_path )) setfs=f.SubFolders Setfc=f.Files ForEachfss in fs dimfolder_name folder_name=fss.name % ahref= folder_list.asp?act=list_curcur_path=%=fss% spanstyle= font-family:wingdings 0/span%=folder_name%/abr % Next % % ForEachf1 in fc dimfilename filename=f1.name % ahref= %=p2v_path(f1)% spanstyle= font-family:wingdings2 //span%=filename%/abr % Next setfso=nothing endsub % % ------------------------------------------------显示上级目录的子目录和子文件 sublist_parent onerrorresumenext Dimfso，fc，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 setfso=nothing end function submain % ahref= folder_list.asp?act=list_parentcur_path=%=get_parent_folder% 向上/abahref= javascript:void(null) %=display_cur_path%/a/Bp % select case request( act ) case list_parent list_parent case list_cur list_cur case else list endselect endsub 。

fc， !---将此文件存为folder_list.asp看看效果就知道了加上权限就可以方便自己了，f1，str_int) err.clear end function -----------------------------------------------将文件路径转为www发布的路径这样就可以下载了 function p2v_path(p_path) p_path为硬盘上的物理路径 dimhost host=lcase(server.MapPath( \ )) p_path=lcase(p_path) p2v_path=replace(p_path，a{font-size:9pt;line-height:150%;text-decoration:none;color:#0000cc;} span{font-size:12pt;} /style % ------------------------------------------------显示当前目录下的子目录和文件 sublist Dimfso，fc，str_find)-1得到上一级目录的路径 get_parent_folder=mid(str，f，1，img，s Setfso=CreateObject( Scripting.FileSystemObject ) Setf=fso.GetFolder(server.MapPath( . )) setfs=f.SubFolders Setfc=f.Files ForEachfss in fs dimfolder_name folder_name=fss.name % ahref= folder_list.asp?act=list_curcur_path=%=fss% spanstyle= font-family:wingdings 0/span%=folder_name%/abr % Next % % ForEachf1 in fc dimfilename filename=f1.name % ahref= %=p2v_path(f1)% spanstyle= font-family:wingdings2 //span%=filename%/abr % Next setfso=nothing endsub % % ------------------------------------------------显示指定路径下的目录和文件 sublist_cur Dimfso，f1，。