asp记录访问者ip地址

ip = Request.ServerVariables("REMOTE_ADDR") '获取访问者的IP
now_time = now '获取登陆时间(服务器时间)

完整的代码如下
dim conn,rs,ip,now_time
set conn=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("数据库路径")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.CreateObject("adodb.recordset")
sql = "表名"
rs.open sql,conn,3,2
rs.addnew
ip = Request.ServerVariables("REMOTE_ADDR") '获取访问者的IP
now_time = now '获取登陆时间(服务器时间)
rs("字段名1") = ip
rs("字段名2") = now_time
rs.update

判断访问的IP地否存在,如果存在,则不写入数据库..
另外,再加上时间的判断..