用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 相关文章推荐
高性能web开发 如何加载JS,JS应该放在什么位置?
May 14 Javascript
js中for in语句的用法讲解
Apr 24 Javascript
JS集成fckeditor及判断内容是否为空的方法
May 27 Javascript
JavaScript中style.left与offsetLeft的使用及区别详解
Jun 08 Javascript
ReactNative-JS 调用原生方法实例代码
Oct 08 Javascript
Angular.js基础学习之初始化
Mar 10 Javascript
5分钟打造简易高效的webpack常用配置
Jul 04 Javascript
微信小程序车牌号码模拟键盘输入功能的实现代码
Nov 11 Javascript
微信小程序--获取用户地理位置名称(无须用户授权)的方法
Apr 29 Javascript
微信小程序收货地址API兼容低版本解决方法
May 18 Javascript
jquery ui 实现 tab标签功能示例【测试可用】
Jul 25 jQuery
js canvas实现星空连线背景特效
Nov 01 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
星际争霸 Starcraft 编年史
2020/03/14 星际争霸
win7下memCache的安装过程(具体操作步骤)
2013/06/28 PHP
简单实用的PHP防注入类实例
2014/12/05 PHP
PHP常见过waf webshell以及最简单的检测方法
2019/05/21 PHP
Laravel 实现在Blade模版中使用全局变量代替路径的例子
2019/10/22 PHP
JS字符串累加Array不一定比字符串累加快(根据电脑配置)
2012/05/14 Javascript
js的.innerHTML = &quot;&quot;IE9下显示有错误的解决方法
2013/09/16 Javascript
js中this的用法实例分析
2015/01/10 Javascript
JavaScript页面模板库handlebars的简单用法
2015/03/02 Javascript
jQuery选择器源码解读(五):tokenize的解析过程
2015/03/31 Javascript
Easyui 之 Treegrid 笔记
2016/04/29 Javascript
JavaScript中instanceof运算符的使用示例
2016/06/08 Javascript
浅谈Node.js轻量级Web框架Express4.x使用指南
2017/05/03 Javascript
5 种JavaScript编码规范
2018/01/30 Javascript
vue-resource请求实现http登录拦截或者路由拦截的方法
2018/07/11 Javascript
小程序云开发部署攻略(图文教程)
2018/10/30 Javascript
如何使用less实现随机下雪动画详解
2019/01/02 Javascript
nodejs使用node-xlsx生成excel的方法示例
2019/08/22 NodeJs
微信小程序国际化探索实现(附源码地址)
2020/05/20 Javascript
vuex存取值和映射函数使用说明
2020/07/24 Javascript
Vue的v-model的几种修饰符.lazy,.number和.trim的用法说明
2020/08/05 Javascript
vue 解决IOS10低版本白屏的问题
2020/11/17 Javascript
python基础教程之python消息摘要算法使用示例
2014/02/10 Python
Python实现matplotlib显示中文的方法详解
2018/02/06 Python
python队列Queue的详解
2019/05/10 Python
OPPO手机官方商城:中国手机市场出货量第一品牌
2017/10/18 全球购物
匡威德国官网:Converse德国
2019/01/26 全球购物
南京某软件公司的.net面试题
2015/11/30 面试题
能否解释一下XSS cookie盗窃是什么意思
2012/06/02 面试题
2014年档案管理员工作总结
2014/12/01 职场文书
终止劳动合同通知书
2015/04/16 职场文书
工作总结之小学教师体育工作范文(3篇)
2019/10/07 职场文书
golang 生成对应的数据表struct定义操作
2021/04/28 Golang
Java spring定时任务详解
2021/10/05 Java/Android
Win11跳过联网界面创建本地管理账户的3种方法
2022/04/20 数码科技
MySQL sql模式设置引起的问题
2022/05/15 MySQL