一个能对访问者进行编号、记录访问次数、IP、时

关于网站访问者统计的制作实例

我在自己制作的网站“.zydn”上设置了一个计数器，每天都会看到数字在增长，心中喜悦。我开始思考，究竟是谁在访问我的网站？是新朋友还是老朋友？他们访问了多少次？我想给每位访客编号，记录他们的每一次访问。为此，我尝试了一些免费统计工具，但都不满意。于是，我决定自己动手，丰衣足食。

我以ACCESS数据库为例，使用SQL SERVER数据库只需稍作调整。数据库结构如下：

库文件名：CONT.ASP（原为CONT.MDB，为防止数据库被下载，将扩展名改为ASP）。

表名：tab

字段名 数据类型 说明

ID 自动编号 访客的编号

IP 文本 用于记录访客的IP

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

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

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

为实现这一功能，我编写了两个文件：dispcont.asp用于显示统计结果，contpage.asp用于统计信息。接下来，让我们看看contpage.asp是如何进行统计的。

通过以下代码连接数据库：

```less

Set Conn = Server.CreateObject("ADODB.Connection")

Connstr="DBQ="+server.mappath("cont.asp")+";DefaultDir=;DRIVER={Microsoft Aess Driver (.mdb)};"

Conn.Open connstr

```

接着，读取名为“keren”的cookie：

```makefile

keren=request.cookies("keren")

```

如果cookie为空，说明是新朋友：

```scss

if keren="" then

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") '写入cookie，内容与ID相同

response.cookies("keren").expires=date+365 '设置cookie有效期为一年

end if

```

对于老朋友，执行以下操作：

```sql

程序小记：阿余的二十行代码

`<%`

Set Conn = Server.CreateObject("ADODB.Connection") '创建数据库连接对象

Connstr = "DBQ=" + server.mappath("cont.asp") + ";DefaultDir=;DRIVER={Microsoft Access Driver (.mdb)};" '定义数据库连接字符串

Conn.Open connstr '打开数据库连接

卓越电脑统计展示页面

为了实现流畅的分页展示功能，我们首先进行了一系列的初始化操作。当前页码被设定为page3，默认从session中获取当前分页数contpag，若无则设为“1”。同样，每页显示的条数被设定为pa，默认从session中获取每页显示的条数contpa，若无则设为默认的“每页显示15条”。这些数值被存储在session中以便后续使用。默认的SQL查询语句从数据库表tab中按照日期和ID降序排列选取数据。

在服务器端，我们创建了一个ADODB.RecordSet对象rs来存储查询结果。通过遍历结果集，我们可以获取到每条记录的相关数据，例如访问编号、访问首页链接、访问IP、首页访问次数以及访问日期等。我们计算了一些统计数据，如总记录数ZS、访问次数超过100次的记录数cs100、今天访问量csdat1等。

我们关闭了结果集rs并完成了页面的展示。整个页面设计简洁明了，数据展示清晰易懂，同时提供了丰富的交互功能，如分页跳转、刷新等。用户可以通过这个页面轻松了解网站的访问统计情况。

不容错过的阿余网站：与发现的无尽源泉

在这个数字化时代，我们总是在寻找那些能够吸引我们眼球、激发我们兴趣的在线平台。今天，我要向大家推荐一个特别的网站——阿余的网站。这里，每一次访问都会有新的发现，每一次点击都会带来惊喜。

一、丰富多样的内容展示

阿余的网站内容生动、文体丰富，无论是文字、图片还是视频，都能在这里找到。它像一个知识的宝库，集结了各类精彩内容，满足不同人群的兴趣需求。

二、独特的小程序演示

该网站还提供了一个独特的小程序演示功能。你可以在这里亲眼见证各种小程序的运行效果，了解它们如何便捷地解决日常生活中的问题。这是一个创新与实用的完美结合，展现了技术的魅力。

三、强大的功能拓展

虽然这里已经提供了许多精彩的内容和功能，但阿余的网站还在不断进化中。开发者们时刻关注用户需求，持续加入更多实用功能，为用户带来更加完善的体验。这里没有终点，只有不断前进的脚步。

四、简单易记的

想要阿余的世界吗？请访问：[

五、结语

无论是寻找新知，还是体验新技术，阿余的网站都能满足你的需求。这里有无限可能，等待你来发现。让我们一起这个充满魅力的在线世界，共同见证每一次精彩瞬间。