栏目导航

热点推荐

阅览排行

当前位置：主页>网络编程>ASP教程>资讯:ASP单页显示文件夹下所有图片的代码

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

www.jz123.cn 2010-05-28 来源: 中国建站责任编辑(袁袁) 我要投递新闻

　　发一段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%>

顶一下

上一篇：asp实现UTF8转换GB2312国标码的asp代码下一篇：asp实现的查询某关键词在MSSQL数据库位置的代码

栏目导航

热点推荐

阅览排行

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

相关文章列表

评论总数：0 条 [ 查看全部 ] 网友评论