|
用ADODB.Stream转换,用streamtochar这个函数
<HTML> <html> <head> <META http-equiv="Content-Type" content="text/html; charset=Big5"> <title>test</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> |
|