类似于iis浏览的功能

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. %>