<%
dim tempstr
tempstr=" <p> 新闻内容 <img height="高度是变化的" width="宽度也是变化的" alt="" src="/news/pic/2008-1/image/fl200801070943422936.gif" /> </p> "
dim objregexp
set objregexp=new regexp
objregexp.ignorecase = true
objregexp.global = true
objregexp.pattern=" <img src='.+?'> "
set matches = objregexp.EXECute(tempstr)
objregexp.pattern="src='.+?'"
for each match in matches
set matches1=objregexp.EXECute(match.value)
aa=aa & replace(replace(matches1(0).value,"src=",""),"'","") &"@"
next
aa=left(aa,len(aa)-1)
response.write(aa) &" <br> "
bb=split(aa,"@")
for i=0 to ubound(bb)
response.write(bb(i)) &" <br> "
next
%>