'使用XMLHTTP抓取地址并进次内容处理
Function GetBody(Url)
??Dim objXML
??????? On Error Resume Next
??????? Set objXML = CreateObject("Microsoft.XMLHTTP")
??????? With objXML
??????? .Open "Get", Url, False, "", ""
??????? .Send
??????? GetBody = .ResponseBody
??????? End With
??????? GetBody=BytesToBstr(GetBody,"GB2312")
??????? Set objXML = Nothing
End Function
'使用Adodb.Stream处理二进制数据
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
Function GetBody(Url)
??Dim objXML
??????? On Error Resume Next
??????? Set objXML = CreateObject("Microsoft.XMLHTTP")
??????? With objXML
??????? .Open "Get", Url, False, "", ""
??????? .Send
??????? GetBody = .ResponseBody
??????? End With
??????? GetBody=BytesToBstr(GetBody,"GB2312")
??????? Set objXML = Nothing
End Function
'使用Adodb.Stream处理二进制数据
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