一段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
投稿猜你喜欢
- Process之间有时需要通信，操作系统提供了很多机制来实现进程间的通信。1. Queue的使用可以使用multiprocessing模块的
- mysql mysqldump 只导出表结构 不导出数据mysqldump --opt -d 数据库名 -u root -p > xx
- 1.conn.php <? $host="localhost"; //数据库服务器名称 $user="r
- 一、正则表达式的特殊字符介绍正则表达式^ 匹配行首 &nb
上期回顾:亚马逊购物用户体验分析 (二)方便的导航元素任何网上商店的成功，至关重要的一点，就是用户可以简单轻松地使用导航条。基本店铺分类，用- 本文实例为大家分享了Python实现滑雪小游戏的具体代码，供大家参考，具体内容如下源码分享：import sysimport cfgimpo
- shift：删除原数组第一项，并返回删除元素的值；如果数组为空则返回undefined var a = [1,2,3,4,5]; var b
- 1、安装coveragepip install coverage安装完成后，会在Python环境下的\Scripts下看到coverage.
- 每年意甲德甲英超西甲各大联赛的赛程表都是球迷们的必看之物，想起之前写过的一段生成赛程表的代码，用Python来写这类东西太舒服了。这个算法叫
- 本文实例讲述了JS实现为排序好的字符串找出重复行的方法。分享给大家供大家参考，具体如下：实现这样一个需求，在一个Editplus文档中，有很
- 主库执行CREATE DATABASE test CHARACTER SET utf8 COLLATE utf8_general_ci;us
- vue卡片翻转轮播展示，同时在翻转时切换数据，供大家参考，具体内容如下效果及代码代码：<template> <
- 1. imageZMQ库实现imageZMQ库链接：https://github.com/jeffbass/imagezmq该库原本是用于树
- declare @id
- 在VBScript中，有一个On Error Resume Next语句，它使脚本解释器忽略运行期错误并继续脚本代码的执行。接着该脚本可以检
- 本文实例讲述了python装饰器常见使用方法。分享给大家供大家参考，具体如下：python 的装饰器，可以用来实现，类似spring AOP
- 进一法取整、四舍五入取整、忽略小数等的取整数方法大全PHP取整数函数常用的四种方法,下面收集了四个函数；经常用到取整的函数，今天小小的总结一
- 前言：python多进程，经常在使用，却没有怎么系统的学习过，官网上面讲得比较细，结合自己的学习，整理记录下官网:https://docs.
- 环境： 192.168.100.210
- 一、安装并配置 JMeter下载官网下载，下载二进制的这个 zip配置环境变量然后解压到你喜欢的位置，配置环境变量，新建一个 JMETER_
