Question

asp访问ip记录怎么写

一个程序，当用户访问网站时获取其ip，然后和数据库中的记录比较，如果数据库中没有记录就写入数据库，如果有就不写入。最后显示数据库中记录的ip个数，要怎么写。我这样写行吗，怎么改
dim user_IP
user_IP=request.servervariables("remote_addr")
dim db
set db=server.createobject("adodb.connection")
db.open "dbq="&server.mappath("userip.mdb")&";driver={microsoft access driver (*.mdb)}"
dim rs
set rs=server.createobject("adodb.recordset")
dim strsql
strsql="select * from userip"
rs.open strsql,db,1,3
do while not rs.eof and rs("ip")<>user_IP
rs.movenext
loop
if rs.eof then
rs.addnew ip,user_IP
rs.update
end if
dim ip_count
ip_count=rs.recordcount
response.write ip_count
rs.close
db.close
yzx909 - 举人 四级 貌似不行啊

Answer 1

dim user_IP
user_IP=request.servervariables("remote_addr")
dim db,rs,rstsql
set db=server.createobject("adodb.connection")
db.open "dbq="&server.mappath("userip.mdb")&";driver={microsoft access driver (*.mdb)}"
set rs=server.createobject("adodb.recordset")
strsql="select count(*) as ipnum from userip where ip"&ip
rs.open strsql,db,1,1
if ipnum=0 then
rs.close
strsql="userip"
rs.open strsql,conn,1,3
rs.addnew ip,user_IP
rs.update
end if
dim ip_count
ip_count=rs.recordcount
response.write ip_count
rs.close
db.close