<%
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地址的示例
苏公网安备 32070502010230号