标题:关于ASP页面显示服务器文件列表,求指点
只看楼主
milanwzqq
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2010-4-20
结帖率:0
已结贴  问题点数:20 回复次数:8 
关于ASP页面显示服务器文件列表,求指点
我需要写一个ASP页面,可以实现如下功能:
可以显示服务器制定目录下的文件列表,如128.0.5.5上的D盘下的目录
又谁帮我写个,谢谢啦
搜索更多相关主题的帖子: 服务器 ASP 文件 页面 
2010-04-20 17:08
milanwzqq
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2010-4-20
得分:0 
又没有人会啊,我急用啊!谢谢啦
2010-04-20 17:12
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4912
专家分:29900
注 册:2008-10-15
得分:5 
网上有现成的 ASP 文件管理软件.

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


授人于鱼,不如授人于渔
早已停用QQ了
2010-04-20 17:17
milanwzqq
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2010-4-20
得分:0 
又客户要看这些文件,我们想把列表拿粗来,他们自己下了看,就想弄个这样的东西
2010-04-20 17:56
milanwzqq
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2010-4-20
得分:0 
2010-04-20 17:57
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
得分:5 
ASP文件管理软件应该可以列出服务器文件目录啊?楼主只是想要一段代码把服务器指定位置下的所有目录都罗列出来?
2010-04-20 21:10
zzy_420
Rank: 4
等 级:业余侠客
威 望:2
帖 子:78
专家分:217
注 册:2009-3-26
得分:5 
如果只是罗列列表完全可以使用 FILESYSTEMOBJECT组件啊。


用 getforder()和getfile()方法 之后用for each ...next 输出集合forders,files的内容就可以啊。
2010-04-20 23:59
gupiao175
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:40
帖 子:1787
专家分:7527
注 册:2007-6-27
得分: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 "<font color=red>路径:"&path&"文件</font><br>"
   for each objFile in objFolders.files
       response.write "<font color=red>"&id&"</font><br>"
       response.write "文件名:"&objFile.name&"<br>"
       response.write "文件大小:"&cstr(objFile.size/1024)&"字节<br>"
       id=id+1
   next
   response.write "<font color=red>路径:"&path&"目录:</font><br>"
    for each objSubFolder in objSubFolders
    response.write "文件夹:"&objSubFolder.name&"<br>"
    next
  end function
call abb("d:\")
比较简单的一个遍历!以供参考!

Q:1428196631,百度:开发地 即可找到我,有事请留言!
2010-04-21 10:04
zzy_420
Rank: 4
等 级:业余侠客
威 望:2
帖 子:78
专家分:217
注 册:2009-3-26
得分: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 "<font color=red>路径:"&path&"文件</font><br>"
   for each objFile in objFolders.files
       response.write "<font color=red>"&id&"</font><br>"
       response.write "文件名:"&objFile.name&"<br>"
       response.write "文件大小:"&cstr(objFile.size/1024)&"字节<br>"
       id=id+1
   next
   response.write "<font color=red>路径:"&path&"目录:</font><br>"
    for each objSubFolder in objSubFolders
    str="<a href=Untitled-1.asp?id="&path&"\"&objSubFolder.name&">"&objSubFolder.name&"</a>"
    response.write "文件夹:"&str&"<br>"
    next
  end function

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

2010-04-21 13:51



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-303755-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.049173 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved