UC知道求一个asp程序帮忙改错
来源：百度知道 编辑：UC知道 时间：2024/06/08 13:19:51
一个程序，当用户访问网站时获取其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
一楼的方法试过了不行，记录集打开的只是浏览者ip这一条记录，无论谁打开都显示1
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
一楼的方法试过了不行，记录集打开的只是浏览者ip这一条记录，无论谁打开都显示1
改成这样试试:
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 where ip='"&user_ip&"'"
rs.open strsql,db,1,3
if rs.eof and rs.bof then
rs.addnew
rs("IP")=user_ip
rs.update
end if
rs.close
set rs1=conn.execute("select count(IP) as ip_count from userip")
response.write rs1("ip_count")
rs1.close
db.close
dim user_IP
user_IP=request.servervariables("remote_addr")
dim db
set db=server.createobject("adodb.connection")
db.open "dbq="&server.mappath("