Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
系统注册的案例中是以次数为标准的
我想以时间为标准代码是怎么写
例如试用期为10天
一样,首次启动记录一下日期,以后每次启动比较这个日期,如果超过10天,就禁止进入。
Dim dt As Date = GetConfigValue("StartDate" & ComputerId, Date.Today) '注意默认值设置为今天,也就是没有记录过日期的话,就返回今天的时间
If dt = Date.Today Then ‘如果日期等于今天,也就是没有记录过日期
SaveConfigValue("StartDate" & ComputerId, dt) ’那么记录如期,就是今天的日期
End If
output.show(dt)