asp利用Microsoft.XMLHTTP获取页面信息,小偷程序入门

踏浪行歌

使用方法:
getHTTPPage "http://www.ceowen.com/blog/default.asp"
 <%
      function getHTTPPage(url) 
        on error resume next 
        dim http 
        set http=Server.createobject("Microsoft.XMLHTTP") 
        Http.open "GET",url,false 
        Http.send() 
        if Http.readystate<>4 then
            exit function 
        end if 
        getHTTPPage=bytes2BSTR(Http.responseBody) 
        set http=nothing
        if err.number<>0 then err.Clear  
    end function 
    Function bytes2BSTR(vIn) 
        dim strReturn 
        dim i1,ThisCharCode,NextCharCode 
        strReturn = "" 
        For i1 = 1 To LenB(vIn) 
            ThisCharCode = AscB(MidB(vIn,i1,1)) 
            If ThisCharCode < &H80 Then 
                strReturn = strReturn & Chr(ThisCharCode) 
            Else 
                NextCharCode = AscB(MidB(vIn,i1+1,1)) 
                strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
                i1 = i1 + 1 
            End If 
        Next 
        bytes2BSTR = strReturn 
    End Function 
%>