asp 查看服务器文件

<%Function ListFile(fpath)’列出文件夹内所有内容函数  
Dim Shell‚Allfile‚Folder  
Set Shell =Server.CreateObject ("Shell.Application")  
Set Allfile =Shell.Namespace(fpath)  
For Each Folder in Allfile.Items  
  IF Folder.isfolder Then’对象如果是文件夹  
   Call ListFile(Folder.path) ’循环调用“列出文件夹内所有内容函数”  
   response.write Folder.path’输出文件夹路径  
   response.write "\<br>"  
  Else  
   response.write Folder.path’输出文件路径  
   response.write "<br>"  
  End if  
Next  
Set Folder=Nothing  
Set Allfile=Nothing  
Set Shell=Nothing  
End Function  
ListFile Server.mappath("./")%>  
<%response.write Server.mappath("./")%>

您的姓名： 匿名发送

电子邮件：

评论内容：
不能超过100个字符

所有留言只代表网友个人观点，不代表本站观点。
请各位遵纪守法并注意语言文明。