简单的ASP统计制作实例
我创建了一个网站统计系统实例，允许我对访问者进行编号、记录访问次数、IP地址以及访问时间。下面是我对这个实例的详细解读，希望对对此感兴趣的朋友们有所帮助。
作为一个网站主人，我深知每天看着计数器数字不断增长的喜悦。我开始思考，这些数字背后究竟是谁在访问我的网站？是新朋友还是老朋友？他们访问了多少次？为了给每一位访客编号，我尝试使用了一些免费统计服务，但都不尽人意。于是我决定自己动手制作一个统计系统。以ACCESS数据库为例，其实如果使用SQL SERVER数据库，只需要稍作修改即可。
数据库结构如下：
数据库文件名为CONT.ASP，为了防止数据库被下载，我将扩展名改为ASP。表名为tab，包含以下字段：
ID：自动编号，用于访客的编号。
IP：文本类型，记录访客的IP地址。
dat1：日期时间类型，记录访客访问的时间。
dat：日期时间类型，记录访客第一次访问的时间。
CS：数字类型，记录访客访问次数。
程序很简单，只有两个文件：dispcont.asp用于显示统计结果，contpage.asp用于统计信息。接下来我将详细解读contpage.asp文件的统计过程。
我们需要创建一个数据库连接对象Conn，连接数据库文件cont.asp。然后，通过request.cookies获取名为“keren”的cookie值。如果该值为空，说明是新访客，需要在数据库中新增一条记录；否则，说明是老朋友，需要更新他们的访问记录。
对于新访客，我们在数据库中新增一条记录，并将访问次数设为1，记录IP地址、当前日期时间和第一次访问的日期。然后，将访客的ID写入一个名为“keren”的cookie中，并设置其过期时间为365天。
对于老朋友，我们通过ID在数据库中查找他们的记录，然后将访问次数加1，更新IP地址和当前日期时间。然后再次将访客的ID写入名为“keren”的cookie中并设置其过期时间。最后更新数据库并关闭数据库连接对象。
文件名：dispcont.asp
代码展示如下：
```asp
<%
' 创建数据库连接对象实例
Set Conn = Server.CreateObject("ADODB.Connection")
' 构建数据库连接字符串，指定数据库文件路径和驱动程序等信息
Connstr = "DBQ=" & server.mappath("cont.asp") & ";DefaultDir=;" &_
"DRIVER={Microsoft Access Driver (.mdb)};"
' 打开数据库连接，cont.asp为数据库文件名
Conn.Open connstr
%>
```
```asp
<%
' 创建数据库连接对象实例，准备与数据库进行交互操作
Dim conn As New ADODB.Connection
Dim connStr As String ' 定义数据库连接字符串变量
connStr = "DBQ=" & server.mappath("cont.asp") & ";" ' 指定数据库文件路径和连接字符串开头部分
connStr &= "DefaultDir=;" ' 默认目录设置（此处为空）
在数字化信息时代，数据的处理与展示显得尤为重要。本次统计为您呈现卓越电脑的使用情况，包括访问次数、访问IP、访问日期等重要信息。以下是对相关数据的分页展示。
一、数据概览
共有记录数：{{ZS}}条
当前页码：{{PAGE3}}
每页显示数量选择：[15条][20条][30条][40条]
刷新链接：点击刷新
二、详细数据展示
以下是按分页方式展示的详细数据：
```html
| 编号 | 访问首页 | 访问IP | 首页次数 | 访问日期 | {{ i+1 }} | {{ i+1 }} |