<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 = strReturnEnd Function
</script>
<script language="javascript">
function a(o){
var xmlhttp=new ActiveXObject("Msxml2.xmlhttp")
xmlhttp.open("GET",o,false)
xmlhttp.send()
var str = bytes2BSTR(xmlhttp.ResponseBody)
alert(str)
}
</script>
url:<input name="u" value="http://www.csdn.net"><input type="button" value="get" onclick="a(u.value)">
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 = strReturnEnd Function
</script>
<script language="javascript">
function a(o){
var xmlhttp=new ActiveXObject("Msxml2.xmlhttp")
xmlhttp.open("GET",o,false)
xmlhttp.send()
var str = bytes2BSTR(xmlhttp.ResponseBody)
alert(str)
}
</script>
url:<input name="u" value="http://www.csdn.net"><input type="button" value="get" onclick="a(u.value)">
解决方案 »
- highcharts中x轴的刻度的距离如何设置
- js向文档中写数据 不懂 求助帮忙 谢谢
- 关于方法jquery.contains(container, contained)
- JavaScript OnMouseOut事件
- 有个超链接 像点击提交到一个servlet
- 杭州高速发展中的互联网公司诚聘.net开发工程师、技术经理!!!有意者加QQ:38908802
- 谁对ICAST技术有过研究的?就是新浪右下角弹出的那个视频播放的窗口?
- 一个对汉字下拉列表的排序,有个Bug,100分求助
- 怎么控制层在800*600和1024*768下保持一样的位置
- zTree怎么在页面刚打开的时候设置一级目录默认打开
- 如何用JAVASCRIPT或VBSCRIPT生成一个socket连接
- 一个不显眼的问题
function onDownloadDone(s) { alert (s); }
</SCRIPT><IE:Download ID="oDownload" STYLE="behavior:url(#default#download)" />
<P>Click <A HREF="javascript:oDownload.startDownload('download.htm',
onDownloadDone)">here</A> to download this page.