用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>
推荐阅读
用JavaScript和注册表脚本实现右键收藏Web页选中文本
前两天在网上发现一个很好的站点,是用来做资料收藏的(http://wolf.360doc.com)。 这个网站提供了这么一个功能,可以直接将你选中的文字收藏起来,当时觉得很神奇的。后来研究了一下,发现用JavaScript和注册表>>>详细阅读
本文标题:用ADODB.Stream转换
地址:http://www.17bianji.com/kaifa2/JS/31035.html
1/2 1