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

#2

milanwzqq2010-04-20 17:12

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

#3

风吹过b2010-04-20 17:17

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

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

#4

milanwzqq2010-04-20 17:56

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

#5

milanwzqq2010-04-20 17:57

！

#6

yms1232010-04-20 21:10

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

#7

zzy_4202010-04-20 23:59

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

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

#8

gupiao1752010-04-21 10:04

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:\")
比较简单的一个遍历！以供参考！

#9

zzy_4202010-04-21 13:51

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

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

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