刀剑神域ggo百度云:初学ASP有些判断还不会写，帮忙看看

<%
connstr="DBQ="+server.mappath("db.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
a = Request.ServerVariables("REMOTE_ADDR")
Set rs= Server.CreateObject("adodb.recordSet")
Sql="Select * from IP where ip='"&a&"'"
rs.open Sql,conn,1,1
if rs.recordcount>=1 then
response.write("IP已存在！")
response.redirect("index.asp")
response.end()
else
conn.execute("insert into ip (ip,dtime) values ('"&a&"','"&now()&"')")
response.Write("<a href=show.asp>"& a &"</a>")
Response.End()
end if
%>

再定义一个recordSet对象，在数据库中显示所有的IP字段的内容
和这个recordset 对象进行比较

a = Request.ServerVariables("REMOTE_ADDR")
Set rs= Server.CreateObject("adodb.recordSet")
Sql="Select count(*) as counter from IP where ip =" & a
rs.open Sql,conn,1,3
if rs("counter")=0 then
rs.addnew
rs("IP") = a
rs("DTIME")=now()
rs.update
response.Write("<a href=show.asp>"& a &"</a>")
end if
Response.End()