ASP提取文章中的所有图片
2015-06-04 17:35:51
一段文章信息保存在数据库中,其中有< img src="uploadfiles/1.gif" >这样的图片信息,如何将该图片信息从数据库中提出并显示在网页中
<%
Function RegImg(TheStr)
Dim RegEx
Set RegEx = New RegExp
RegEx.IgnoreCase =True
RegEx.Global = True
RegEx.Pattern = "(<img)(.[^<>]*)(src=)('|"&CHR(34)&"| )?(.[^'|\s|"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)('|"&CHR(34)&"|\s|>)(.[^>]*)(>)" '设置模式
If Regex.test(TheStr) then
Dim Matches
Set Matches = RegEx.Execute(TheStr) ' 执行搜索。
For Each Match in Matches ' 遍历匹配集合。
RetStr = RetStr & Match.Value & "<br />" '获取整个img
RetStr = RetStr & MaMatch.SubMatches(4)&"."&Match.SubMatches(6) '只取src
Next
RegImg = RetStr
End If
End Function
%>调用方法:
<%
Response.Write RegImg("一段文章信息保存在数据库中,其中有<img src="http://www.it689.com/attached/image/20150209/1423463604672745.jpg">这样的图片信息,如何将该图片信息从数据库中提出并显示在网页中")
%>
