一段ASP单页显示文件夹下所有图片的代码

<%
dim fso,objfolder,objfiles
dim filelist
set fso=server.createobject("scripting.filesystemobject")
set objfolder=fso.getfolder(server.mappath("thumbs"))
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""">"
end if
next

'释放对象
set objfolder=nothing
set fso=nothing
'获取文件类型
function getext(str)
getext = lcase(right(str,len(str)-instrrev(str,".")))
end function
%>
<%=filelist%>