我在这里给大家提供一个比较完善的思路,大家可以把它扩展的更加强大一点。
VBJS内容用作数据转换
文件名-vb.js
CODE:
function bytes2BSTR(vIn)
dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
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
js函数定义调用文件函数
文件名-js.js
CODE:
function loadget(url)//url为调用页面地址
{
var xmlhttp=new ActiveXObject("Msxml2.xmlhttp")
xmlhttp.open("GET",url,false)
xmlhttp.send()
var str = bytes2BSTR(xmlhttp.ResponseBody)
名称.innerHTML=str;
}
调用方法
CODE:
<script language="vbscript" src="vb.js"></script>
<span id="名称"></span><!-- 显示调用结果的位置 -->
<script src="js.js"></script>
<script language="JScript">
loadget("被调用文件的URL")
</script>
有什么不足的地方,欢迎大家指出。
我的主页里面用到了这个方法,地址是:http://www.xiaoqi.net
正在改版中。。
------------------------------------------------------------
有些朋友可能看不太懂的最上面发的代码。可能是乱了一点。
因为我把两个需要调用的SCRIPT存成了单个文件。
下面我把我整理到同一个页面里的代码发给大家。
你们可以复制代码后,存成一个html文件打开看看,代码如下:
CODE:
<html>
<script language="vbscript">
function bytes2BSTR(vIn)
dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
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
</script>
<script language="JScript">
function loadget(url)//url为调用页面地址
{
var xmlhttp=new ActiveXObject("Msxml2.xmlhttp")
xmlhttp.open("GET",url,false)
xmlhttp.send()
var str = bytes2BSTR(xmlhttp.ResponseBody)
xiaoqi.innerHTML=str;
}
</script>
<body>
下面是我调用的百度的首页
<br>
<span id="xiaoqi"></span><!-- 显示调用结果的位置 -->
<script language="JScript">
loadget("http://www.baidu.com")
</script>
<br>
调用结束
</body>
</html>
|