如何截取图片地址

哈哈，自己解决了，代码放在这里供大家参考
<%
Str = "<img src='图片地址' alt='3.jpg' /> <img alt=说明 src='1.jpg'/> <img src='2.jpg'/>"
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) '执行搜索。

src=""
For Each Match in Matches '遍历匹配集合。
'输入图片地址
src=src&Match.SubMatches(4)&"."&Match.SubMatches(6)&"|"
Next
response.Write src
num=split(src,"|")
for i=0 to Ubound(num)-1
%><option  selected="selected" value="<%=num(i)%>"><%=num(i)%></option>
<%next%>