Internal Code title. use this code. I have simplified it. the following content is referenced when the XMLHTTP crawling address is used: FunctionGetBody (Url) DimobjXMLOnErrorResumeNextSetobjXML = CreateObject (Microsoft. XMLHTTP) Wi
Internal Code Title. use this code. I have simplified it.
Apply XMLHTTP to capture the address and process the content concurrently
Reference content is as follows:
Function GetBody (Url)
Dim objXML
On Error Resume Next
Set objXML = CreateObject ("Microsoft. XMLHTTP ")
With objXML
. Open "Get", Url, False ,"",""
. Send
GetBody =. ResponseBody
End
GetBody = BytesToBstr (GetBody, "GB2312 ")
Set objXML = Nothing
End Function
Use Adodb. Stream to process binary data
Reference content is as follows:
Function BytesToBstr (strBody, CodeBase)
Dim objStream
Set objStream = Server. CreateObject ("Adodb. Stream ")
ObjStream. Type = 1
ObjStream. Mode = 3
ObjStream. Open
ObjStream. Write strBody
ObjStream. Position = 0
ObjStream. Type = 2
ObjStream. Charset = CodeBase
BytesToBstr = objStream. ReadText
ObjStream. Close
Set objStream = nothing
End Function