<%
dim result,result1
str="adfjlmnnzlkjlkfjoj <img src="""
set re=new regexp
re.ignorecase=true
re.global=true
re.pattern="<img [^>]*src=""([^"">]+)""[^>]+>"
set m=re.execute(str)
for each n in m
result=result&n&"|"
result1=result1&n.submatches(0)&"|"
next
set m=nothing
set re=nothing
if result<>"" then
result=left(result,len(result)-1)
result1=left(result1,len(result1)-1)
end if
result=split(result,"|") '存儲<img>
result1=split(result1,"|") '存儲圖像地址
