用ADODB.Stream转换

【 tulaoshi.com - Web开发 】

用ADODB.Stream转换，用streamtochar这个函数

HTML
html
head
META http-equiv="Content-Type" content="text/html; charset=Big5"
titletest/title
SCRIPT LANGUAGE="JavaScript"
!--
window.onerror = function (err) {
return false;
    };

//--
/SCRIPT
script language="vbscript"
!--

'获取地址 
dim sUrl

sUrl="http://www.aastocks.com/chi/Login/Login.asp"
Function streamtochar(StrStream)
   set stream=CreateObject("ADODB.Stream")
       stream.type=1
       stream.Mode=3
       stream.Open 
       stream.Write Strstream
       stream.Position= 0
       stream.Type= 2
       stream.Charset="BIG5"
       streamtochar= stream.ReadText
       stream.Close
   set stream=nothing
End Function

'Function bytes2BSTR(vIn)
' 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

'函数，得到内容
function getContentByUrl(url)

'建立对象
set oXmlHttp = CreateObject("MSXML2.XMLHTTP")

oXmlHttp.open "GET",url,false

oXmlHttp.send

getContentByUrl = streamtochar(oXmlHttp.responseBody)

set oXmlHttp=nothing
end function


'函数，获得网站内容
function getRealContent(url)
sContent = getContentByUrl(url)


getRealContent=sContent
end function


'--
/script
/head
body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"
SCRIPT LANGUAGE=vbscript
!--
str=getRealContent(sUrl)
'document.write "xmp"&str &"/xmp"
'document.write str 
document.write "META http-equiv=""Content-Type"" content=""text/html; charset=Big5"""&str

'--
/SCRIPT
/BODY
/HTML