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,表示尚未通過驗證,則開始讀取