ASP代码从网页内容里面提取图片

Function getImgFromText(strng)
 Dim regEx, Match, Matches '建立变量。
 Set regEx = New RegExp '建立正则表达式。 
 regEx.Pattern = "(<)(.[^<]*)(src=)('|"&CHR(34)&"| )?(.[^'|\s|"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)('|"&CHR(34)&"|\s|>)(.[^>]*)(>)" '设置模式。  
 regEx.IgnoreCase = true '设置是否区分字符大小写。
 regEx.Global = True '设置全局可用性。
 Set Matches = regEx.Execute(strng) '执行搜索。
 For Each Match in Matches '遍历匹配集合。
 values=values&Match.Value&"{|LDIV|}"
 Next
 RegExpExecute = values
End Function