大灰狼的ASP工具箱——XMLHTTP的应用，获得远程的文件，获得远程

2022-07-15 80酷酷网 80kuku.com

　　xml|xml

获得远程的文件

response.write getHTTPPage("http://www.csdn.net")

function getHTTPPage(url)
on error resume next
dim http
set http=Server.createobject("Msxml2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then exit function
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function

Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
   strReturn = strReturn & Chr(ThisCharCode)
Else
   NextCharCode = AscB(MidB(vIn,i+1,1))
   strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
   i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function

--------------------------------------------------------------------

获得远程HTML文件源码

<html>

</body>

</html>
<script language=vbscript>
sub b3_onclick
Dim objXMLHTTP, xml
Set xml = CreateObject("Microsoft.XMLHTTP")

xml.Open "GET", "http://192.168.8.15:7001/wap_manage/login.asp", False
' Pull the data from the web page
xml.Send
'demo.innerhtml= xml.responseText
'demo.innertext= xml.responseText
demo.innertext= bytes2BSTR(xml.responsebody)
Set xml = Nothing
end sub

sub d1_select

end sub

Function bytes2BSTR(vIn)
    Dim strReturn
    Dim I, ThisCharCode, NextCharCode
    strReturn = ""
    For I = 1 To LenB(vIn)
        ThisCharCode = AscB(MidB(vIn, I, 1))
        If ThisCharCode < &H80 Then
            strReturn = strReturn & Chr(ThisCharCode)
        Else
            NextCharCode = AscB(MidB(vIn, I + 1, 1))
            strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
            I = I + 1
        End If
    Next
    bytes2BSTR = strReturn
End Function

</script>
<input type="button" value="获取html源码" name="B3">