<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script type="text/vbscript">
Function bytes2BSTR(vIn)
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
</script>
<script type="text/javascript" charset="GB2312">
var xmlHttp;
if(window.XMLHttpRequest)
xmlHttp = new XMLHttpRequest();
else if(window.ActiveXObject)
xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
if(xmlHttp)
{
xmlHttp.open("GET","http://news.sina.com.cn/iframe/weather/620101.html",true);
xmlHttp.onreadystatechange = callback;
xmlHttp.send(null);
}
function callback(){
if(xmlHttp.readyState == 4 && xmlHttp.status == 200)
{
alert(bytes2BSTR(xmlHttp.responseBody));
document.getElementById("tqyb").innerHTML =bytes2BSTR(xmlHttp.responseBody);
}
}
</script>
</head>
<body>
<div id="tqyb"></div>
</body>