以文本方式查看主题

-  计算机科学论坛  (http://bbs.xml.org.cn/index.asp)
--  『 XML源码及示例(仅原创和转载) 』  (http://bbs.xml.org.cn/list.asp?boardid=32)
----  有没有高手能否帮住我？在此表示感谢！  (http://bbs.xml.org.cn/dispbbs.asp?boardid=32&rootid=&id=16262)

--  作者：yjl8011jm
--  发布时间：3/30/2005 4:44:00 PM

--  有没有高手能否帮住我？在此表示感谢！
file:index.htm

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%>

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

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

W 3 C h i n a ( since 2003 ) 旗 下 站 点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
 113.281ms