谁能帮我这段vbscript改为javascript?

XCL6996 2005-01-11 08:02:59
<script language="vbscript">
Sub sendData() '当点击“保存”按钮时触发;
Dim objXML, objXSL, objFSO,strFile, strFileName, strXSL,strURL,TheForm
strURL="/web/ac.jsp?th=aaa&da=c"
Set objXML =CreateObject("Microsoft.XMLHTTP") '创建MS的XMLHTTP组件;
objXML.Open "post",strURL,false '采用Post提交方式;
objXML.send ' 发送信息
xmlGet = objXML.responsebody '稍等片刻后,得到服务器端传回来的结果;
alert bytes2BSTR(xmlGet)
Set objXML = Nothing
end sub

Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,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>
...全文
59 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
acco 2005-01-16
http://dotnet.aspx.cc/ShowDetail.aspx
回复
孟子E章 2005-01-12
http://blog.csdn.net/net_lover
回复
孟子E章 2005-01-12
http://dotnet.aspx.cc/ShowDetail.aspx?id=6DDF3C72-F29C-43D3-C2A8-2444CF98FBED
回复
相关推荐
发帖
JavaScript
创建于2007-09-28

8.5w+

社区成员

Web 开发 JavaScript
申请成为版主
帖子事件
创建了帖子
2005-01-11 08:02
社区公告
暂无公告