什么只计算/不计算+ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 什么只计算/不计算+

共有2885人关注过本帖树形打印复制链接主题：什么只计算/不计算+

qazlinle6

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2021/8/7 17:26:00 [只看该作者]

Static UserTable As DataTable '定义一个变量,用于存储用户随机身份ID,以及最后一次活动时间.

Static ClearTime As Date

If UserTable Is Nothing Then '创建用于记录登录信息的临时表

ClearTime = Date.Now()

Dim dtb As New DataTableBuilder("UserInfos")

dtb.AddDef("UserName", Gettype(String), 16)

dtb.AddDef("UserID",Gettype(String),16)

dtb.AddDef("ActiveTime",Gettype(Date))

UserTable = dtb.Build(True)

End If

If (Date.Now - ClearTime).TotalMinutes >= 2 Then '清除超过30分钟没有操作的登录信息

UserTable.DeleteFor("ActiveTime < #" & Date.Now.AddMinutes(-2) & "#")

ClearTime = Date.Now()

End If

这个不可以改吗

有点蓝

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107689 积分：547766 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/8/7 17:39:00 [只看该作者]

Dim wb As New weui

If (Date.Now - ClearTime).TotalMinutes >= 2 Then '清除超过30分钟没有操作的登录信息

  wb.InsertHTML("<meta http-equiv='Refresh' content='0; url=/default.htm'>") '直接跳转到首页
    e.WriteString(wb.Build) '生成网页
    Return '必须的

End If

qazlinle6

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2021/8/7 17:52:00 [只看该作者]

你这个是改成这样，还是上面不要了只留这一段吗

[此贴子已经被作者于2021/8/7 18:13:34编辑过]

有点蓝

小大 24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107689 积分：547766 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/8/8 20:06:00 [只看该作者]

只是改这段

If (Date.Now - ClearTime).TotalMinutes >= 2 Then '清除超过30分钟没有操作的登录信息

UserTable.DeleteFor("ActiveTime < #" & Date.Now.AddMinutes(-2) & "#")

ClearTime = Date.Now()

End If

下一主题 >> << 上一主题

总数 24 上一页 1 2 3

主题：什么只计算/不计算+