1. 爱易网页
  2. ASP教程
  3. ASP获取网页全部图片地址并保存到数组.

ASP获取网页全部图片地址并保存到数组.

日期：2011-12-25　 浏览次数：20870 次

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) 

相关资料更多>

  1. asp做的企业站，资料主要不想用优酷相关的视频网站引用，如果实现视频上传
  2. 如何盖住html页面上的SELECT（下拉框）元素
  3. 关于通过vbs类处理模板实现代码与界面分离的程序，建议入精华备查。有演示
  4. asp.net困惑小弟我N久的有关问题，CSDN上提问几周都无人能答，哪位高手来帮帮小弟我！
  5. 改善ASP性能和外观的技巧集锦(转自计算机世界）(-)
  6. 大幅度提高GOOGLE广告点击率和点击价格,该如何解决
  7. 在主页中利用ASP技术实现用户口令的验证
  8. ASP文件的构造说明_ASP正则表达式_ASP教程
  9. 如果有网吧主机的权限 用ASP连接他的数据库 修改里面的数据用Updata可以吗？该怎么解决