可以使用xmlhttp获取
即将服务器的时间通过一个asp文件获取,再通过xmlhttp获取

解决方案 »

  1.   

    页面A:
    <script language=JavaScript>
    function getonlinenum()
    {
    var objXMLHTTP=new ActiveXObject("MICROSOFT.XMLHTTP");
    objXMLHTTP.open("GET","b.asp",false);
    objXMLHTTP.send("");
    var strReturn=objXMLHTTP.ResponseText;
    online_num.innerHTML="server time:" + strReturn;
    }
        </script>
        </head>
        <body onload="setInterval('getonlinenum()',1000)">
    <span id=online_num></span>
    ----------------------------------------------------------------------
    b.asp
    <%Response.Expires=-1
    response.ContentType ="text/xml"%>
    <?xml version='1.0' encoding='gb2312'?>
    <%=now()%>
      

  2.   

    index.htm 
    -----------
    <html><head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>新建网页 1</title>
    </head><body>
    <input type=button onclick="showServerTime()" value="serverTime"><script language="javascript">
    <!--
    function showServerTime()
    {
    var oHttp = new ActiveXObject("Microsoft.XMLHTTP");
    oHttp.open("POST","Default.asp",false);
    oHttp.send();
    alert(oHttp.responseText);
    }
    //-->
    </script>
    </body></html>getTime.asp
    ------------------
    <%
    Response.write Now()
    %>
      

  3.   

    笔误 应是
    oHttp.open("POST","getTime.asp",false);
      

  4.   

    用xmlhttp试试.
    服务器端做个程序:
    <%
       set XmlDoc=Server.CreateObject("MSXML2.DOMDocument")
       XmlDoc.load Request
       IsGetTime = XmlDoc.DocumentElement.ChildNodes(0).GetAttribute("ok")
       if IsGetTime="OK" then
          ReturnInfo(now())//这里是服务器时间
       end if
       function ReturnInfo(sResult)
        xmldoc.loadxml("<span>"&sResult&"</span>")  
        Response.ContentType = "text/xml"
        xmldoc.save(Response)
        Set xmldoc = Nothing  
       end function
    %>
    客户端:
    sURL ="服务器地址";
    sXML = "<root name='root'><element name='ok'/></root>"
    var xmlhttpother = new ActiveXObject("Msxml2.XMLHTTP")
    xmlhttpother.Open("POST", sURL, false)
    xmlhttpother.Send(sXML)