求一段简单的asp显示图片的代码
要求asp服务器上，html都行的一段代码
要求能显示目录下的图片自动读取。
页面上有个按钮，向前，向后，或者刷新页面就都要换一张图片来显示。
是不是不麻烦。可是本人不会。谢谢
[解决办法]
<% Dim fso,objFolder,objFiles
Dim filelist
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'on error resume next
Set objFolder=fso.GetFolder(server.MapPath("../uploadfile/"))
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=""../uploadfile/"&objFile.name&""" width=""200"" height=""150"" > "
End If
Next
'释放对象
Set objFolder=nothing
Set fso=nothing
'获取文件类型
Function getExt(str)
getExt = Lcase(Right(str,Len(str)-InstrRev(str,".")))
End Function
'输出图片
%>
<%=filelist%>
