- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 可不可以做个表，记录每个用户每天进入了哪些网页， (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176525)
-- 发布时间：2022/4/16 10:33:00
-- 可不可以做个表，记录每个用户每天进入了哪些网页，
可不可以做个表，记录每个用户每天进入了哪些网页，
-- 发布时间：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
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
-- 发布时间：2022/4/16 11:07:00
--
这个代码放到logon.htm里吗
-- 发布时间：2022/4/16 11:25:00
--
每一个页面里
-- 发布时间：2022/4/16 11:57:00
--
此主题相关图片如下：qq浏览器截图20220416115514.png
dim r as row = tables("记录表")
r("用户") = e.cookie("用户名称")
r("网页") = "test.htm"
条码是不是有错
\'Dim r As DataRow = DataTables("记录表").AddNew()
\'r("用户") = e.Cookies("username")
\'r("网址") =" 销售条码.htm"
是这样的吗
-- 发布时间：2022/4/16 13:41:00
--
嗯，AddNew
-- 发布时间：2022/4/16 14:15:00
--
我加个日期=当天，访问次数一直累加，而不是进一下加一行
什么弄
[此贴子已经被作者于2022/4/16 14:15:16编辑过]
-- 发布时间：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
dr = DataTables("订单").Find("数量 > 1000","日期 Desc")
If dr IsNot Nothing Then \'如果找到的话
dr("次数") = dr("次数")+ 1
End If
-- 发布时间：2022/4/25 12:18:00
--
Dim dr As DataRow
dr = DataTables("记录表").sqlFind(" 日期 = \'" & Date.Today & "\' And 用户= \'" & e.Cookies("username") & "\' And 网址=\'销售条码内容.htm\' ")
If dr Is Nothing Then
dr = DataTables("记录表").AddNew()
dr("访问次数") = 1
dr("日期") = Date.Today
dr("用户") = e.Cookies("username")
dr("网址") = " 销售条码内容.htm"
dr.Save()
Else
dr("访问次数") = dr("访问次数") + 1
\'
End If
有条件了什么还在加行而不是dr("访问次数") + 1
-- 发布时间：2022/4/25 13:33:00
--
没有符合条件的数据
msbox(" 日期 = \'" & Date.Today & "\' And 用户= \'" & e.Cookies("username") & "\' And 网址=\'销售条码内容.htm\' ")
[此贴子已经被作者于2022/4/25 13:33:10编辑过]