假定数据存在 abc.mdb中
abc.mdb中字段如下：
序号（自动）
日期（访客进入时间）
电脑（IP地址）
来自（如果访客从 进入本站，那会显示“hello”）
地址（通过对IP地址分析后知道的地址（如：中国网通或北京大学））
在网站首页中插入以下代码：
《%
if session("0086it")<>1 then
'上面一行防止刷新给统计造成不准。
dsntemp=server.mappath("abc.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&dsntemp
set rs=server.createobject("adodb.recordset")
rs.open "db",conn,1,3
rs.addnew
rs("日期")=now()
rs("电脑")=request.servervariables("remote_addr")
rs("来自")=request.querystring("f")&"◆"&request.serverVariables("Http_REFERER")
rs("地址")=session("laizi")
'session("laizi")的值的取得不作具体介绍，是由另一程序将访者ip地址与另外一个数据库对比中得出来“详细汉字地名，相当于IP地址查询软件中的功能）
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
session("0086it")=1
end if
%》
这样，每次访客访问我站，就可以记录他的信息。
当然，我还需要有一个程序来读后台。
程序如下：
《%
'**********************************
'
' 访 客 统 计 系 统'
'
' 程序设计 ： 姜川
' china_jiangchuan@163.com
' COPY请保留以上信息
'
'*********************************
'
response.expires=0
Response.Buffer=True
dim id
id=request.querystring("id")
if id="" then
id=50
end if
%》
《html》
《style type="text/css"》
《link rel="stylesheet" href="../css/one.css" type="text/css"》
《!--
.jiangc { font-size: 9pt; line-height: 12pt}
a { color: #FF0000; text-decoration: none}
a:hover { text-decoration: underline}
--》
《/style》
《body bgcolor="#FFFFFF"》
《%
dsntemp=server.mappath("abc.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;password=hello;dbq="&dsntemp
if request.querystring("cha")《》"" then
sql ="select * from db where 来自 like '%"&request.form("cha")&"%' order by 日期 DESC"
else
sql ="select * from db order by 序号 DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%》
《p align="center"》《br》
《font face="黑体"》访 问 统 计 系 统《/font》《/p》
《table width="700" border="0" cellspacing="1" cellpadding="0" align="center" class="jiangc" bgcolor="#000000"》
《form name="form1" method="post" action="?cha=1"》 《tr》
《td height="24" bgcolor="#ECF9FF" align="center"》 [ 共 《font color=red》《%=rs.recordcount%》《/font》
条记录 ] 列出最近 《a href="?id=100"》100《/a》 《a href="?id=300"》300《/a》 《a href="?id=500"》500《/a》
《a href="?id=1000"》1000《/a》 《a href="?id=3000"》3000《/a》 《a href="?id=5000"》5000《/a》
《a href="?ID=《%=rs.recordcount%》&ID2=all"》所有《/a》 记录
《input type="text" name="cha" class="jiangc" size="12"》
《input type="submit" name="Submit" value="查" class="jiangc"》
《/td》
《/tr》 《/form》
《/table》
《table width="100%" border="0" cellspacing="0"》
《tr》
《td height=2》《/td》
《/tr》
《/table》
《table border="0" cellspacing="1" cellpadding="2" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF" class="jiangc" align="center" bgcolor="#999999"》
《tr bgcolor="#CCCCCC"》
《td》 序号《/td》
《td》记录中总编号《/td》
《td》访问者进入日期《br》
0000000000000000000《/td》
《td》 访问者电脑IP地址《/td》
《td》 地区《/td》
《td》 来自《/td》
《/tr》
《%
while not rs.eof and i《 cint(id)
i=i+1
%》
《tr bgcolor="#FFFFFF"》
《td align="center"》《font color=cccccc》《%=i%》《/font》《/td》
《td align="center"》 《%=rs("序号")%》 《/td》
《td》
《%
if rs("日期") 》 date() then
response.write "《font color=red》"&rs("日期")&"《/font》"
else
response.write rs("日期")
end if%》
《/td》
《td》
《%if rs("电脑")="221.215.99.61" then response.write "*" else response.write rs("电脑") end if%》
《/td》
《td》
《%=rs("地址")%》
《/td》
《td》
《%if instr(rs("来自"),"◆")《》0 then
response.write "《a href='"&right(rs("来自"),len(rs("来自"))-instr(rs("来自"),"◆"))&"' target='_blank'》"&rs("来自")&"《/a》"
end if%》
《/td》
《/tr》
《%
rs.movenext
wend
%》
《/table》
《br》
《table width="700" border="0" cellspacing="1" cellpadding="10" align="center" class="jiangc" bgcolor="#CCCCCC" bordercolor="#0000CC"》
《tr》
《td bgcolor="#EFEFEF"》备 注：《%if request.querystring("id2")=all then%》只列出最近的 《font color=red》《%=id%》《/font》 条记录《br》
《%else%》
系统列出了所有访问记录《br》
《%end if%》
设 计：China_jiangchuan@hotmail.com(MSN)《br》
设计日期：2003年03月《/td》
《/tr》
《/table》
《/html》
参考资料：
