原文链接: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
<%
Const New_img=10
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & New_img & " * from 0791idc_Product order by ID"
rs_Product.open sqltext,conn,1,1
if not rs_Product.EOF then%>
<div align='center' id='demo' style='o ......
