asp msxml.xmlhttp採集資料並解決亂碼問題

'在asp中要採集資料一般會利用了asp xmlhttp這個組件來執行個體了，很多時候採集過來的中文會是亂碼，我們利用

bytestobstr函數轉換解決了採集亂碼的問題。
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
end if
gethttppage=bytestobstr(http.responsebody,"utf-8")
set http=nothing
if err.number<>0 then
  response.write "<div align='center'><b>www.111cn.net 伺服器擷取檔案內容出錯</b></div>"
  err.clear
end if 
end function
'位元組流轉換為字串
function bytestobstr(body,cset)
dim objstream
set objstream = server.createobject("adodb.stream")
objstream.type = 1
objstream.mode =3
objstream.open
objstream.write body
objstream.position = 0
objstream.type = 2
objstream.charset = cset
bytestobstr = objstream.readtext
objstream.close
set objstream = nothing
end function