文章内容所有图片提取后再重新缩小放大

2017-01-17 13:41:17 归档 0 0

文章内容所有图片提取后再重新缩小放大

<%Str = rs("info")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)&"><br>")Next%>