推荐阅读
用JavaScript和注册表脚本实现右键收藏Web页选中文本
前两天在网上发现一个很好的站点，是用来做资料收藏的(http://wolf.360doc.com)。 这个网站提供了这么一个功能，可以直接将你选中的文字收藏起来，当时觉得很神奇的。后来研究了一下，发现用JavaScript和注册表>>>详细阅读
本文标题：用ADODB.Stream转换
地址：http://www.17bianji.com/kaifa2/JS/31035.html
1/2 1
用ADODB.Stream转换
作者： 来源：www.28hudong.com 2013-03-30 03:46:54 阅读次 我要评论
用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>
关键词： 探索发现
乐购科技部分新闻及文章转载自互联网，供读者交流和学习，若有涉及作者版权等问题请及时与我们联系，以便更正、删除或按规定办理。感谢所有提供资讯的网站，欢迎各类媒体与乐购科技进行文章共享合作。
网友点评
精彩导读
科技快报
品牌展示© 2013-2016 IT技术 京ICP备11016124号-4
京公网安备 11011202000261号