XMLHTTP抓取數據時亂碼問題解決選擇自 babyt 的 Blog

- 中國WEB開發者網絡 (http://www.webasp.net)
-- 技術教程 (http://www.webasp.net/article/)
--- XMLHTTP抓取數據時亂碼問題解決選擇自 babyt 的 Blog (http://www.webasp.net/article/17/16800.htm)

-- 作者：未知
-- 發佈日期： 2005-03-03

內碼問題.用這段代碼的吧,我已經改得很精簡了.
'使用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

webasp.net