asp如何自动（注意，是“自动”）取得指定文件夹里面的文件的名字？
”自动“可以通过刷新页面解决，但是如何获得文件的名字呢？解决并有原码例子的给高分! 问题点数：60、回复次数：12Top
1 楼julyclyde（Java初学（大学不教只好自己学））回复于 2002-04-23 19:54:41 得分 0
ASP不可能自动
完毕Top
2 楼ahead_lin（Try my best!）回复于 2002-04-23 22:09:09 得分 0
就是当把一文件放到指定的文件夹后，在页面上就可以马上出现。比如一张图片，放到该文件夹后，在asp取得该图片名字，并发布到页面。
to： julyclyde(争取下次的MVP) 真的没办法吗？Top
3 楼WithSmile2000（其实我是一个马甲）回复于 2002-04-23 22:11:47 得分 0
好象有办法的，我见过，不过今天没时间了，我们10：30就要熄灯了，明天找出来给你。不好意思啊。Top
4 楼CFree（自由从哪派生?）回复于 2002-04-23 23:36:25 得分 0
你可以用FILESYSTEMOBJECT遍历该文件夹，定时刷新ASP页面，比如3分钟；
要求实时，恐怕不行。Top
5 楼ahead_lin（Try my best!）回复于 2002-04-24 08:20:20 得分 0
谢谢 ： WithSmile2000(含笑半步颠)
我会给分的Top
6 楼beyond_xiruo（CorruptionException）回复于 2002-04-24 08:33:39 得分 0
这个要不断刷新页面，不过是通过客户端来完成！
因此“ASP不可能自动”是正确的！
就通过客户端来实现吧！Top
7 楼25475360（说的容易做来难）回复于 2002-04-24 09:21:36 得分 0
FILESYSTEMOBJECT遍历该文件夹，定时刷新
可以先只统计文件数Top
8 楼fengdu（潜心闭关修行中，明年再上CSDN）回复于 2002-04-24 09:59:24 得分 0
“统计文件数”花的时间和遍历基本一样了（都要读完该目录扇区）！如果每10秒刷新（相当于实时）的话，那如果不cache的话，对IIS资源消耗很大。
“比如一张图片，放到该文件夹后，在asp取得该图片名字，并发布到页面。”
我知道你的意思，你放到该文件夹后，就用ASP生成一个newsgif.js文件内容document.write ("<img src=..images/fgjkdg.gif >")
然后在需要调用的地方<script src=newgif.js></script>
这样一样实时。Top
9 楼WithSmile2000（其实我是一个马甲）回复于 2002-04-24 10:27:19 得分 20
<%@LANGUAGE="VBScript"%>
<HTML>
<HEAD>
<TITLE>FileSystemObject</TITLE>
</HEAD>
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolders = objFSO.GetFolder("E:\我的文档")
For Each objFile in objFolders.Files
Response.Write "file:"&objFile.Name&"<br>"
Next
%>
</BODY>
</HTML>
可以更改文件目录名
我觉得楼主的意思是每次重新打开网页，都能如同打开文件夹一样看到文件名。而不是你们理解的打开网页，放着不动，然后去改变文件夹的内容，网页立马反映出变化。Top
10 楼ahead_lin（Try my best!）回复于 2002-04-24 19:07:28 得分 0
fengdu(fengdu.net 海涛)
你的办法很好阿。能给一个例子吗？（主要是原代码） 谢了Top
11 楼fengdu（潜心闭关修行中，明年再上CSDN）回复于 2002-04-26 17:15:59 得分 40
这个代码是我的一个程序的节选。
实现当管理员上传新头像文件后，自动自动将列表写如入文件face.asp，来实现上传新头像后，会员即可选择新头像。而face.asp仅仅也是一个基本静态的文件，不会去读目录，也就不产生资源开销。
dim s,spp,sfo,f,fc,ff,i
dim sfo,fobject,fname,outhtml
s=Request.ServerVariables("path_translated")
sPP=left(s,instrrev(s,"\",len(s)))
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(sPP)
Set fc = f.Files
Set ff = f.SubFolders '目录
i=1
outhtml="<%if face&"" ""="" "" then face=""000""%"&">"
outhtml=outhtml&"<select name=face size=1 onChange=""document.images['face'].src='../face/'+options[selectedIndex].value+'.gif';"">"
outhtml=outhtml&"<option value='<%=face%"&">'><%=face%"&"></option>"
For Each f in fc
if instr(f.name,".gif") or instr(f.name,".gif") then
'response.write i&"<img src="&f.name&" width=32 height=32 border=0 border=0 alt="""&f.name&chr(13)&chr(10)&f.DateLastModified&chr(13)&chr(10)&f.size&""">"
'if i/10=int(i/10) then response.write "<br>"
fname=left(f.name,3)
outhtml=outhtml&"<option value='"&fname&"'>"&fname&"</option>"
i=i+1
end if
Next
set fso=nothing
set f=nothing
set fc=nothing
set ff=nothing
outhtml=outhtml&"</select><img id=face src=""../face/<%=face%"&">.gif"" height=32 width=32 alt=形象>"
response.write outhtml
fname="../include/face.asp"
set sfo=createobject("scripting.filesystemobject")
Set fobject=sfo.CreateTextFile(server.mappath(fname),true)
fobject.writeline(outhtml)
fobject.close
set fobject=nothing
set sfo=nothingTop
