狼翔天地

之前我們提供過一個server時間獲取至客戶端的方法，很多用戶看過對我反映這樣的做法服務器的壓力很大，今天就換一個方式來操作，我們不主動定時不斷刷新去獲取時間，而是一次性去服務器時間和本地時間的時間差進行計算來顯示server端的時間到客戶端上。

操作代碼如下：



">

            Dim secondDiff

            Sub UpdateTime()

                serverTime.innerText = DateAdd("s", secondDiff, Now())

            End Sub

     

            Sub SetTime(serverDateTime) 

                clientDateTime = Now()

                secondDiff  = DateDiff("s", clientDateTime, serverDateTime)

                oInterval = setInterval("UpdateTime()", 1000)

            End Sub

          

       

       SetTime("cfoutput>#dateformat(Now(),"yyyy-mm-dd")# #timeformat(Now(),"HH:mm:ss")#cfoutput>")

   

   



引用自：查爾斯實驗室