html工具箱源码,大灰狼的ASP工具箱——XMLHTTP的应用，获得远程的文件，获得远程HTML文件源码...

获得远程的文件

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文件源码

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 = strReturnEnd Function