怎样用asp获取根目录下某一目录里的所有文件的列表并显示在网页上?

do_taozi 2001-06-29 02:45:05
怎样用asp获取根目录下某一目录里的所有文件的列表并显示在网页上?
...全文
773 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
yufz 2001-09-17
  • 打赏
  • 举报
回复
服务商把FSO关了,怎么办呢?
有没有其他的办法?
freezwy 2001-06-30
  • 打赏
  • 举报
回复
我来晚了,蹭不到分了。
do_taozi 2001-06-30
  • 打赏
  • 举报
回复
谢谢,我知道了!!
tonnycncn 2001-06-29
  • 打赏
  • 举报
回复
<HTML>
<HEAD><TITLE>文件夹内容</TITLE></HEAD>
<BODY>
<%
'创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
'创建一个Folder对象
Set MyFolder=MyFileObject.GetFolder("e:\winnt")
'循环显示其中文件
For Each thing in MyFolder.Files
Response.Write("<p>"&thing)
Next
%>
</Body>
</HTML>
BrentIvan 2001-06-29
  • 打赏
  • 举报
回复
<%
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Server.MapPath("."))
Set files = f.Files
For Each file in files
%>
<a href="<%= file.Name %>"><%= file.Name %></a><br>
<%
Next
%>
Hikaru 2001-06-29
  • 打赏
  • 举报
回复
用vbscript里面的FileSystemObject对象。以下是段实例程序:

Function ShowFileList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & "<BR>"
Next
ShowFileList = s
End Function

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧