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用上边的vbs函数处理你的得到数据
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用上边的vbs函数处理你的得到数据
解决方案 »
- 一个完整的JS焦点图切换源码,不兼容IE内核的浏览器,求高手解决
- client.Width client.Height offsetWidth offsetHeight属性属于哪个?
- 求教各位高手,如何让定了长宽的img图片不拉伸变形?
- 请问给表格填充数据的方法
- 急问做一个这样的网站用的何种语言!需要多少费用!
- Jquery能实现对文本自动识别么?
- 【求助】如何把一个div从一个浏览器窗口拖到另外一个浏览器窗口里。
- 为何无响应
- 大家来说说都用什么工具去写html。js这些web前端的
- 关于滚动字幕的小问题
- 关于批次处理<input type=image>对象
- 光标离开是触发那个事件啊,详细请见里面,谢谢!
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="JavaScript">
var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP.5.0");
xmlhttp.open("GET", "http://www.163.net/", false);
xmlhttp.send();
alert(bytes2BSTR(xmlhttp.responseBody));
</script>