通通都改成其中jilu.asp是刚才的那个ASP文件名。
如果就记录点击情况而言，上面这些基本上就足够了。但是这样记录下的的结果需要下载下来才知道，这似乎有点太原始了。所以下面还要加入在线统计的功能。
用来统计的程序，应该能够按升序或降序排列记录，显示每天的点击率，如果条目太多，还有必要加入翻页功能。
查看统计只是让站长做的工作，所以设置一个密码是很有必要的。因此，新建一个HTML文件，插入一个表单：
下面是tongji.asp的内容：
<％
if （request.From（T1）<>″1234″） then
response.write ″你不能进入！！！″
response.end
end if
Set connection = Server.CreateObject（″ADODB.Connection″）
Set record= Server.CreateObject（″ADODB.Recordset″）
Record.locktype=3
Record.cursortype=adopenforwardonly
dsn =server.MapPath（″access.dsn″）
mdb=server.mappath（″click.mdb″）
mydsn=″filedsn=″＋dsn＋″;dbq=″＋mdb＋″;″
connection.Open mydsn
if request.Form（R1）=″升″ then
sql=″select ＊ from 1 order by clicktimes″
Else
Sql= ″select ＊ from 1 order by clicktimes DESC″
End if
Record.open sql，connection //执行SQL
cuttenttime=date
％>
下面是显示的部分，这里用一个表格来分隔各种数据：
| <％=record（″picname″）％> | <％=record（″clicktimes″）％> | <％=csng（ record（″clicktimes″）/（datediff（″d″，record（″starttime ″），currenttime，0，0）＋1））％> |