用ADODB.Stream转换


Posted in Javascript onJanuary 22, 2007

用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 相关文章推荐
Javascript 面向对象之重载
May 04 Javascript
js正则表达exec与match的区别说明
Jan 29 Javascript
JS二维数组的定义说明
Mar 03 Javascript
一些老手都不一定知道的JavaScript技巧
May 06 Javascript
node中socket.io的事件使用详解
Dec 15 Javascript
javascript实现的右下角弹窗实例
Apr 24 Javascript
jquery预加载图片的方法
May 27 Javascript
值得分享和收藏的Bootstrap学习教程
May 12 Javascript
AngularJS实现动态添加Option的方法
May 17 Javascript
Vue安装浏览器开发工具的步骤详解
May 12 Javascript
微信小程序代码上传、审核发布小程序
May 18 Javascript
微信小程序自定义组件components(代码详解)
Oct 21 Javascript
Web层改进II-用xmlhttp 无声息提交复杂表单
Jan 22 #Javascript
用正则xmlHttp实现的偷(转)
Jan 22 #Javascript
通过MSXML2自动获取QQ个人头像及在线情况(给初学者)
Jan 22 #Javascript
Javascript技术技巧大全(五)
Jan 22 #Javascript
深入认识JavaScript中的函数
Jan 22 #Javascript
Ajax::prototype 源码解读
Jan 22 #Javascript
showModalDialog 和 showModelessDialog
Jan 22 #Javascript
You might like
php 数组二分法查找函数代码
2010/02/16 PHP
php将url地址转化为完整的a标签链接代码(php为url地址添加a标签)
2014/01/17 PHP
PHP针对常规模板引擎中与CSS/JSON冲突的解决方法
2014/08/19 PHP
Laravel 在views中加载公共页面的实现代码
2019/10/22 PHP
利用XMLHTTP传递参数在另一页面执行并刷新本页
2006/10/26 Javascript
一个JS小玩意 几个属性相加不能超过一个特定值.
2009/09/29 Javascript
兼容多浏览器的iframe自适应高度(ie8 、谷歌浏览器4.0和 firefox3.5.3)
2009/11/04 Javascript
jQuery boxy弹出层插件中文演示及使用讲解
2011/02/24 Javascript
jQuery.extend 函数及用法详细
2015/09/06 Javascript
javascript跨域的方法汇总
2015/10/23 Javascript
基于jQuery实现简单的折叠菜单效果
2015/11/23 Javascript
基于Vue+element-ui 的Table二次封装的实现
2018/07/20 Javascript
浅谈angular2子组件的事件传递(任意组件事件传递)
2018/09/30 Javascript
微信小程序制作表格的方法
2019/02/14 Javascript
Node.js之readline模块的使用详解
2019/03/25 Javascript
jQuery实现的鼠标拖动画矩形框示例【可兼容IE8】
2019/05/17 jQuery
微信小程序Echarts覆盖正常组件问题解决
2019/07/13 Javascript
node命令行工具之实现项目工程自动初始化的标准流程
2019/08/12 Javascript
node.js中path路径模块的使用方法实例分析
2020/02/13 Javascript
云服务器部署Node.js项目的方法步骤(小白系列)
2020/03/23 Javascript
js实现上传按钮并显示缩略图小轮子
2020/05/04 Javascript
通过高德地图API获得某条道路上的所有坐标用于描绘道路的方法
2020/08/24 Javascript
基于JavaScript实现简单抽奖功能代码实例
2020/10/20 Javascript
python使用BeautifulSoup分析网页信息的方法
2015/04/04 Python
Python ldap实现登录实例代码
2016/09/30 Python
python查看微信好友是否删除自己
2016/12/19 Python
在Python中使用AOP实现Redis缓存示例
2017/07/11 Python
Python Flask基础教程示例代码
2018/02/07 Python
django 将model转换为字典的方法示例
2018/10/16 Python
关于django python manage.py startapp 应用名出错异常原因解析
2020/12/15 Python
利用CSS3的3D效果制作正方体
2020/03/10 HTML / CSS
阿里巴巴英国:Alibaba英国
2019/12/11 全球购物
会计毕业生自我鉴定
2013/11/04 职场文书
原料仓管员岗位职责
2014/04/12 职场文书
市场总监岗位职责
2015/02/11 职场文书
关于JS中的作用域中的问题思考分享
2022/04/06 Javascript