解决XMLHTTP Get HTML页面时的中文乱码

日期：10-15 来源：中国设计秀作者：cnwebshow.com

            i = i + 1
        End If
    Next
    bytes2BSTR = strReturn
End Function

Function viewSource1()Wqk中国设计秀
dim XmlHttpWqk中国设计秀
set XmlHttp = CreateObject("Microsoft.XMLHTTP")Wqk中国设计秀
XmlHttp.Open "GET", document.location.href, false Wqk中国设计秀
XmlHttp.setRequestHeader "Content-Type","text/XML" Wqk中国设计秀
XmlHttp.SendWqk中国设计秀
Wqk中国设计秀
dim html Wqk中国设计秀
html = bytes2BSTR(XmlHttp.responseBody)Wqk中国设计秀
msgbox htmlWqk中国设计秀
End FunctionWqk中国设计秀

Function viewSource2()Wqk中国设计秀
dim XmlHttpWqk中国设计秀
set XmlHttp = CreateObject("Microsoft.XMLHTTP")Wqk中国设计秀
XmlHttp.Open "GET", "http://www.google.com", false Wqk中国设计秀
XmlHttp.setRequestHeader "Content-Type","text/XML" Wqk中国设计秀
XmlHttp.SendWqk中国设计秀
Wqk中国设计秀
dim html Wqk中国设计秀
html = bytes2BSTR(XmlHttp.responseBody)Wqk中国设计秀
msgbox htmlWqk中国设计秀
End FunctionWqk中国设计秀

</script>Wqk中国设计秀

<BODY bgcolor=gainsboro style='border:1pt solid white'>Wqk中国设计秀
<TABLE class=text>Wqk中国设计秀
<tr>Wqk中国设计秀
<td class=text>XMLHTTP Get HTML页面时的中文乱码之完全客户端Script解决方案</td>Wqk中国设计秀
</tr>Wqk中国设计秀
<tr>Wqk中国设计秀
<td class=button><button onclick=viewSource1()>查看自身的网页代码</button></td>Wqk中国设计秀
</tr>Wqk中国设计秀
<tr>Wqk中国设计秀
<td class=button><button onclick=viewSource2()>查看google主页代码</button></td>Wqk中国设计秀
</tr> Wqk中国设计秀
</TABLE>Wqk中国设计秀
</BODY>Wqk中国设计秀
</HTML>Wqk中国设计秀