遍历文件夹下的图片文件，然后在页面滚动显示，怎么做呢？我不会asp麻烦大家给我代码

[woaiwoaiyuyu]

遍历文件夹下的图片文件，然后在页面滚动显示，怎么做呢？我不会asp麻烦大家给我代码

刚找了一段

<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
on error resume next
Set objFolder=fso.GetFolder(server.MapPath("../path"))
Set objFiles=objFolder.Files
'循环输出文件夹path下的文件的文件名
For each objFile in objFiles
filelist = filelist&","&objFile.name
Next

'释放对象
Set objFolder=nothing
Set fso=nothing
%>

但是这个不能判断是不是图片文件

然后我 response.Write(filelist)

以后的结果是 ,ad.jpg,banner.swf,bar_01.gif,bg-1.gif

出来是出来了

但是页面如何取到，并滚动显示呢？

大家帮忙呀，好急呀T_T

[tantaiyizu]

fso

[phoenix2006]

很想帮你 可是我不会ASP 呵呵 我搞C/C++的

[woaiwoaiyuyu]

现在我是想知道怎么根据文件名分类
比如张3的照片是01开头的

李4的是02开头的，区分这个。。。

[cnfreer]

<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
on error resume next
Set objFolder=fso.GetFolder(server.MapPath("../path"))
Set objFiles=objFolder.Files
Response.Write "<div style=""width: 300px;height: 200px;overflow: auto;"">"
For each objFile in objFiles
TmpArr = Split(objFile.Name, ".")
ExtenName = TmpArr(Ubound(TmpArr))
If InStr(1, "|GIF|BMP|PNG|JPG|", "|" & ExtenName & "|", 1) > 0 Then
Response.Write "<img src=""../path/" & objFile.Name & """>"
End If
Next
Response.Write "</div>"
'释放对象
Set objFolder=nothing
Set fso=nothing
%>

[hunshihaichong]

<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
on error resume next
Set objFolder=fso.GetFolder(server.MapPath("./pic/"))
Set objFiles=objFolder.Files
Response.Write "<marquee id=""affiche"" align=""left"" behavior=""scroll""

bgcolor=""#FFFFFF"" direction=""up"" height=""300"" width=""200"" hspace=""50""

vspace=""20"" loop=""-1"" scrollamount=""10"" scrolldelay=""200"" onMouseOut=""this.start

()"" onMouseOver=""this.stop()"">"
For each objFile in objFiles
TmpArr = Split(objFile.Name, ".")
ExtenName = TmpArr(Ubound(TmpArr))
If InStr(1, "|GIF|BMP|PNG|JPG|", "|" & ExtenName & "|", 1) > 0 Then
Response.Write "<img src=""./pic/" & objFile.Name & """>"&"<br>"
End If
Next
Response.Write "</marquee>"
'释放对象
Set objFolder=nothing
Set fso=nothing
%>

[woaiwoaiyuyu]

我晕，楼上的，你不是吧别人的复制了么。。。晕倒

[haowawa2008]

直接放数据库不就可以了

[cuidenghong123]

用数据库

[hunshihaichong]

我只是给这个代码补充页面滚动显示!

如果你有哪些不懂再问,结帐吧

[dnawo]

修改了下上边的代码,经测试可行:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim fso,objFolder,objFiles
Dim filelist

Set fso = Server.CreateObject("Scripting.FileSystemObject")
'on error resume next
Set objFolder=fso.GetFolder(server.MapPath("."))
Set objFiles=objFolder.Files
'循环输出文件夹path下的文件的文件名
For each objFile in objFiles
If getExt(objFile.name)="gif" or getExt(objFile.name)="jpg" or getExt(objFile.name)="jpeg" Then
filelist = filelist&"<img src="""&objFile.name&""" width=""80"" height=""31""> "
End If
Next

'释放对象
Set objFolder=nothing
Set fso=nothing

'获取文件类型
Function getExt(str)
getExt = Lcase(Right(str,Len(str)-InstrRev(str,".")))
End Function
%>
<marquee direction="left" scrollamount="2" scrolldelay="120" width="200" height="32"><% =filelist %></marquee>