服务器之家

服务器之家 > 正文

类似于iis浏览的功能

时间:2019-11-01 12:44     来源/作者:asp教程网
  1. <!---将此文件存为folder_list.asp看看效果就知道了加上权限就可以方便自己了,--->  
  2. <%  
  3. 'const_domain_name为域名最后不要加斜杠  
  4. const const_domain_name="http://localhost"  
  5. %>  
  6. <style>  
  7. b,img,a{font-size:9pt;line-height:150%;text-decoration:none;color:#0000cc;}  
  8. span{font-size:12pt;}  
  9. </style>  
  10.  
  11. <%  
  12. '------------------------------------------------显示当前目录下的子目录和文件  
  13. sub list  
  14. Dim fso, f, f1, fc, s  
  15. Set fso = CreateObject("Scripting.FileSystemObject")  
  16. Set f = fso.GetFolder(server.MapPath("."))  
  17. set fs=f.SubFolders  
  18. Set fc =f.Files  
  19.  
  20. For Each fss in fs  
  21. dim folder_name  
  22. folder_name=fss.name  
  23. %>  
  24. <a href="folder_list.asp?act=list_cur&cur_path=<%=fss%>"><span style="font-family:wingdings">0</span><%=folder_name%></a><br>  
  25. <%  
  26. Next  
  27.  
  28. %>  
  29. <%  
  30. For Each f1 in fc  
  31. dim filename  
  32. filename=f1.name  
  33. %>  
  34. <a href="<%=p2v_path(f1)%>"><span style="font-family:wingdings 2">/</span><%=filename%></a><br>  
  35. <%  
  36. Next  
  37.  
  38. set fso=nothing  
  39. end sub  
  40. %>  
  41.  
  42.  
  43. <%  
  44. '------------------------------------------------显示指定路径下的目录和文件  
  45. sub list_cur  
  46. Dim fso, f, f1, fc, s  
  47. Set fso = CreateObject("Scripting.FileSystemObject")  
  48. Set f = fso.GetFolder(request("cur_path"))  
  49. set fs=f.SubFolders  
  50. Set fc =f.Files  
  51.  
  52. For Each fss in fs  
  53. dim folder_name  
  54. folder_name=fss.name  
  55. %>  
  56. <a href="folder_list.asp?act=list_cur&cur_path=<%=fss%>"><span style="font-family:wingdings">0</span><%=folder_name%></a><br>  
  57. <%  
  58. Next  
  59.  
  60. %>  
  61.  
  62.  
  63. <%  
  64. For Each f1 in fc  
  65. dim filename  
  66. filename=f1.name  
  67. %>  
  68. <a href="<%=p2v_path(f1)%>"><span style="font-family:wingdings 2">/</span><%=filename%></a><br>  
  69. <%  
  70. Next  
  71. set fso=nothing  
  72. end sub  
  73. %>  
  74.  
  75.  
  76.  
  77. <%  
  78. '------------------------------------------------显示上级目录的子目录和子文件  
  79. sub list_parent  
  80. on error resume next  
  81. Dim fso, f, f1, fc, s  
  82. Set fso = CreateObject("Scripting.FileSystemObject")  
  83. Set f = fso.GetFolder(display_cur_path)  
  84. set fs=f.SubFolders  
  85. Set fc =f.Files  
  86.  
  87. For Each fss in fs  
  88. dim folder_name  
  89. folder_name=fss.name  
  90.  
  91. %>  
  92. <a href="folder_list.asp?act=list_cur&cur_path=<%=fss%>"><span style="font-family:wingdings">0</span><%=folder_name%></a><br>  
  93. <%  
  94.  
  95. Next  
  96.  
  97. %>  
  98.  
  99. <%  
  100. For Each f1 in fc  
  101. dim filename  
  102. filename=f1.name  
  103. %>  
  104. <a href="<%=p2v_path(f1)%>"><span style="font-family:wingdings 2">/</span><%=filename%></a><br>  
  105. <%  
  106. Next  
  107. set fso=nothing  
  108. on error goto 0  
  109. end sub  
  110.  
  111. '---------------------------------------------得到上级目录的路径  
  112. function get_parent_folder()  
  113. on error resume next  
  114. str=display_cur_path  
  115. str_find="\"  
  116. str_int=InStrRev (str,str_find)-1 '得到上一级目录的路径  
  117. get_parent_folder=mid(str,1,str_int)  
  118. err.clear  
  119. end function  
  120.  
  121.  
  122. '-----------------------------------------------将文件路径转为www发布的路径这样就可以下载了  
  123. function p2v_path(p_path)  
  124. 'p_path为硬盘上的物理路径  
  125. dim host  
  126. host=lcase(server.MapPath("\"))  
  127. p_path=lcase(p_path)  
  128. p2v_path=replace(p_path,host,const_domain_name)  
  129. end function  
  130.  
  131. '-----------------------------------------------显示当前所在的路径  
  132. function display_cur_path()  
  133. cur_path=request("cur_path")  
  134. if cur_path="" then  
  135. display_cur_path=server.MapPath(".")  
  136. else  
  137. display_cur_path=cur_path  
  138. end if  
  139. set fso=nothing  
  140. end function  
  141.  
  142. sub main  
  143. %>  
  144. <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>  
  145. <%  
  146.  
  147. select case request("act")  
  148. case "list_parent"  
  149. list_parent  
  150. case "list_cur"  
  151. list_cur  
  152. case else  
  153. list  
  154. end select  
  155. end sub  
  156.  
  157.  
  158. main  
  159. %>  
标签:

相关文章

热门资讯

玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情 2019-06-22
超A是什么意思 你好a表达的是什么
超A是什么意思 你好a表达的是什么 2019-06-06
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字 2019-06-05
返回顶部