xmlhttp.ResponseText 不能显示中文

guostong 2004-01-07 05:09:13

在浏览器中直接输入"http://192.168.0.1/verify.php?u=test" 结果为

0|||2361|||有风无月

显示中文没问题

但是在程序中
set xmlhttp= server.createobject("Msxml2.xmlhttp")
l_temp = "http://192.168.0.1/verify.php?u=test"
xmlhttp.open "GET",l_temp,false
xmlhttp.send
response.write xmlhttp.ResponseText

输出：0|||2361|||????

如何得到这些中文？

...全文

209 24 打赏收藏转发到动态举报

写回复

用AI写文章

24 条回复

切换为时间正序

请发表友善的回复…

发表回复

guostong 2004-01-08

打赏
举报

我的 web server 是英文的

yangzixp 2004-01-08

打赏
举报

支持 xieyj(Free Fish

guostong 2004-01-08

打赏
举报

bytes2BSTR 转换

response.write bytes2BSTR(xmlhttp.Responsebody)
response.write "<br>"
response.write bytes2BSTR(xmlhttp.ResponseText)
response.write "<br>"
response.write xmlhttp.ResponseText

结果是
0|||2361|||
0
0|||2361|||????
中文没了，连?都没了

潜水的鱼 2004-01-07

打赏
举报

up，偶也有同样的问题，

nchen123 2004-01-07

打赏
举报

只要浏览器支持 vbscript ，应该不会有错。

DeltaCat 2004-01-07

打赏
举报

那用另一种转换方法吧

DeltaCat 2004-01-07

打赏
举报

那个转换函数报错吗？

nchen123 2004-01-07

打赏
举报

alexzhang00(三角猫(sjcatsoft)) ,

这个问题应该可以从两个不同的方面来解决，
一个是我说的通过客户端来转换编码，不过这样做效率低，
另一个就是你的方法，直接在输出的时候服务器断就指定相应的 header

guostong 2004-01-07

打赏
举报

php 是别人给的接口，我动不了

DeltaCat 2004-01-07

打赏
举报

我的方法你用了没有？
在 verify.php头上加入：
Header("Content-Type:text/xml;CharSet=GB2312");

bansong 2004-01-07

打赏
举报

PHP里也有response.write

guostong 2004-01-07

打赏
举报

xmlhttp.Charset = "GB2312" 出错
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
出错

离子漂浮物 2004-01-07

打赏
举报

set xmlhttp= server.createobject("Msxml2.xmlhttp")
l_temp = "http://192.168.0.1/verify.php?u=test"
xmlhttp.open "GET",l_temp,false
xmlhttp.send
xmlhttp.Charset = "GB2312"'## 添加这一行 ##
response.write xmlhttp.ResponseText

试试行不行

swich 2004-01-07

打赏
举报

学习

bansong 2004-01-07

打赏
举报

inelm(Archimond 【阿克蒙德】)
前一个方法可以用 :)

DeltaCat 2004-01-07

打赏
举报

晕，再纠正一下，再PHP4里，请用下面的

Header("Content-Type:text/xml;CharSet=GB2312");

DeltaCat 2004-01-07

打赏
举报

不知道大家在说什么，楼主写的是PHP，不是ASP

DeltaCat 2004-01-07

打赏
举报

不好意思，ASP用的太多了，上面写错了，是

Header("Content-Type:text/xml");

Header("CharSet:GB2312");

xieyj 2004-01-07

打赏
举报

请将结果使用以下函数转换：
'字符转换
Function bytes2BSTR(vIn)
On Error Resume Next
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 = strReturn
End Function

DeltaCat 2004-01-07