一段ASP单页显示文件夹下所有图片的代码
来源：asp之家 发布时间：2011-02-28 11:23:00
标签：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％>
基于上面的代码，就可以二次开发来做做文章了。
0
投稿猜你喜欢
- 用下面代码可实现：<％Dim writeDim fileSysObj, tf, readrea
- 见以下两个文件：showimage.asp Change the HTTP header
- 这篇文章详细的介绍了Oracle数据库SQL语句性能调整的基本原则，具体内容请参考下文。一、问题的提出在应用系统开发初期，由于开发数据库数据
- 常用Mysql查询语句记录一、授权1.授权本地用户对所有数据库具有所有权限> grant all privileges on
- 最近做网站期间遇到个问题，就是用到比较流行的lightbox效果，就是点击链接后会弹出个固定大小窗口，弹出后窗口下面的内容是被遮罩掉的，最近
- 如何制作一个倒计时的程序？ 见下：<％CountdownDate = #1/1
- 被AJAX中DOM的操作郁闷了好几天，今天总算搞明白了，自学就是苦啊，苦的一把鼻涕一把泪的，把教训些出来，给后来者提个醒，老鸟就不要看了。下
- 阅读上一篇：定义网页的语言编码 用web标准设计网站，过渡的方法主要是采用XHTML+CSS，css样式表是必不可少的。这就要求所有网页设计
- 1. LEFT OUTER JOIN:左外关联 SELECT e.last_name, e.department_id, d.departm
- 导读：SQL Server数据迁移的知识之前已经为大家介绍了很多，比如SQL Server数据库迁移方法，接下来就为大家详细介绍SQL Se
- 1.INPUT和图片按钮对齐：<form method="post" action="
- 作为收费应用方面的数据库管理员(DBA)，公司首席信息官(CIO)经常邀请我与Sarbanes-Oxley审查员开会讨 * 司数据的安全与整合
两年前发表的《The visual design of Web 2.0》中提到“Rounded everything”，圆角因使人感觉舒适的- 想必大家都知道MSSQL中SA权限是什么，可以说是至高无上。今天我就它的危害再谈点儿，我所讲的是配合NBSI上传功能得到WebShell。在
- 在 asp 应用中，经常用到 Session 对象来保存用户临时私有数据，而 asp 的 Session 对象是依赖于浏览器的 Cookie
- 获取指定日期月份的第一天，你可以使用DATEADD函数，减去指定日期的月份过去了的天数，即可。 代码如下:CREATE FUNC
- 1.彻底弄懂CSS盒子模式一(DIV布局快速入门) 2.彻底弄懂CSS盒子模式二(导航栏实例) 3.彻底弄懂CSS盒子模式三(浮动的表演和清
- 在Web标准中一个很重要的概念就是强调页面的结构与表现分离。说的通俗一点就是XHTML中应该没有样式化的东西，而且Web在浏览器中除内容外都
- 来自某个nb招聘的题目：请给Array本地对象增加一个原型方法，它的用途是删除数组条目中重复的条目(可能有多个)，返回值是一个包含被删除的重
- 在这里我想有必要再较系统说一下ADO的各种对象的方法、属性。毕竟ADO不仅应用在ASP中，VB,VC都可以用到。在这十天中我想主要提到的对象
