Home>Network programming tutorial>ASP tutorial

ASP restricted ip voting complete example code

Author：Eve Cole Update Time：2025-05-06 23:32:02

Recommended: ASP long numbers are separated by commas to display instance code
% 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 =

Due to work relationships, one of the functions is to vote for users, requiring that the same IP can only vote for the same user once, and post Asp code

  1.  <%
  2.  'Author: Ruthless Source:
  3.  db_conn(dbs)
  4.  Voteusername=trim(request.QueryString(username))
  5.  rs_create(selectusernamefrom[user]whereusername='&Voteusername&')
  6.  ifrs.eofandrs.bofthen
  7.  Response.write incorrect parameters, please access them from correctly!
  8.  response.end()
  9.  endif
  11.  'The first case is the first click, the cookies are empty, and the ip is empty
  12.  'The second situation is to click the second person to vote, the first person's cookies exist, the second person's cookies do not exist, but the IP exists
  13.  'The third situation is to vote with IP, cookies exist, IP is empty
  15.  ifRequest.cookies(dwww)(&Voteusername&)=then
  16.  Response.cookies(dwww)(&Voteusername&)=Voteusername&|
  17.  Response.cookies(dwww).Expires=Date()+365
  18.  CallVoteBody()
  19.  else
  20.  ifinstr(request.cookies(dwww)(&Voteusername&),request.cookies(dwww)(&Voteusername&)&|)<>0then
  21.  CallVoteBody()
  22.  else
  23.  'response.write Sorry, you have voted! Cookies Repeat
  24.  Response.Write<script>alert('Sorry, you voted!');history.back();</script>
  25.  response.end()
  26.  endif
  27.  endif
  29.  SubVoteBody()
  30.  Voteusername=trim(request.QueryString(username))
  31.  CheckIp=Request.ServerVariables(HTTP_X_FORWARDED_FOR)'Bypass proxy IP
  32.  IfCheckIp=ThenCheckIp=Request.ServerVariables(REMOTE_ADDR)
  33.  GetUrl=
  34.  GetUrl=Request.ServerVariables(Http_Referer)
  36.  sql=Selectusername,ipfromvotewhereusername='&Voteusername&'andip='&CheckIp&'
  37.  rs_create(Sql)
  38.  IfNotrs.BofAndNotrs.eofThen
  39.  'response.write Sorry, you have voted! IP duplicate
  40.  Response.Write<script>alert('Sorry, you voted!');history.back();</script>
  41.  response.end()
  42.  Else
  43.  conn.execute(insertintovote(username,ip,addtime)values('&Voteusername&','&CheckIp&','&now()&'))
  44.  conn.execute(update[user]setvote=vote+1whereusername='&Voteusername&')
  45.  'response.write vote succeeded!
  46.  Response.Write<script>alert('Congratulations, vote was successful!');location.href='&Request.ServerVariables(HTTP_REFERER)&'</script>
  47.  response.end()
  48.  EndIf
  49.  endSub
  51.  rs_close()
  52.  db_close()
  53.  %>

Share: ASP creates login page verification program
User login verification script, Chkpwd.asp % '========= User login verification script====== 'If Passed object has not been defined yet, define it as false, which means that the verification has not been passed. If IsEmpty(Session(Passed)) Then Session(Passed)=false End If 'Session(Passed)=False, it means that the verification has not been passed, and then reading begins.

Related Articles