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