复制代码代码如下所示：
<
/ /击时代日期类型：得到最后的访问时间
点击数字类型：获得总浏览量
/ / hitsday数字类型：获得今天的浏览量
/ / hitsweeks数字型：把这周的浏览量
/ / hitmonths数字：进入本月的浏览量
在数据库中添加这5个字段。
集RS1 = server.createobject（ADODB。记录集）
rs1.open 选择*从qwbmnewssss id是26
如果rs1.eof和rs1.bof然后
response.write 恐慌
其他的
花费更多的钱= RS1（击时代）得到最后的访问时间
暗淡的一天，monthnow，weeknow
一天=天（Date（））现在数
monthnow =月（Date（））现在月
weeknow =工作日（日期（））现在每周0星期日
↓（点击）= RS1（点击）+ 1 + 1总浏览

如果DateDiff（，
↓（hitsday ）= RS1（hitsday ）+ 1今天的浏览+ 1
其他的
↓（hitsday ）= 1今天的浏览= 1
最后如果

如果monthnow =月（花费更多的钱）然后
↓（hitmonths ）= RS1（hitmonths ）+ 1本月的浏览+ 1
其他的
↓（hitmonths ）＝1这一个月的浏览+ 1
最后如果

如果DateDiff（D
↓（hitsweeks ）= 1
其他的
如果weeknow <> 1
↓（hitsweeks ）= RS1（hitsweeks ）+ 1
其他的
weeknowss =周日（花费更多的钱）的最后一次访问
如果weeknow = weeknowss然后
↓（hitsweeks ）= RS1（hitsweeks ）+ 1
其他的
↓（hitsweeks ）= 1
最后如果
最后如果
最后如果

↓（击时代）=（现在的）更新上次访问D.
rs1.update
%>
时间的比较：
当前时间：
最后单击时间：
当今：
本月：
本周：

浏览总量：
今天的访问量：
每周一次的访问：
每月的访问：
<
最后如果
rs1.close
集RS1 =没有
%>