ASP如何限制ip投票的问题 ?
怎样限制一个IP在一个小时内只能投一次票。在一个小时内一个IP只能投一次,如果再投的话,提示:“一个用户一个小时内只能投一次票”!代码如下:这代码是无限制投票的。请各位高...
怎样限制一个IP在一个小时内只能投一次票。
在一个小时内一个IP只能投一次, 如果再投的话, 提示:“一个用户一个小时内只能投一次票”!
代码如下:这代码是无限制投票的。请各位高手帮我修改下,本人菜鸟。请详细说明!谢谢!
<%
'on error resume next
'Response.Buffer=true
dim username,comeurl
username=hx.checkstr(request("id"),12)
comeurl=hx.checkstr(Request.ServerVariables("http_referer"),200)
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select TOP 1 inc,inj,inp,indate,fromdate,siteurl from CL_Link where username='"&username&"'"
rs.open sql,conn,1,2
If rs("inc")=0 then
'记录开始统计的时间
rs("fromdate")=now()
End If
If DateDiff("d",rs("indate"),Date())=0 then
rs("inj")=rs("inj")+1
else
rs("inj")=1
End If
rs("inc")=rs("inc")+1
rs("indate")=Now()
rs.update
rs("inp")=rs("inc")/(DateDIff("d",rs("fromdate"),Date())+1)
rs.update
rs.close
set rs=nothing
set hxcache=new cls_cache
hxcache.DelCahe("js")
set hxcache=nothing
Call GoToUrl
Sub GoToUrl
set hx = nothing
Response.Redirect WebUrl
Response.End
End Sub
%> 展开
在一个小时内一个IP只能投一次, 如果再投的话, 提示:“一个用户一个小时内只能投一次票”!
代码如下:这代码是无限制投票的。请各位高手帮我修改下,本人菜鸟。请详细说明!谢谢!
<%
'on error resume next
'Response.Buffer=true
dim username,comeurl
username=hx.checkstr(request("id"),12)
comeurl=hx.checkstr(Request.ServerVariables("http_referer"),200)
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select TOP 1 inc,inj,inp,indate,fromdate,siteurl from CL_Link where username='"&username&"'"
rs.open sql,conn,1,2
If rs("inc")=0 then
'记录开始统计的时间
rs("fromdate")=now()
End If
If DateDiff("d",rs("indate"),Date())=0 then
rs("inj")=rs("inj")+1
else
rs("inj")=1
End If
rs("inc")=rs("inc")+1
rs("indate")=Now()
rs.update
rs("inp")=rs("inc")/(DateDIff("d",rs("fromdate"),Date())+1)
rs.update
rs.close
set rs=nothing
set hxcache=new cls_cache
hxcache.DelCahe("js")
set hxcache=nothing
Call GoToUrl
Sub GoToUrl
set hx = nothing
Response.Redirect WebUrl
Response.End
End Sub
%> 展开
2个回答
Storm代理
2023-07-25 广告
2023-07-25 广告
StormProxies是一家提供动态代理服务器服务的企业,旨在帮助用户更好地管理网络访问和安全。以下是一些关于StormProxies的IP动态代理服务的特点:1. 高匿名性:StormProxies的动态代理服务器具有高匿名性,可以有效...
点击进入详情页
本回答由Storm代理提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询