假定数据存在 abc.mdb中
abc.mdb中字段如下:
序号(自动)
日期(访客进入时间)
电脑(IP地址)
来自(如果访客从www.0086it.com/?f=hello 进入本站,那会显示“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"》
《!--
- 1
- 2
- 3
- 4
- 5
前往页