当前位置:首页 > ASP > 正文内容

ASP截取网页的方法

7年前 (2014-05-18)ASP
Function getHTTPPage(url) 
    dim http 
    set http=Server.createobject("Microsoft.XMLHTTP")
    Http.open "GET",url,false
    Http.send() 
    if Http.readystate<>4 then
       exit function 
    end if 
    if (RegExpTest("utf",http.ResponseText))=1 Then 
        getHTTPPage=http.ResponseText
    else
           Cset="gb2312"
           getHTTPPage=Http.ResponseText
    End if
    set http=nothing
    if err.number<>0 then err.Clear  
End function
Function RegExpTest(patrn, strng)
  Dim regEx, retVal
  Set regEx = New RegExp
  regEx.Pattern = patrn 
  regEx.IgnoreCase = False
  retVal = regEx.Test(strng)
  If retVal Then
    RegExpTest = 1
  Else
    RegExpTest = 0
  End If
End Function
Function GetHtml(PageCode,startstr,overstr) 
    Dim start,over 
    If InStr(PageCode,startstr) > 0 And InStr(PageCode,overstr) > 0 Then    
    start=Instr(1,PageCode,startstr,vbBinaryCompare)+len(startstr) 
    over=Instr(start,PageCode,overstr,vbBinaryCompare)-start 
    GetHtml=Mid(PageCode,start,over) 
    Else
    GetHtml =0
    End If
End Function 
Function BytesToBstr(body,Cset) 
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 = Cset 
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function


扫描二维码推送至手机访问。

版权声明:本文由小祥子的博客发布,如需转载请注明出处。

本文地址:http://www.xiaoxiangzi.com/post/10.html

返回列表

上一篇:新云CMS与财付通、支付宝支付接口说明

没有最新的文章了...

相关文章

新云CMS与财付通、支付宝支付接口说明

新云要与其他支付接口整合,有一点必须注意,那就是声明变量,声明变量是程序员很好的编程习惯。当然在PHP里,变量无需声明,加上$的自然就是变量,所以不存在这个问题。 如何让新云不要这么繁琐的去...