以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]QQServer  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=96546)

--  作者:yupeng
--  发布时间:2017/2/23 0:14:00
--  [求助]QQServer

老师  您好

     我有很多地方要用到服务器的日期,所以就做了一个全局代码。

当用户登录时,写入服务器的当前日期,但是如果用户一直没有下线的话,这个日期就一直不变。

所以我想在服务端写个代码,当时间到00:01时,就把当前日期发送给所有在线用户,用户收到后再保存到全局代码中。

 

请问老师这个思路行不行,还有没有其它的思路。但是不知道服务端的代码要怎样写。谢谢老师


--  作者:有点色
--  发布时间:2017/2/23 1:23:00
--  

方法一:每次都直接访问服务器获取日期

 

http://www.foxtable.com/webhelp/scr/2318.htm

 

方法二:启动的时候,获取服务器时间,赋值给当前电脑

 

Dim d As Date = new Date(2017, 2, 24, 12, 3, 4)
Today = d
TimeOfDay = d

 

方法三:按照你的方法,做一个计时器,检测当前时间,满足,就给在线用户发信息,客户端接收到信息后,修改全局变量的值。


--  作者:yupeng
--  发布时间:2017/2/23 10:59:00
--  
老师 请问这个计时器要怎么做?能不能帮我写下代码,谢谢
--  作者:有点色
--  发布时间:2017/2/23 11:26:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/0657.htm