以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  系统注册  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=12797)

--  作者:youyuweinihao
--  发布时间:2011/9/15 14:31:00
--  系统注册

系统注册的案例中是以次数为标准的

我想以时间为标准代码是怎么写

例如试用期为10天


--  作者:狐狸爸爸
--  发布时间:2011/9/15 14:57:00
--  

一样,首次启动记录一下日期,以后每次启动比较这个日期,如果超过10天,就禁止进入。


--  作者:youyuweinihao
--  发布时间:2011/9/15 15:14:00
--  
就是首次启动记录一下日期不知道怎么写
--  作者:狐狸爸爸
--  发布时间:2011/9/15 15:25:00
--  

Dim dt As Date = GetConfigValue("StartDate" & ComputerId, Date.Today) \'注意默认值设置为今天,也就是没有记录过日期的话,就返回今天的时间
If dt = Date.Today Then ‘如果日期等于今天,也就是没有记录过日期
    SaveConfigValue("StartDate" & ComputerId, dt) ’那么记录如期,就是今天的日期
End If
output.show(dt)