ASP常用函数:getIMG()技巧

目前还是有BUG的,最新的测试页面在: http://www.reallydo.com/getimg.aspytU中国设计秀
正则分析页面在: http://jorkin.reallydo.com/article.asp?id=380 ytU中国设计秀
发现BUG请在后面留言,谢谢.ytU中国设计秀
1.31修正ytU中国设计秀
src=后面有空格不能正确匹配.已修正.ytU中国设计秀
src=''为空时出错.已修正.ytU中国设计秀
发现BUG: 图片路径有多个空格时只能保留一个.未修正.ytU中国设计秀
2.18修正ytU中国设计秀
图片路径有多个空格时只能保留一个的BUG.已修正.ytU中国设计秀
<%ytU中国设计秀
'功能:获取全部图片地址,保存到一个数组.ytU中国设计秀
'来源:http://jorkin.reallydo.com/article.asp?id=448ytU中国设计秀
'需要ReplaceAll函数:http://jorkin.reallydo.com/article.asp?id=406ytU中国设计秀

Function getIMG(sString)ytU中国设计秀
    Dim sReallyDo, regEx, iReallyDoytU中国设计秀
    Dim oMatches, cMatchytU中国设计秀
    '//定义一个空数组ytU中国设计秀
    iReallyDo = -1ytU中国设计秀
    ReDim aReallyDo(iReallyDo)ytU中国设计秀
    If IsNull(sString) ThenytU中国设计秀
        getIMG = aReallyDoytU中国设计秀
        Exit FunctionytU中国设计秀
    End IfytU中国设计秀
    '//格式化HTML代码ytU中国设计秀
    '//将每个 <img 换行 方便正则替换ytU中国设计秀
    sReallyDo = sStringytU中国设计秀
    On Error Resume NextytU中国设计秀
    sReallyDo = Replace(sReallyDo, vbCr, " ")ytU中国设计秀
    sReallyDo = Replace(sReallyDo, vbLf, " ")ytU中国设计秀
    sReallyDo = Replace(sReallyDo, vbTab, " ")ytU中国设计秀
    sReallyDo = Replace(sReallyDo, "<img ", vbCrLf & "<img ", 1, -1, 1)ytU中国设计秀
    sReallyDo = Replace(sReallyDo, "/>", " />", 1, -1, 1)ytU中国设计秀
    sReallyDo = ReplaceAll(sReallyDo, "= ", "=", True)ytU中国设计秀
    sReallyDo = ReplaceAll(sReallyDo, "> ", ">", True)ytU中国设计秀
    sReallyDo = Replace(sReallyDo, "><", ">" & vbCrLf & "<")ytU中国设计秀
    sReallyDo = Trim(sReallyDo)ytU中国设计秀
    Set regEx = New RegExpytU中国设计秀
    regEx.IgnoreCase = TrueytU中国设计秀
    regEx.Global = TrueytU中国设计秀
    '//去除onclick,onload等脚本ytU中国设计秀
    regEx.Pattern = "s[on].+?=([""|'])(.*?)1"ytU中国设计秀
    sReallyDo = regEx.Replace(sReallyDo, "")ytU中国设计秀
    '//将SRC不带引号的图片地址加上引号ytU中国设计秀
    regEx.Pattern = "<img.*?ssrc=([^""'s][^""'s>]*).*?>"ytU中国设计秀
    sReallyDo = regEx.Replace(sReallyDo, "<img src=""$1"" />")ytU中国设计秀
    '//正则匹配图片SRC地址ytU中国设计秀
   http://bizhi.knowsky.com/ytU中国设计秀
    regEx.Pattern = "<img.*?ssrc=([""'])([^""']+?)1.*?>"ytU中国设计秀
    Set oMatches = regEx.Execute(sReallyDo)ytU中国设计秀
    '//将图片地址存入数组ytU中国设计秀
    For Each cMatch in oMatchesytU中国设计秀
        iReallyDo = iReallyDo + 1ytU中国设计秀
        ReDim PReserve aReallyDo(iReallyDo)ytU中国设计秀
        aReallyDo(iReallyDo) = regEx.Replace(cMatch.Value, "$2")ytU中国设计秀
    NextytU中国设计秀
    getIMG = aReallyDoytU中国设计秀
End FunctionytU中国设计秀
%>ytU中国设计秀

<%ytU中国设计秀
'用法:很多人都问我怎么用,其实数组怎么用的这个就怎么用.ytU中国设计秀
sContent = "HTML代码字段" '//sContent代表Html代码，原来写个ors怎么就不懂是记录集呢。。。ytU中国设计秀
Dim aImages : aImages = GetImg(sContent) '//定义一个数组,并且用来存放所有分析到的图片地址ytU中国设计秀
'列出所有图片的地址:ytU中国设计秀
For i = 0 To UBound(aImages)ytU中国设计秀
    Response.Write("<b>第" & i + 1 & "张图片地址:</b> " & aImages(i) & "<br />")ytU中国设计秀
NextytU中国设计秀
'列出第一张图片地址:ytU中国设计秀
If UBound(aImages)> -1 Then Response.Write("<p><b>第一张图片地址:</b> " & aImages(0) & "</p>")ytU中国设计秀
'列出最后一张图片地址:ytU中国设计秀
If UBound(aImages)> -1 Then Response.Write("<p><b>最后一张图片地址:</b> " & aImages(UBound(aImages)) & "</p>")ytU中国设计秀
%>ytU中国设计秀