建站代码网

热门标签

同一IP每天查询次数限制3次

’ip check
sql="delete  * from iplog where ip=’"&ip_address&"’ and datediff(’d’,addtime,now())<>0"
 
 conn.execute(sql)
sqlr="select  id,addtime from iplog where ip=’"&ip_address&"’ order by addtime desc"
set rsr=conn.execute(sqlr)
if Not rsr.eof then 
    
    IF DateDiff("h", rsr("addtime"), Now()) < 24 THEN
    tnum=conn.execute("select count(id) from iplog where ip=’"&ip_address&"’")(0)
    if tnum="" then tnum=0
     if tnum>2 then
    response.Write"<script language=javascript>alert(’超过提交次数限制,请勿重复提交,谢谢配合!’);window.close();</script>" 
    response.End()
    else
’    response.Write "insert into iplog (ip,addtime) VALUES (’"&ip_address&"’,’"&now()&"’)"

’response.End()
    conn.execute("insert into iplog (ip,addtime) VALUES (’"&ip_address&"’,’"&now()&"’)")
    
     end if
     
    ELSE    
    conn.execute("update iplog set addtime=’"&now()&"’ where id="&rsr("id"))    
    END IF
    
else
 set Rs=server.createobject("adodb.recordset")
  sql="select * from iplog"
  rs.open sql,conn,1,3
  rs.addnew
  rs("ip")=ip_address 
  rs.update
  rs.close :set rs=nothing 

    
end if
rsr.close 
X