vb中调用MSXML2.ServerXMLHTTP50的responseText,中文返回的是乱码,how?

signboy 2004-06-29 03:27:09
Dim objHTTP As New MSXML2.ServerXMLHTTP50 ' MSXML.XMLHTTPRequest

Dim objXMLReceive As New MSXML2.DOMDocument50

Dim objXMLSend As New MSXML2.DOMDocument50
objXMLSend.loadXML "<?xml version=""1.0"" encoding=""gb2312""?><report>你好</report>"
objHTTP.Open "POST", "http://localhost:8081/businesscompass/manager?op=excel_getdata", False
'objHTTP.setRequestHeader "Content-Type", "text/xml"
objHTTP.send objXMLSend

Debug.Print objHTTP.responseXML.xml
objXMLReceive.loadXML objHTTP.responseText

上述代码,服务器端如果返回中文,则是乱码,怎么办
...全文
528 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
signboy 2004-06-29
  • 打赏
  • 举报
回复
真失败,两天的功夫,刚研究出来,答案也出来了
online 2004-06-29
  • 打赏
  • 举报
回复
为什么,我用ResponseXml返回的是空的
在服务端的页面中需要指定
Response.ContentType = "text/xml"


但是用ResponseText去有数据,但是是乱码
指定<%@codepage=936 %>




signboy 2004-06-29
  • 打赏
  • 举报
回复
为什么,我用ResponseXml返回的是空的,但是用ResponseText去有数据,但是是乱码
online 2004-06-29
  • 打赏
  • 举报
回复
http://localhost:8081/businesscompass/manager中需要有

<?xml version="1.0" encoding="gb2312"?>
<Response>
<retval><%=retval%></retval>
</Response>


我的客户端使用了
Set ResponseXml = httpRequest.ResponseXml
strretval = ResponseXml.selectSingleNode("//retval").Text
MsgBox strretval
来接受

1,502

社区成员

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧