ASP限制ip投票完整实例代码

推荐：ASP长数字用逗号隔开显示实例代码
% Function Comma(str) If Not(IsNumeric(str)) Or str = 0 Then Result = 0 ElseIf Len(Fix(str)) 4 Then Result = str Else Pos = Instr(1,str,.) If Pos 0 Then Dec = Mid(str,Pos) End if Res = StrReverse(Fix(str)) LoopCount = 1 While LoopCount =

由于工作关系,要做个人空间,其中有一功能是对用户投票，要求同一IP只能对同一用户投票一次，贴Asp代码

<%
'作者：无情出处：
db_conn(dbs)
Voteusername=trim(request.QueryString(username))
rs_create(selectusernamefrom[user]whereusername='&Voteusername&')
ifrs.eofandrs.bofthen
response.write错误的参数,请从正确访问!
response.end()
endif
'第一种情况是第一次点击,cookies为空,ip为空
'第二种情况是点第二个人投票,第一个人的cookies存在,第二个的的cookies不存在,但是ip存在
'第三种情况是换ip投票,cookies存在,ip为空
ifRequest.cookies(dwww)(&Voteusername&)=then
Response.cookies(dwww)(&Voteusername&)=Voteusername&|
Response.cookies(dwww).Expires=Date()+365
CallVoteBody()
else
ifinstr(request.cookies(dwww)(&Voteusername&),request.cookies(dwww)(&Voteusername&)&|)<>0then
CallVoteBody()
else
'response.write对不起,您已经投过票了!Cookies重复
Response.Write<script>alert('对不起,您已经投过票了!');history.back();</script>
response.end()
endif
endif
SubVoteBody()
Voteusername=trim(request.QueryString(username))
CheckIp=Request.ServerVariables(HTTP_X_FORWARDED_FOR)'绕过代理IP
IfCheckIp=ThenCheckIp=Request.ServerVariables(REMOTE_ADDR)
GetUrl=
GetUrl=Request.ServerVariables(Http_Referer)
sql=Selectusername,ipfromvotewhereusername='&Voteusername&'andip='&CheckIp&'
rs_create(Sql)
IfNotrs.BofAndNotrs.eofThen
'response.write对不起,您已经投过票了!IP重复
Response.Write<script>alert('对不起,您已经投过票了!');history.back();</script>
response.end()
Else
conn.execute(insertintovote(username,ip,addtime)values('&Voteusername&','&CheckIp&','&now()&'))
conn.execute(update[user]setvote=vote+1whereusername='&Voteusername&')
'response.write投票成功!
Response.Write<script>alert('恭喜您，投票成功!');location.href='&Request.ServerVariables(HTTP_REFERER)&'</script>
response.end()
EndIf
endSub
rs_close()
db_close()
%>

分享：ASP制作登陆页面验证程序
用户登录验证脚本,Chkpwd.asp % '=======用户登录验证脚本======= '如果尚未定义Passed对象,则将其定义为false,表示没有通过验证 If IsEmpty(Session(Passed)) Then Session(Passed)=false End If 'Session(Passed)=False,表示尚未通过验证,则开始读取