用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 相关文章推荐
基于jquery的超简单上下翻
Apr 20 Javascript
JS鼠标事件大全 推荐收藏
Nov 01 Javascript
面向对象的Javascript之二(接口实现介绍)
Jan 27 Javascript
12种不宜使用的Javascript语法整理
Nov 04 Javascript
Javascript 实现简单计算器实例代码
Oct 23 Javascript
学习使用Bootstrap栅格系统
May 11 Javascript
微信小程序录音与播放录音功能
Dec 25 Javascript
解决vue处理axios post请求传参的问题
Mar 05 Javascript
js获取html页面代码中图片地址的实现代码
Mar 05 Javascript
JS中的JSON对象的定义和取值实现代码
May 09 Javascript
vue实现微信分享功能
Nov 28 Javascript
解决node-sass偶尔安装失败的方法小结
Dec 05 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
操作Oracle的php类
2006/10/09 PHP
php递归获取目录内文件(包含子目录)封装类分享
2013/12/25 PHP
PHP实现给定一列字符,生成指定长度的所有可能组合示例
2019/06/22 PHP
基于Jquery的文字滚动跑马灯插件(一个页面多个滚动区)
2010/07/26 Javascript
基于jQuery架构javascript基础体系
2011/01/01 Javascript
JQuery自适应IFrame高度(支持嵌套 兼容IE,ff,safafi,chrome)
2011/03/28 Javascript
JQuery中extend使用介绍
2014/03/13 Javascript
PHP中CURL的几个经典应用实例
2015/01/23 Javascript
Js制作点击输入框时默认文字消失的效果
2015/09/05 Javascript
JavaScript使用DeviceOne开发实战(四)仿优酷视频应用
2015/12/02 Javascript
jQuery实现的动态文字变化输出效果示例【附演示与demo源码下载】
2017/03/24 jQuery
vue.js简单配置axios的方法详解
2017/12/13 Javascript
nodejs acl的用户权限管理详解
2018/03/14 NodeJs
jQuery实现下拉菜单动态添加数据点击滑出收起其他功能
2018/06/14 jQuery
JavaScript创建对象的四种常用模式实例分析
2019/01/11 Javascript
扫微信小程序码实现网站登陆实现解析
2019/08/20 Javascript
基于Python的XSS测试工具XSStrike使用方法
2017/07/29 Python
Python数据结构之顺序表的实现代码示例
2017/11/15 Python
Python基于xlrd模块操作Excel的方法示例
2018/06/21 Python
pyside+pyqt实现鼠标右键菜单功能
2020/12/08 Python
用Python从0开始实现一个中文拼音输入法的思路详解
2019/07/20 Python
python快速编写单行注释多行注释的方法
2019/07/31 Python
Pytorch之Variable的用法
2019/12/31 Python
Python namedtuple命名元组实现过程解析
2020/01/08 Python
德国购买健身器材:AsVIVA
2017/08/09 全球购物
美国最大的家庭鞋类零售商之一:Shoe Carnival
2017/10/06 全球购物
法国足球商店:Footcenter
2019/07/06 全球购物
医学护理毕业生自荐信
2013/11/07 职场文书
给儿子的表扬信
2014/01/15 职场文书
关于人生的感言
2014/01/17 职场文书
医院领导班子整改方案
2014/10/01 职场文书
中班教师个人总结
2015/02/05 职场文书
2015年高校图书馆工作总结
2015/04/30 职场文书
win10安装配置nginx的过程
2021/03/31 Servers
python本地文件服务器实例教程
2021/05/02 Python
Flask response响应的具体使用
2021/07/15 Python