<%
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號