用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 相关文章推荐
JS之小练习代码
Oct 12 Javascript
40个有创意的jQuery图片和内容滑动及弹出插件收藏集之二
Dec 31 Javascript
jQuery 遍历-nextUntil()方法以及prevUntil()方法的使用介绍
Apr 26 Javascript
js中typeof的用法汇总
Dec 12 Javascript
jquery选择器之内容过滤选择器详解
Jan 27 Javascript
javascript实现单击和双击并存的方法
Dec 13 Javascript
浅析JavaScript中的变量复制、参数传递和作用域链
Jan 13 Javascript
yarn与npm的命令行小结
Oct 20 Javascript
微信小程序视图template模板引用的实例详解
Sep 20 Javascript
微信小程序项目总结之点赞 删除列表 分享功能
Jun 25 Javascript
vue 自定义组件的写法与用法详解
Mar 04 Javascript
JavaScript this关键字的深入详解
Jan 14 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 eval函数用法总结
2012/10/31 PHP
PHP程序中使用adodb连接不同数据库的代码实例
2015/12/19 PHP
PHP基于简单递归函数求一个数阶乘的方法示例
2017/04/26 PHP
php实现支持中文的文件下载功能示例
2017/08/30 PHP
ExtJs事件机制基本代码模型和流程解析
2010/10/24 Javascript
JavaScript实现维吉尼亚(Vigenere)密码算法实例
2013/11/22 Javascript
JS window对象的top、parent、opener含义介绍
2013/12/03 Javascript
jquery下拉select控件操作方法分享(jquery操作select)
2014/03/25 Javascript
JSON相关知识汇总
2015/07/03 Javascript
jQuery实现浮动层随浏览器滚动条滚动的方法
2015/09/22 Javascript
jQuery结合CSS制作动态的下拉菜单
2015/10/27 Javascript
Javascript基础知识盲点总结之函数
2016/05/15 Javascript
js改变透明度实现轮播图的算法
2020/08/24 Javascript
JavaScript 中 avalon绑定属性总结
2016/10/19 Javascript
jstree的简单实例
2016/12/01 Javascript
js实现复选框的全选和取消全选效果
2017/01/03 Javascript
Vue引用第三方datepicker插件无法监听datepicker输入框的值的解决
2018/01/27 Javascript
Vue.extend实现挂载到实例上的方法
2019/05/01 Javascript
使用react context 实现vue插槽slot功能
2019/07/18 Javascript
weui中的picker使用js进行动态绑定数据问题
2019/11/06 Javascript
vue项目在线上服务器访问失败原因分析
2020/08/14 Javascript
vant-ui组件调用Dialog弹窗异步关闭操作
2020/11/04 Javascript
下载糗事百科的内容_python版
2008/12/07 Python
Python按行读取文件的实现方法【小文件和大文件读取】
2016/09/19 Python
Python构建图像分类识别器的方法
2019/01/12 Python
python实现词法分析器
2019/01/31 Python
Flask框架钩子函数功能与用法分析
2019/08/02 Python
Keras构建神经网络踩坑(解决model.predict预测值全为0.0的问题)
2020/07/07 Python
python中Pexpect的工作流程实例讲解
2021/03/02 Python
下列程序在32位linux或unix中的结果是什么
2015/01/26 面试题
文科教师毕业的自我评价
2014/01/16 职场文书
11月红领巾广播稿
2014/01/17 职场文书
服务员态度差检讨书
2014/10/28 职场文书
python析构函数用法及注意事项
2021/06/22 Python
为了顺利买到演唱会的票用Python制作了自动抢票的脚本
2021/10/16 Python
MySQL限制查询和数据排序介绍
2022/03/25 MySQL