以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  网页如何记录访问次数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=168909)
--  作者：yifan3429
--  发布时间：2021/5/26 18:10:00
--  网页如何记录访问次数
网页如何记录　访问次数 和完读率
Select Case e.Path
    Case "test.htm"　　记录访问次数 和完读率
        Dim wb As New WeUI
        wb.InsertHTML("<h3 align=\'center\' style=\'margin-top:5px\'>用户登录</h3>")
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1")
            .Attribute = "style=\'margin-top:5px\'"
            .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
--  作者：有点蓝
--  发布时间：2021/5/27 8:38:00
--  
访问次数在case里面添加一个类加保存次数的代码即可，类似

elect Case e.Path
    Case "test.htm"　　记录访问次数 和完读率
tables("A").current("访问次数") = tables("A").current("访问次数")+1
        Dim wb As New WeUI

至于什么是完读率？不懂，解释一下