一段ASP单页显示文件夹下所有图片的代码
来源:asp之家 时间:2011-02-28 11:23:00
代码如下:
<%
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,文件夹,所有图片
0
投稿
猜你喜欢
用VB将ASP代码封装成DLL
2007-09-28 12:46:00
JavaScript能判定两个function等价吗?
2009-08-13 14:45:00
特别推荐:Web开发常用速查手册大全(100+)
2011-05-06 12:44:00
在 SQL Server数据库开发中的十大问题
2009-01-20 14:56:00
如何让新页面在新窗口打开?
2009-04-12 19:41:00
rs.open sql,conn,1,1与rs.open sql,conn,1.3还有rs.open sql,conn,3,2区别
2011-02-24 10:49:00
解决MSSQL下“不能在手动或分布事务方式下创建新的连接”的问题
2008-07-15 12:48:00
XML的简单读取与写入
2008-09-04 10:35:00
仿豆瓣分页原型(Javascript版)
2007-11-05 14:04:00
WEB前端开发经验总结
2009-07-20 18:01:00
利用xmlhttp和adodb.stream加缓存技术下载远程Web文
2009-04-23 18:33:00
IE多版本共存的解决方案——IETester(推荐)
2009-03-26 12:47:00
Oracle学习笔记(六)
2012-01-05 18:55:27
基于生活形态的用户分群研究
2009-12-30 16:54:00
正则表达式字面量在ECMAScript5中的变化
2012-04-26 16:23:16
一个完美网站的101项指标.第七部分.W3C标准
2008-03-01 09:31:00
全透视:CSS Z-index 属性
2009-09-21 12:52:00
设计稿标注首屏线的确定始末
2011-03-30 12:36:00
document.all与WEB标准
2008-03-16 14:28:00
MySQL中delimiter的作用
2010-10-25 20:26:00