asp获取一个文件夹及其子文件夹下的所有图片地址
原文链接:http://www.iwapr.cn/article/daima/30.html
ASP/Visual Basic代码
<%
dim picurl,all_picurl
'皆是全局变量:分别定义图片的链接地址;所有指定文件夹(包括指定文件夹的子文件夹下图片url地址)
picurl="" '设置图片链接地址默认值为空,为下面的checkfolders()函数执行picurl=picurl&"..."做准备.
Function checkRegExp(strPattern,str) '正则匹配算法,strPattern代表正则表达式,str代表需要查询匹配的字符串
Dim Exp
if str="" or isnull(str) then '检测你要查询的字符串是否为空,如果为空就返回false
checkRegExp=false
end if
Set objExp=New regExp
objExp.pattern=strPattern '指定匹配模板
objExp.ignoreCase=false '是否忽略大小写,这里不忽略,你也可以设置忽略
objExp.Global=True '指定是否全局匹配,这里设置为全局匹配
checkRegExp=objExp.Test(str) '返回查询结果,也可以这样写 return objExp.Test(str)
End function
相关文档：
ASP编码规范
第一章 ASP编码规范通述
ASP编码分为两大部分，一部分为静态文件编码，一部分为包含服务器端脚本的动态文件编码。
静态文件编码分script编码和HTML编码两部分。
服务器端编码则分为服务器脚本、客户端脚本、HTML脚本三部分。
编码规范采用如下约定：
� ......
这几天好多人问我如何在asp程序中控制摄像头去抓拍照片，asp技术还是99年的时候看过一点点，早就着米饭吃了，不过既然有人问，那就是看得起咱，花了一个晚上的时间把asp程序调用摄像头拍照的问题搞定了，现记录如下，让有类似需求的同学可以少走些弯路。
用到的技术：
1.asp程序中作base64编码和解码，使用的是msxml组件� ......
<%
for i=1 to rs.recordCount '变量i从1循环到数据库中的全部记录数
if (i mod 1 =1) then '每个tr即每行显示1个记录,可根据需要自行修改, 将左边的1修改为2即显示两行。
response.write "<tr align='center'>"
end if
%>
此处为要循环的内容
<%if (i mod 1 = 0) then ......
添加、删除、修改使用
db.Execute(Sql)命令执行操作
╔----------------╗
☆ 数据记录筛选 ☆
╚----------------╝
注意：单双引号的用法可能有误(没有测式)
Sql = "Select
Distinct
字段名 from 数据表"
Distinct函数，查询数据库存表内不重复的记录
......
1.如果您的操作系统为Windows 98，请运行 Windows98的安装光盘。在其Add-ons\pws目录下找到pws的安装程序，运行安装即可
2.如果操作系统为 Windows 2000 以上，可以按图4.1.1的方法安装 IIS：
打开【控制面板】，找到 【添加/删除程序】→【添加/删除WINDOWS组件】，
弹出 【Windows 组件向导】 ，选择 【Internet ......
