sub getonlinenum()
    dim objXMLHTTP,strReturn,obj_stream
    set objXMLHTTP=CreateObject("Msxml2.xmlhttp")
    objXMLHTTP.open  "GET","s.asp",false
    objXMLHTTP.send  ""
    strReturn=objXMLHTTP.ResponseBody
    test.innerHTML=bin2str2(strReturn)
   
    set objXMLHTTP=nothing
end sub
</script>  

file2: s.asp
<%Response.Expires=-1
response.ContentType ="text/xml"%>
<?xml version='1.0' encoding='gb2312'?>
<%=now%>

以上是可以用的功能是玩刷新，但是有一问题就是如果输出是中文那就是乱码，

有没有朋友能解决这个问题？我有急用，在此表示深深的感激～！～！～！～！