• 注册
  • 关于作者
    企业认证:趣记站长
    关注 6 粉丝 4 喜欢 9 内容 992
    江西省·南昌市
    聊天 送礼
    • 查看作者
    • 用ASP取出HTML里面的图片地址的函数

          用ASP取出HTML里面的图片地址的函数主要原理就是用正则判断的属性。这在采集程序中将非常有用。

        函数如下:

      以下是引用片段:

      Function ShowPic(str)  

        Set objRegExp = New Regexp'设置配置对象   

        objRegExp.IgnoreCase = True'忽略大小写   

        objRegExp.Global = True'设置为全文搜索   

        objRegExp.Pattern = "<img.+?>"  

        '为了确保能准确地取出图片地址所以分为两层配置:首先找到里面的<img>标签,

      巧用ASP技术保护DHTML源代码
      ASP错误处理,ASP网站防范黑客技巧,巧用ASP技术保护DHTML源代码,用ASP取出HTML里面的图片地址的函数,ASP实现网页打开任何类型文件都保存,ASP木马Webshell安全解决办案,几招让你的网站免受采集之苦,ASP使用MYSQL数据库全攻略,Ad Rotator 组件参考,在Asp中使用存储过程数值类型值,asp防止同时登陆的问题,使用ASP重启服务器,在ASP程序中实现数据库事务控制,深入理解ASP中FSO的神奇功能,Asp中一些FSO方面的函数,用ASP编程实现网络内容快速查找,ASP实现文件直接下载,Adodb.Stream 组件的使用说明,全国省市县无刷新多级关联菜单,ASP上两个防止SQL注入式攻击Function
      ASP

      然后再取出里面的图片地址后面的getimgs函数就是实现后一个功能的。   

      strs=trim(str)   

      Set Matches =objRegExp.Execute(strs)'开始执行配置   

      For Each Match in Matches   

      RetStr = RetStr &getimgs( Match.Value )'执行第二轮的匹配   

      Next   

      ShowPic = RetStr  

      End Function  

      Function getimgs(str)   

      getimgs=""   

      Set objRegExp1 = New Regexp   

      objRegExp1.IgnoreCase = True   

      objRegExp1.Global = True   

      objRegExp1.Pattern = "http://.+?"""'取出里面的地址   

      set mm=objRegExp1.Execute(str)   

      For Each Match1 in mm   

      getimgs=getimgs&left(Match1.Value,len(Match1.Value)-1)&"||"'把里面的地址串起来备用   

      next   

      End Function   

      '取得图片内容  

      function getHTTPPage(url)   

      on error resume next   

      dim http   

      set http=server.createobject("MSXML2.XMLHTTP")'使用xmlhttp的方法来获得图片的内容   

      Http.open "GET",url,false   

      Http.send()   

      if Http.readystate<>4 then   

      exit function   

      end if   

      getHTTPPage=Http.responseBody   

      set http=nothing   

      if err.number<>0 then err.Clear   

      end function   

      '保存图片  

      function saveimage(from,tofile)   

      dim geturl,objStream,imgs   

      geturl=trim(from)   

      imgs=gethttppage(geturl)'取得图片的具休内容的过程   

      Set objStream = Server.CreateObject("ADODB.Stream")'建立ADODB.Stream对象,必须要ADO 2.5以上版本   

      objStream.Type =1'以二进制模式打开   

      objStream.Open   

      objstream.write imgs'将字符串内容写入缓冲   

      objstream.SaveToFile server.mappath(tofile),2'-将缓冲的内容写入文件   

      objstream.Close()'关闭对象   

      set objstream=nothing   

      end function   

      '调用实例  

      Dim strpic,i,fname  

      strpic = ShowPic("<DIV align=center><IMG src=""图片地址"" border=0></DIV>")  

      strpic = Split(strpic,"||")  

      If UBound(strpic) > 0 Then   

      For i = 0 To UBound(strpic) - 1  

      '保存图片  

      fname=cstr(i&mid(strpic(i),instrrev(strpic(i),".")))   

      saveimage(strpic(i),fname)  

      Next  

      Else  

      End If  

      ASP网站防范黑客技巧
      ASP错误处理,ASP网站防范黑客技巧,巧用ASP技术保护DHTML源代码,用ASP取出HTML里面的图片地址的函数,ASP实现网页打开任何类型文件都保存,ASP木马Webshell安全解决办案,几招让你的网站免受采集之苦,ASP使用MYSQL数据库全攻略,Ad Rotator 组件参考,在Asp中使用存储过程数值类型值,asp防止同时登陆的问题,使用ASP重启服务器,在ASP程序中实现数据库事务控制,深入理解ASP中FSO的神奇功能,Asp中一些FSO方面的函数,用ASP编程实现网络内容快速查找,ASP实现文件直接下载,Adodb.Stream 组件的使用说明,全国省市县无刷新多级关联菜单,ASP上两个防止SQL注入式攻击Function
      ASP

    • 0
    • 0
    • 0
    • 76
    • 单栏布局 侧栏位置: