Obtain remote files
Response. write getHTTPPage ("http://www.111cn.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
--------------------------------------------------------------------
Obtain remote HTML file source code
<Html>
<Head>
<Meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<Meta name = "GENERATOR" content = "Microsoft FrontPage 5.0">
<Meta name = "ProgId" content = "FrontPage. Editor. Document">
</Head>
<Body>
<Div id = "demo"> <div style = "width: 677; height: 70">
</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
