Foxtable(狐表) → 用户栏目 → 专家坐堂 → 可不可以做个表，记录每个用户每天进入了哪些网页，


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

主题：可不可以做个表，记录每个用户每天进入了哪些网页，
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107727 积分：547968 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/16 10:59:00 [显示全部帖子]

Select Case e.Path
    Case "test.htm"
dim r as row = tables("记录表")
r("用户") = e.cookie("用户名称")
r("网页") = "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","登录")
            .AddInput("xm","户名","text")
            .AddInput("pw","密码","password")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107727 积分：547968 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/16 11:25:00 [显示全部帖子]

每一个页面里

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107727 积分：547968 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/16 13:41:00 [显示全部帖子]

嗯，AddNew

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107727 积分：547968 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/16 15:32:00 [显示全部帖子]

用find根据自己需要的条件查询，然后+1，比如

Dim dr As DataRow
dr = DataTables("订单").Find("数量 > 1000","日期 Desc")
If dr IsNot Nothing Then '如果找到的话
   dr("次数") = dr("次数")+ 1
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107727 积分：547968 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/25 13:33:00 [显示全部帖子]

没有符合条件的数据

msbox("  日期 = '" & Date.Today & "' And  用户= '" & e.Cookies("username") & "' And  网址='销售条码内容.htm' ")
[此贴子已经被作者于2022/4/25 13:33:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107727 积分：547968 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/25 13:59:00 [显示全部帖子]

肯定没有

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107727 积分：547968 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/25 14:00:00 [显示全部帖子]

dr("网址") = " 销售条码内容.htm"

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107727 积分：547968 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/25 14:10:00 [显示全部帖子]

请上传实例说明

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107727 积分：547968 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/25 15:15:00 [显示全部帖子]

如果是SqlServer，到数据库里把备注列从ntext改为nvarchar(max)

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询