目前还是有BUG的,最新的测试页面在: http://www.reallydo.com/getimg.asp 正则分析页面在: http://jorkin.reallydo.com/article.asp?id=380 发现BUG请在后面留言,谢谢. 1.31修正 src=后面有空格不能正确匹配.已修正. src=''为空时出错.已修正. 发现BUG: 图片路径有多个空格时只能保留一个.未修正. 2.18修正 图片路径有多个空格时只能保留一个的BUG.已修正. 复制代码 代码如下:<% '功能:获取全部图片地址,保存到一个数组. '来源:http://jorkin.reallydo.com/article.asp?id=448 '需要ReplaceAll函数:http://jorkin.reallydo.com/article.asp?id=406 Function getIMG(sString) Dim sReallyDo, regEx, iReallyDo Dim oMatches, cMatch '//定义一个空数组 iReallyDo = -1 ReDim aReallyDo(iReallyDo) If IsNull(sString) Then getIMG = "" Exit Function End If '//格式化HTML代码 '//将每个 <img 换行 方便正则替换 sReallyDo = sString On Error Resume Next sReallyDo = Replace(sReallyDo, vbCr, " ") sReallyDo = Replace(sReallyDo, vbLf, " ") sReallyDo = Replace(sReallyDo, vbTab, " ") sReallyDo = Replace(sReallyDo, "<img ", vbCrLf & "<img ", 1, -1, 1) sReallyDo = Replace(sReallyDo, "/>", " />", 1, -1, 1) sReallyDo = ReplaceAll(sReallyDo, "= ", "=", True) sReallyDo = ReplaceAll(sReallyDo, "> ", ">", True) sReallyDo = Replace(sReallyDo, "><", ">" & vbCrLf & "<") sReallyDo = Trim(sReallyDo) On Error GoTo 0 Set regEx = New RegExp regEx.IgnoreCase = True regEx.Global = True '//去除onclick,onload等脚本 regEx.Pattern = "s[on].+?=([""|'])(.*?)1" sReallyDo = regEx.Replace(sReallyDo, "") '//将SRC不带引号的图片地址加上引号 regEx.Pattern = "<img.*?ssrc=([^""'s][^""'s>]*).*?>" sReallyDo = regEx.Replace(sReallyDo, "<img src=""$1"" />") '//正则匹配图片SRC地址 regEx.Pattern = "<img.*?ssrc=([""'])([^""']+?)1.*?>" Set oMatches = regEx.Execute(sReallyDo) '//将图片地址存入数组 For Each cMatch in oMatches iReallyDo = iReallyDo + 1 ReDim Preserve aReallyDo(iReallyDo) aReallyDo(iReallyDo) = regEx.Replace(cMatch.Value, "$2") Next getIMG = aReallyDo End Function %>

　　推荐阅读

　　一想千开PJblog审核功能补丁 v2.0版 发布第1/3页

这次这个补丁，应该说和上和是没有多少关系的，是完全重新编写的。但为了不和上次发布的那个补丁混淆，给这个补丁加个版本号2.0。 一.PJblog审核功能补丁v2.0对PJblog功能上的改进 1.重大改进：一想千开首创“敏感>>>详细阅读

本文标题：ASP获取网页全部图片地址并保存为数组的正则

地址：http://www.17bianji.com/kaifa2/ASP/32290.html

 1/2    1