请高手指点,如何写网站的登录监测日志,实现诸如登录网站的IP地址、登录时间等类似内容的监测记录。最好能贴出相关代码!
---------------------------------------------------------------
专门建立一个数据表
在每次用户进入的时候给该表增加一条记录
IP地址可以用Request.ServerVariables("LOCAL_ADDR")来获得
登陆时间用Now()即可获得.
---------------------------------------------------------------
写入数据库
建立这些字段可以与用户表建在一起,比较方面写代码。
dim username
username=session("username")
set rs=server.recordset("adodb.recordset")
rs.open "select * from Userlog where username='"&username&"' ",conn,1,3
rs("userip")=Request.ServerVariables("LOCAL_ADDR")
rs("logindate")=now()
rs.update
rs.close
set rs=nothing
---------------------------------------------------------------
采用SESSION来判断。
让客户页面每隔几分钟就自动刷新一次,再次获得SESSION的值,若值变为空,则认为已经离开。