函数
FunctionRegImg(TheStr)
DimRegEx
SetRegEx=NewRegExp\’建立正则表达对象。
RegEx.IgnoreCase=True\’是否区分大小写，True为不区分且默认
RegEx.Global=True\’全部匹配还是只匹配第一个
RegEx.Pattern=\”<img[^>]*src\\s*=\\s*[\’\”&CHR(34)&\”]?([\\w/\\-\\:.]*)[\’\”&CHR(34)&\”]?[^>]*>\”\’搜索所使用的正则表达式
IfRegex.test(TheStr)Then\’判断是否有匹配值，返回True或者False。不受Global属性影响。
DimMatches
SetMatches=RegEx.Execute(TheStr)\’执行搜索。Execute方法返回一个Matches集合，其中包含了在TheStr中找到的每一个匹配的Match对象。如果未找到匹配，Execute将返回空的Matches集合。
ForEachMatchinMatches\’遍历匹配集合。
\’RetStr=RetStr&Match.Value&\”<br/>\”\’获取整个img
RetStr=RetStr&Match.SubMatches(0)&\”||\”\’只取src
Next
RegImg=RetStr
EndIf
EndFunction
\’调用方法
htmlBody=\”<imgid=\’img\’src=\’/images/01.jpg\’alt=\’图片标题\’style=\’border:none;position:relative;\’/><imgsrc=\’/111.jpg\’/><imgsrc=\’/222.jpg\’/>\”
Response.WriteRegImg(htmlBody)
到这里就为拿出了，大家可以根据需要修改。
