【统计数据库里每天的发布文章数量】 - 编程论坛

willstier2010-01-14 11:14

我想这个表可以在字段上考虑一下。我也是新手，抛砖引玉吧：
字段,    默认值,    记录添加时赋予的值
Post表
PostId,     自增,
PostTime,    Now()
PostDate ,        ,   Date()
PostContent,        ,
EmployeeId,       ,

另外一个表
statistics 表
StatisticsId,    自增,
EmployeeId,    ,
PostDate,    , Date()(如果存在EmployeeId = 'a' AND PostDate = Date(),则更新该记录，否则添加新纪录)
DateNumber,   0 ,(员工发帖时，更新之)

willstier2010-01-14 11:45

或者从数据库中读取时间后，取得日期，然后统计。

程序代码：

Dim dPreDate,dNowDate,rs,sql,i,lngPostNumber
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM [Post] WHERE EmployeeId = clng("&lngEmployeeId&") "    '这里lngEmployeeId也可以通过vbscript的函数Clng转成长整型，那样的话，我就不知道怎么连接了。
rs.Open sql,oConn,1,1

dPreDate = DateValue(rs("PostTime"));'将第一个记录的日期取出
lngPostNumber = 0    '初始化发帖数量

For i = 1 To rs.RecordCount
    dNowDate = DateValue(rs("PostTime"));

    If(dPreDate = dNowDate) Then '相同，说明在一天
        lngPostNumber = lngPostNumber + 1
    Else
        Response.Write (lngPostNumber) '这一天的统计结束，输出结果。
        lngPostNumber = 0     '新的一天记录统计开始
    End If

    dPreDate = dNowDate
Next

rs.Close

[ 本帖最后由 willstier 于 2010-1-14 23:36 编辑 ]