关于ASP页面显示服务器文件列表，求指点 - ASP技术论坛

楼主

已结贴√ 问题点数：20 回复次数：8

关于ASP页面显示服务器文件列表，求指点

我需要写一个ASP页面，可以实现如下功能：
可以显示服务器制定目录下的文件列表，如128.0.5.5上的D盘下的目录
又谁帮我写个，谢谢啦

搜索更多相关主题的帖子: 服务器　 ASP　文件　页面　

第 2 楼

得分:0

又没有人会啊，我急用啊！谢谢啦

第 3 楼

得分:5

网上有现成的 ASP 文件管理软件.

可以下一个就是了.有现成的,不需要自己写了.
要求在安装在服务器上,并且要有指定目录的 FSO 权限.

授人于鱼，不如授人于渔
早已停用QQ了

第 4 楼

得分:0

又客户要看这些文件，我们想把列表拿粗来，他们自己下了看，就想弄个这样的东西

第 5 楼

得分:0

！

第 6 楼

得分:5

ASP文件管理软件应该可以列出服务器文件目录啊？楼主只是想要一段代码把服务器指定位置下的所有目录都罗列出来？

第 7 楼

得分:5

如果只是罗列列表完全可以使用 FILESYSTEMOBJECT组件啊。

用 getforder()和getfile()方法之后用for each ...next 输出集合forders,files的内容就可以啊。

第 8 楼

得分:5

function abb(path)
dim FSO
dim id:id=1
set FSO=server.createobject("scripting.FileSystemObject")
 on error resume next
 set objFolders=FSO.getFolder(path)' 建立文件夹对象
 set objSubFolders=objFolders.subFolders
response.write "路径："&path&"文件 "
 for each objFile in objFolders.files
 response.write ""&id&" "
 response.write "文件名："&objFile.name&" "
 response.write "文件大小："&cstr(objFile.size/1024)&"字节 "
 id=id+1
 next
 response.write "路径："&path&"目录： "
 for each objSubFolder in objSubFolders
 response.write "文件夹："&objSubFolder.name&" "
 next
 end function
call abb("d:\")
比较简单的一个遍历！以供参考！

Q:1428196631，百度：开发地即可找到我,有事请留言！

第 9 楼

得分:0

首先谢谢楼上的，我也通过你的程序学习了解这个组件的使用方法。
楼上的程序很漂亮，但是只能浏览指定目录下一层的文件和文件夹，
我在在楼上的基础上做了些修改，修改后能够浏览相应目录下所有的文件和文件夹（文件夹做了链接）。
如果楼主喜欢的话也可以试着将文件做链接，以便于下载的需求。（这种情况很少，这里没有给出.)

下边给出所有代码（楼主可以直接拷贝运行）：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.
<%
spath=request.QueryString("id")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<%
function abb(path)
dim FSO
dim id:id=1
dim str
set FSO=server.createobject("scripting.FileSystemObject")
 on error resume next
 set objFolders=FSO.getFolder(path)' 建立文件夹对象
 set objSubFolders=objFolders.subFolders
response.write "路径："&path&"文件 "
 for each objFile in objFolders.files
 response.write ""&id&" "
 response.write "文件名："&objFile.name&" "
 response.write "文件大小："&cstr(objFile.size/1024)&"字节 "
 id=id+1
 next
 response.write "路径："&path&"目录： "
 for each objSubFolder in objSubFolders
 str="<a href=Untitled-1.asp?id="&path&"\"&objSubFolder.name&">"&objSubFolder.name&"</a>"
 response.write "文件夹："&str&" "
 next
 end function

if spath="" then
call abb("d:")
else
call abb(spath)
end if
%>
<body>
</body>
</html>