如果ip在数据库中有存在的，并达且登录次数到3次，跳转其他网页

[DOM初心者]

求大神帮忙，如果ip在数据库中有存在的，并且登录次数达到3次，跳转其他网页，代码如下，表命ip，ci是次数

<!--#include file="Conn.asp"-->

<%
ip=Request.ServerVariables("REMOTE_HOST")
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.Open "Select * From ip where ip='"&ip&"'",Conn,1,3
if rs("ip")="&ip&" and rs("ci")=4 then
response.Write"<script>location.href='logini.asp'</script>"
else
response.Write"<script>location.href='hosty.asp'</script>"
end if
Response.end
rs.close
%>

[DOM初心者]

联合查询不太会，才上高中

[Mapleleaf123]

<%
ip=Request.ServerVariables("REMOTE_HOST")
Set rs = Server.CreateObject("Adodb.Recordset")
rs.Open "Select * From ip where ip='"&ip&"'",Conn,1,1
If Not rs.EOF Then
If rs("ci") >= 3 Then
response.Write"<script>location.href='logini.asp'</script>"
Response.End
End If
End If
response.Write"<script>location.href='hosty.asp'</script>"
Response.End
rs.close
%>

[Derekwong]

<%
Dim ip
 
ip = Request.ServerVariables("REMOTE_HOST")
 
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "Select count(ip) as ci From ip where ip='" & ip & "'",Conn,1,3  ' 用登录IP统计次数
 
if rs("ci")>3 then
 
    Response.Redirect("history")   '如果登录IP 累计次数大于3
else
 
    Response.Redirect("logini")    '如果登录IP 累计次数小于等于3
end if
 
%>

[csdn_aspnet]

<%
ip=Request.ServerVariables("REMOTE_HOST")
Set rs = Server.CreateObject("Adodb.Recordset")
rs.Open "Select count(ip) as ci From tb_name where ip='"&ip&"'",Conn,1,1
If Not rs.EOF Then 
If rs("ci") >= 3 Then
response.Write"<script>location.href='logini.asp'</script>"
Response.End 
End If 
End If 
response.Write"<script>location.href='hosty.asp'</script>"
Response.End 
rs.close
%>