28,391
社区成员
发帖
与我相关
我的任务
分享用过xmlhttp的请进?
尝试用asp页面的xmlhttp返回个一html页面的全部代码,但才突然发现xmlhttp对象解释不了中文,但我想读出里面的中文字符串,怎么办?还有没有其他的做法吗?就是页面不用访问html页面!!
谢谢大家!!!!!!!!!!!!!!!!!!!!
谢谢大家!!!!!!!!!!!!!!!!!!!!
...全文
请发表友善的回复…
发表回复
笨笨兔兔兔兔兔 2005-04-20
- 打赏
- 举报
有个转换的函数
<html>
<head>
<%
Dim objXMLHTTP, xml
Set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET","http://localhost/website/manageindex.htm", False
xml.Send
Function bin2str(binstr)
Dim varlen,clow,ccc,skipflag
'中文字符Skip标志
skipflag=0
ccc = ""
If Not IsNull(binstr) Then
varlen=LenB(binstr)
For i=1 To varlen
If skipflag=0 Then
clow = MidB(binstr,i,1)
'判断是否中文的字符
If AscB(clow) > 127 Then
'AscW会把二进制的中文双字节字符高位和低位反转，所以要先把中文的高低位反转
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
skipflag=1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag=0
End If
Next
End If
bin2str = ccc
End Function
function utf2str(binstr)
end function
%>
</head>
<body>
<%
response.Write bin2str(xml.responseText)
%>
</body>
</html>
<html>
<head>
<%
Dim objXMLHTTP, xml
Set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET","http://localhost/website/manageindex.htm", False
xml.Send
Function bin2str(binstr)
Dim varlen,clow,ccc,skipflag
'中文字符Skip标志
skipflag=0
ccc = ""
If Not IsNull(binstr) Then
varlen=LenB(binstr)
For i=1 To varlen
If skipflag=0 Then
clow = MidB(binstr,i,1)
'判断是否中文的字符
If AscB(clow) > 127 Then
'AscW会把二进制的中文双字节字符高位和低位反转，所以要先把中文的高低位反转
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
skipflag=1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag=0
End If
Next
End If
bin2str = ccc
End Function
function utf2str(binstr)
end function
%>
</head>
<body>
<%
response.Write bin2str(xml.responseText)
%>
</body>
</html>
