支持圖書館互聯網
支持庫規範
子程序需要網絡時間。
局部變量源代碼，文本類型
。局部變量想要找到文本，文本類型。
。本地變量日期，文本類型
。當局部變量很小時，文本類型。
。本地變量分鐘，文本類型
。局部變量秒，文本類型
局部變量的臨時存儲時間，日期時間類型
局部變量的時差，整數類型
。局部變量的臨時數組，文本類型，“0”
'臨時保存時間=取當前時間()'取啟動時的時間，因為啟動後讀取網頁會浪費壹些時間，所以取出來並不準確。這是為了更準確地使用。
源代碼=到文本(HTTP讀取文件("/stime.asp "))
。如果為真(源代碼= " ")
Return()
如果真的結束了。
正在查找text = "document。寫(' 20 ')
日期=文本中間(源代碼，找文本(源代碼，找文本，真)+16，14)
如果為真(取文本右側(日期，2)≦“日”)
臨時數組=分割文本(日期，“日”，)
日期=臨時數組[1]+"日"
如果真的結束了。
正在尋找text = "varhrs = "
小時=取正文中間(源碼，找正文(源碼，找正文，真)+10，2)
尋找text = "var min = "
分鐘=取正文中間(源碼，找正文(源碼，找正文，真)+10，2)
尋找text = "var sec = "
秒=取正文中間(源碼，找正文(源碼，找正文，真)+10，2)
時間差=取時間間隔(取當前時間()，暫存時間，#秒)'因為開機後讀取網頁會浪費壹些時間，所以不允許取出。這是為了更準確地使用。
北京時間=到達時間(日期+小時+":"+分鐘+":"+秒)
北京時間=增減時間(北京時間，#秒，時差)
調試輸出(北京時間，1)
如果為真(北京時間≦[000年65438+65438+10月1])
設置當前時間(北京時間)