标签：xmlhttp   乱码   正则表达式   asp   adodb.stream   

Asp 使用 Microsoft.XMLHTTP 抓取网页内容，并过滤需要的内容

Asp 使用 Microsoft.XMLHTTP 抓取网页内容无乱码处理，并过滤需要的内容

示例源码：

","",0,0)
 strBody =Replace(strBody,"（本文首发于","")
 strBody =Replace(strBody,"财富动力网，转载请注明出处。）","")
 strBody =Replace(strBody,"本文首发于，转载请注明出处。）","")
 strBody =Replace(strBody,"财富动力网:http://www.927953.com","")
 strBody =Replace(strBody,"本文首发于","") 
  
 Response.Write RegRemoveHref(strBody)

REM 获取对应网址响应的HTML
Function BytesToBstr(body)
    dim objstream
    set objstream = Server.CreateObject("adodb.stream")
    objstream.Type = 1
    objstream.Mode =3
    objstream.Open
    objstream.Write body
    objstream.Position = 0
    objstream.Type = 2
    objstream.Charset = "UTF-8"

    ‘转换原来默认的UTF-8编码转换成GB2312编码，否则直接用
    ‘XMLHTTP调用有中文字符的网页得到的将是乱码
    BytesToBstr = objstream.ReadText
    objstream.Close
    set objstream = nothing
End Function


REM 使用正则表达式，抓取之内标记的内容
Function GetBody(ConStr,StartStr,OverStr,IncluL,IncluR)
   If ConStr="$False$" or ConStr="" or IsNull(ConStr)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True Then
      GetBody="$False$"
      Exit Function
   End If
   Dim ConStrTemp
   Dim Start,Over
   ConStrTemp=Lcase(ConStr)
   StartStr=Lcase(StartStr)
   OverStr=Lcase(OverStr)
   Start = InStrB(1, ConStrTemp, StartStr, vbBinaryCompare)
   If Start(.+?)"
     
    RegRemoveHref = Replace(ra.replace(HTMLstr,"$1"),"href=""http://www.927953.com""","") 
END Function
%>

Asp 使用 Microsoft.XMLHTTP 抓取网页内容(没用乱码)，并过滤需要的内容,搜素材,soscw.com

Asp 使用 Microsoft.XMLHTTP 抓取网页内容(没用乱码)，并过滤需要的内容

标签：xmlhttp   乱码   正则表达式   asp   adodb.stream   

原文地址：http://blog.csdn.net/yimiyuangguang/article/details/25759149