<%
dim re,matches,matchcount,strTest,i
set re = new regexp
re.pattern = "<img.*?src/=(?:['"" ]|)(.*?)['"" ].*?/>"
re.global = true
re.ignorecase = true
strTest="ee<img src='/sjk/q.gif'>aac<img src=fjkj/kj.jpg />dfjk<img src=""jkkjdf/jk.gif"" alt=dkj /><IMG SRC=""http://www.pppqq.com/img/logo.gif"">jfkdsa<a href=""http://www.csdn.net"">afdsjk</a>"
if re.test(strTest) then
set matches = re.execute(strTest)
for i = 0 to matches.count-1
response.write "<br/> 第" & (i + 1) & "个图片地址：" & matches(i).submatches(0)
next
else
response.write "没有找到链接"
end if
%>