谈Access为后台数据库的网站统计系统

2024-09-07 19:03:56

字体：大中小

来源：转载

供稿：网友

一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例

我以ACCESS库为例子，其实用SQL SERVER库也只要改一下链接库的语句就得啦，库结构如下

库文件名：　CONT.ASP 本来是CONT.MDB但在建好后把扩展名改为了ASP,以防库被下载。

表名：tab

字段名　数据类型　说明

ID　　　自动编号　　访客的编号

IP　　　文本　　　　用于记录访客的IP

dat1　　日期时间　　用于记录访客最后访问的时间

dat　　日期时间　　用于记录访客第一次访问的时间

CS　　　数字，整型　用于记录访客访问次数

程序很简单，只有两个文件，dispcont.asp　用于显示统计结果，contpage.asp用于统计信息，

先看看CONTPAGE.ASP 是乍么统计的，代码如下：

以下为引用的内容：
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ=" server.mappath("cont.asp") ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Conn.Open connstr ‘’*****以上语句用于连接库，cont.asp是库文件名。
keren=request.cookies("keren") ‘’读取cookies,cookies的名为：“keren”,哈哈。。阿余的E文学的臭，只懂用拼音啦。
if keren="" then ‘’判断cookees是不是空，如果是空，那么肯定是新朋友啦，否则是老朋友。
sql="SELECT * FROM tab where id=-1"
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 3
rs.addnew ‘’如果是新访客的话，在库中新增一条记录。
rs("cs")=1 ‘’记下访问次数为1
rs("ip")=request.servervariables("remote_addr") ‘’记下IP，
rs("dat")=now ‘’记下当前的日期时间，
rs("dat1")=date ‘’记下当前的日期，以后用来做第一次访问的日期，
response.cookies("keren")=rs("id") ‘’写入一个cookies，内容就和ID一样。
response.cookies("keren").expires=date 365 ‘’设置cookies的有效日期从现在开始，365天，
else ‘’以上是新朋友的处理办法，对老朋友怎么办呢？看下面的：
sql="SELECT * FROM tab where id="&keren ‘’到库中去找出我们老朋友的记录
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 3
rs("cs")=rs("cs") 1 ‘’好啦，找到啦，把访问次数加上1
rs("ip")=request.servervariables("remote_addr") ‘’看看他的IP是多少了，记下来。
rs("dat")=now ‘’记下现在的时间，也就是最后一次访问的时间，
response.cookies("keren")=rs("id") ‘’再把cookies写进去，我不知这句是否多余，没有试。
response.cookies("keren").expires=date 365 ‘’设置cookies过期时间，免得一年到了我就不认得他了。
end if
rs.update ‘’该记的都记下了，更新库吧。
rs.close ‘’关闭recordset对象。
set conn=nothing ‘’释放conn，我还是认为connection要随开随关才对，放到SESSION中我认为最不可取。4
%>