作家
登录

用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>

  推荐阅读

  用JavaScript和注册表脚本实现右键收藏Web页选中文本

前两天在网上发现一个很好的站点,是用来做资料收藏的(http://wolf.360doc.com)。 这个网站提供了这么一个功能,可以直接将你选中的文字收藏起来,当时觉得很神奇的。后来研究了一下,发现用JavaScript和注册表>>>详细阅读


本文标题:用ADODB.Stream转换

地址:http://www.17bianji.com/kaifa2/JS/31035.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)