asp读取指定目录下的文件
比如我的目录下有一个名为1的文件夹有一个文件名为1.zip如何去文件夹的名字和文件的名字，并创建连接把文件发上来...
比如我的目录下有一个名为1的文件夹
有一个文件名为1.zip
如何去文件夹的名字
和文件的名字，并创建连接
把文件发上来 展开
有一个文件名为1.zip
如何去文件夹的名字
和文件的名字，并创建连接
把文件发上来 展开
展开全部
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=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>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=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>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
'创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
'创建一个Folder对象
foldername=server.mappath("./1/")
Set MyFolder=MyFileObject.GetFolder(foldername)
i=0
'循环显示其中文件夹
response.write "显示文件夹："
For Each thing in MyFolder.subfolders
Response.Write("<br>"&thing)
i=i+1
Next
response.write "<br>共有"&i&"个文件夹"
response.write "<p>显示文件名"
'循环显示其中文件
i=0
For Each thing in MyFolder.Files
Response.Write("<br>"&thing)
i=i+1
Next
response.write "<br>共有"&i&"个文件"
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
'创建一个Folder对象
foldername=server.mappath("./1/")
Set MyFolder=MyFileObject.GetFolder(foldername)
i=0
'循环显示其中文件夹
response.write "显示文件夹："
For Each thing in MyFolder.subfolders
Response.Write("<br>"&thing)
i=i+1
Next
response.write "<br>共有"&i&"个文件夹"
response.write "<p>显示文件名"
'循环显示其中文件
i=0
For Each thing in MyFolder.Files
Response.Write("<br>"&thing)
i=i+1
Next
response.write "<br>共有"&i&"个文件"
更多追问追答
追问
比如有一个服务器的账号是admin，密码是123456
我还有一个服务器是账号是apmim，密码是123456
如何让admin里面的文件显示到qpmin的index.asp文件里去
追答
你是不是在弄图片服务器？
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
asp读取目录:一般都是用的 FSO 遍历制定位置目录和文件；以下代码作为参考：
-------------------------------------------
<%
Set Fso = CreateObject("Scripting.FileSystemObject")
Set X = Fso.GetFolder(Server.mapPath("/"))
For Each F in X.Subfolders
Response.Write F.Name & "[Folder]<br>"
Next
for each F in X.files
Response.Write F.Name & "[File]<br>"
Next
%>
如果需要更强大的 跨网站 权限（同一服务器），建议参考 海洋顶端 ，可实现很多文件管理功能，如果你想跨服务器（IP，非同一服务器），那就得需要FTP权限或者对应获取类似另外服务器的文件管理权限接口（类似于另外服务上的海阳顶端 session等），可以是ajax发送，或者框架。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
