ASP关于限制时间访问的问题
原代码是这样的:
Function Stop_IP()
Dim Sqlin_IP,rsKill_IP,Kill_IPsql
Sqlin_IP=Request.ServerVariables("REMOTE_ADDR")
Kill_IPsql="select Sqlin_IP from SqlIn where Sqlin_IP='"&Sqlin_IP&"' and kill_ip=true"
Set rsKill_IP=Easp.db.Exec(Kill_IPsql)
If Not(rsKill_IP.eof or rsKill_IP.bof) Then
N_Alert(Neeao_Kill_Info)
Response.End
End If
rsKill_IP.close
End Function
我想修改成限制多少秒后可以访问,修改后没有限制了,请问错误在哪里,如何修改:
Function Stop_IP()
Dim Sqlin_IP,rsKill_IP,Kill_IPsql,SqlIn_TIME
Sqlin_IP=Request.ServerVariables("REMOTE_ADDR")
Kill_IPsql="select Sqlin_IP,SqlIn_TIME from SqlIn where Sqlin_IP='"&Sqlin_IP&"' and kill_ip=true"
Set rsKill_IP=server.createobject("adodb.recordset")
rsKill_IP.open Kill_IPsql,conn,1,1
SqlIn_TIME=rsKill_IP("SqlIn_TIME")
IF DateDiff("s",SqlIn_TIME,now())>= 12 then
Response.write " 提示文字 "
Response.End
End If
rsKill_IP.close
End Function