谁能帮我这段vbscript改为javascript?

[XCL6996]

<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>

[孟子E章]

http://dotnet.aspx.cc/ShowDetail.aspx?id=6DDF3C72-F29C-43D3-C2A8-2444CF98FBED

[孟子E章]

http://blog.csdn.net/net_lover

[acco]

http://dotnet.aspx.cc/ShowDetail.aspx