一段ASP单页显示文件夹下所有图片的代码
2010-04-28 00:00
459 查看
<% 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%>
基于上面的代码,就可以二次开发来做做文章了。
相关文章推荐
- 求一段smartupload上传图片的代码,不需要保存到数据库,但是想在jsp页面选中文件夹图片后,立马可以显示
- asp 显示文件夹下面所有文件代码
- 用TreeView控件实现资源管理器(显示本地硬盘下所有文件夹和文件,并可以浏览图片)(示例代码下载)
- 用TreeView控件实现资源管理器(显示本地硬盘下所有文件夹和文件,并可以浏览图片)(示例代码下载)
- 用TreeView控件实现资源管理器(显示本地硬盘下所有文件夹和文件,并可以浏览图片)(示例代码下载)
- 用TreeView控件实现资源管理器(显示本地硬盘下所有文件夹和文件,并可以浏览图片)(示例代码下载)
- asp中最新新闻显示new图片的实现代码
- Scroll View 控件以Thumbnail的方式显示一个文件夹的所有图片,类似图片浏览器
- asp遍历站点所有文件夹的代码
- Asp.net FileUpload上传文件夹并检测所有子文件的实现代码
- 一段asp.net的滚动显示的代码
- Asp.net显示文件夹中的图片
- Asp.net显示文件夹中的图片
- asp遍历站点所有文件夹的代码
- Python与C++ 遍历文件夹下的所有图片实现代码
- asp.net 获取文件夹中的图片的代码
- asp.net 删除文件夹内的所有文件 或者单个文件 代码
- matlab 显示文件夹所有图片
- 显示本站内的所有ASP页面的代码