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

[signboy]

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

上述代码，服务器端如果返回中文，则是乱码，怎么办

[online]

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
来接受

[signboy]

为什么，我用ResponseXml返回的是空的，但是用ResponseText去有数据，但是是乱码

[online]

为什么，我用ResponseXml返回的是空的
在服务端的页面中需要指定
Response.ContentType = "text/xml"


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

[signboy]

真失败，两天的功夫，刚研究出来，答案也出来了