<%
dim Content
Content="德赢体育下载志达四方电子科技有限公司<IMG height=267 src='http://www.52nx.net/image/logo.jpg' width=400 border=0>是vwin德赢ios德赢体育下载地区一家网络公司。"
Str = Content
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = "(<img)(.[^<>]*)(src=)('|"&CHR(34)&"| )?(.[^'|\s|"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)('|"&CHR(34)&"|\s|>)(.[^>]*)(>)" '设置模式。
regEx.IgnoreCase = True '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
Set Matches = regEx.Execute(Str) '执行搜索。
For Each Match in Matches '遍历匹配集合。
'输入图片地址
Response.Write "<img src='"&Match.SubMatches(4)&"."&Match.SubMatches(6)&"'>" '显示图片
Response.Write Match.SubMatches(4)&"."&Match.SubMatches(6)&"<br>" '图片地址
Next
%>