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
相关文档：
之前写过一个不用验证码的防注册机方法，使用了将近2年后，彻底失效。
今天偶然撞见一个防止恶意注册的方法，正在思考ing。先把方法列下：
获取客户端提交的信息；
将信息存入 Session；
生成一个随机数（称为 ticket）；
将随机数也存入 Session；
用 JavaScript 的形式将随机数以链接的形式输出，并提示客户点击上� ......
ASP编码规范
第一章 ASP编码规范通述
ASP编码分为两大部分，一部分为静态文件编码，一部分为包含服务器端脚本的动态文件编码。
静态文件编码分script编码和HTML编码两部分。
服务器端编码则分为服务器脚本、客户端脚本、HTML脚本三部分。
编码规范采用如下约定：
� ......
<%
'以下是试用版代码，是固定的代码，只有正式版才可自动从后台数据库中读取图片。
piao1="images/1.jpg"
piao1url=""
piaos1="图1"
piao2="images/2.jpg"
piao2url=""
piaos2="图2"
piao3="images/ ......
添加、删除、修改使用
db.Execute(Sql)命令执行操作
╔----------------╗
☆ 数据记录筛选 ☆
╚----------------╝
注意：单双引号的用法可能有误(没有测式)
Sql = "Select
Distinct
字段名 from 数据表"
Distinct函数，查询数据库存表内不重复的记录
......
