|
Microsoft.XMLHTTP出现乱码解决方案
来源:
互联网
日期:2008-7-26
<% Function bytes2BSTR(arrBytes) strReturn = "" arrBytes = CStr(arrBytes) For i = 1 To LenB(arrBytes) ThisCharCode = AscB(MidB(arrBytes, i, 1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(arrBytes, i+1, 1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End Function
Dim objXMLHTTP, xml Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://www.baidu.com/index.html", False xml.Send
Response.Write bytes2BSTR(xml.responseBody)
Set xml = Nothing %>
更多的Microsoft.XMLHTTP出现乱码解决方案请到论坛查看: http://BBS.TC711.COM
【 双击滚屏 】 【 评论 】 【 收藏 】 【 打印 】 【 关闭 】
来源:
互联网
日期:2008-7-26
|
|
|
|
精品推荐 |
|
|
本月推荐 |
|
|
友情赞助 |
|
|
|