设为首页 加入收藏
当前位置:编程开发

ASP提取文章中的所有图片

发布日期:2019-03-18 22:16:35 访问次数:522

<%
Function RegImg(TheStr)
	Dim RegEx
	Set RegEx = New RegExp
	RegEx.IgnoreCase =True
	RegEx.Global = True
	RegEx.Pattern = "<img[^>]*src\s*=\s*['"&CHR(34)&"]?([\w/\-\:.]*)['"&CHR(34)&"]?[^>]*>"
	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 & Match.SubMatches(0) '只取src
		Next 
		RegImg = RetStr
	End If
End Function
%>

上一文章:暂无

下一文章:PHP开发微信登陆