<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312">
<title>数据下载</title>
</head>
<body>
<p align="center"> </p>
<p align="center"> </p>
<%
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
'创建一个Folder对象
foldername=server.mappath("./1/")
Set MyFolder=MyFileObject.GetFolder(foldername)
'Set MyFolder=MyFileObject.GetFolder("d:\1")
'循环显示其中文件
For Each thing in MyFolder.Files 'MyFolder.subfolders 显示文件夹,MyFolder.Files 显示文件
'response.write "<p>"&thing
response.write ("<p align="&"center"&"><font size="&"5"&"><a href="&"/1/"&thing.name&">"&thing.name&"</a></font></p>")
Next
%>
</body>
</html>
<%set fso=Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.GetFolder(server.mappath("image"))
response.write fd.files.count
set fd=nothing
set fso=nothing
%>
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)