28,391
社区成员
发帖
与我相关
我的任务
分享
<%
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
%>