欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

asp取html代码中的所有图片为数组,该如何处理

更新时间: 2014-01-05 00:56:04 责任编辑: Author_N1

 

asp取html代码中的所有图片为数组
<%  

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  

response.write getIMG("&<DIV ALIGN=CENTER><IMG SRC=/UPLOADFILES14/200734194029734.JPG BORDER=0></DIV><DIV ALIGN=CENTER><IMG SRC=/UPLOADFILES14/200734194029734.JPG BORDER=0></DIV>&")
%>


我在网上找到的代码,执行不出来是什么原因?

--参考方法--
response.write参数不能为数组,会报错

arr=getIMG("&<DIV ALIGN=CENTER><IMG SRC=/UPLOADFILES14/200734194029734.JPG BORDER=0></DIV><DIV ALIGN=CENTER><IMG SRC=/UPLOADFILES14/200734194029734.JPG BORDER=0></DIV>&")

for i=0 to ubound(arr)
response.write  arr(i)&"<br/>"
next
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 00:56:04
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/1523/
本文WWW.DOC100.NET DOC100.NET版权所有。