<%
Function gameimgs(content)
 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(content) '执行搜索。
 For Each Match in Matches '遍历匹配集合。
 '输入图片地址
 'Response.Write Match.SubMatches(4)&"."&Match.SubMatches(6)
 gameimgs = Match.SubMatches(4)&"."&Match.SubMatches(6)
 Next
End Function
%>

<ol>
<%
set imgrs=server.CreateObject("adodb.recordset")
imgrs.open "select * from news",conn,1,3
if imgrs.eof and imgrs.bof then
 response.write "111"
else
 do until imgrs.eof
  response.write "<li>"& imgrs("title")
  imgrs("saveimg") = gameimgs(imgrs("game"))
  imgrs("img") = gameimgs(imgrs("game"))
  response.write "</li>"
  imgrs.update
 imgrs.movenext
 loop
 
end if
imgrs.close
set imgrs=nothing
%>
</ol>
<%conn.close:set conn=nothing%>
利用ASP正则提取文章里面的图片的有效的src地址的示例