用FSO<%
'创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject("Scripting.xscSystemObject")
'创建一个Folder对象
Set MyFolder=MyFileObject.GetFolder("E:\yubo")
'循环显示其中文件
For Each thing in MyFolder.Files
Response.Write("<p>"&thing)
Next
FOr each things in MyFolder.SubFolders
Response.Write("<p>"&things)
next
%>
'创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject("Scripting.xscSystemObject")
'创建一个Folder对象
Set MyFolder=MyFileObject.GetFolder("E:\yubo")
'循环显示其中文件
For Each thing in MyFolder.Files
Response.Write("<p>"&thing)
Next
FOr each things in MyFolder.SubFolders
Response.Write("<p>"&things)
next
%>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货