asp读取指定目录下的文件

asp读取指定目录下的文件,第1张

<html>

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

<%

'创建一个FileSystemObject对象的事例

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

%>


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/tougao/12037310.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-20
下一篇 2023-05-20

发表评论

登录后才能评论

评论列表(0条)

保存