Foxtable(狐表)用户栏目专家坐堂 → 系统注册


  共有9752人关注过本帖树形打印复制链接

主题:系统注册

帅哥哟,离线,有人找我吗?
youyuweinihao
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1890 威望:0 精华:0 注册:2011/6/10 9:12:00
系统注册  发帖心情 Post By:2011/9/15 14:31:00 [只看该作者]

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

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

例如试用期为10天


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/9/15 14:57:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
youyuweinihao
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1890 威望:0 精华:0 注册:2011/6/10 9:12:00
  发帖心情 Post By:2011/9/15 15:14:00 [只看该作者]

就是首次启动记录一下日期不知道怎么写

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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)


 回到顶部