Asp正则表达式提取内容中的图片

<%

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

Response.WriteRegImg("<p><img src=""http://www.wdssmq.com/UPLOAD/cbfs.gif"" width=""132"" height=""132""
alt=""111"" /></p>")

%>