Startseite>Tutorial zur Netzwerkprogrammierung>ASP-Tutorial

ASP eingeschränkte IP -Stimmabgabe vollständiger Beispielcode

Autor：Eve Cole Aktualisierungszeit：2025-05-06 23:32:02

Empfohlen: ASP lange Zahlen werden von Commas getrennt, um den Instanzcode anzuzeigen
% Funktion comma (st.) Wenn nicht (isnumerisch (str)) oder str = 0, result = 0 elseif len (fix (str)) 4, result = str.

Aufgrund von Arbeitsbeziehungen besteht eine der Funktionen darin, für Benutzer zu stimmen und zu fordern, dass dieselbe IP nur einmal für denselben Benutzer stimmen und ASP -Code veröffentlichen kann

  1.  <%
  2.  'Autor: rücksichtslose Quelle:
  3.  db_conn (dbs)
  4.  VOTEUSERNAME = TRIM (Anfrage.queryString (Benutzername))
  5.  rs_create (selectUnernamefrom [Benutzer] woraufhinername = '& Votususername &')
  6.  ifrs.eofandrs.Bofthen
  7.  Antwort. Schreiben Sie falsche Parameter, bitte greifen Sie von korrekt auf sie zu!
  8.  Antwort.end ()
  9.  Endif
  11.  'Der erste Fall ist der erste Klick, die Cookies sind leer und die IP ist leer
  12.  'Die zweite Situation besteht darin, auf die zweite Person zum Abstimmung zu klicken, die Cookies der ersten Person gibt es, die Cookies der zweiten Person existieren nicht, aber die IP existiert
  13.  'Die dritte Situation besteht darin, mit IP abzustimmen, Cookies existieren, IP ist leer
  15.  iFrequest.cookies (dwww) (& Votususername &) = dann
  16.  Response.cookies (dwww) (& votususername &) = Votususername & |
  17.  Response.cookies (dwww) .expires = date ()+365
  18.  CallVoteBody ()
  19.  anders
  20.  IFInStr (Request.cookies (dwww) (& Votususername &), Request.cookies (dwww) (& Votususername &) & |) <> 0Then
  21.  CallVoteBody ()
  22.  anders
  23.  Antwort. Kekse wiederholen sich
  24.  Response.write <Script> alert ('sorry, du hast gewählt!'); History.back (); </script>
  25.  Antwort.end ()
  26.  Endif
  27.  Endif
  29.  SubvoteBody ()
  30.  VOTEUSERNAME = TRIM (Anfrage.queryString (Benutzername))
  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, IPFROMVOTEWHEREUERNAME = '& VORUSERNAME &' und IP = '& Checkip &' '
  37.  RS_Create (SQL)
  38.  Ifnotrs.bofandnotrs.eofthen
  39.  Antwort. IP -Duplikat
  40.  Response.write <Script> alert ('sorry, du hast gewählt!'); History.back (); </script>
  41.  Antwort.end ()
  42.  Anders
  43.  conn.execute (InsertIntovote (Benutzername, IP, addtime) Werte ('& Votususername &', '& checkip &', '& now () &'))
  44.  conn.execute (update [user] setVote = stimmen+1whereusername = '& votususername &')
  45.  'Antwort.
  46.  Response.write <Script> alert ('Herzlichen Glückwunsch, Abstimmung war erfolgreich!');
  47.  Antwort.end ()
  48.  Endif
  49.  Ende
  51.  RS_CLOSE ()
  52.  DB_CLOSE ()
  53.  %>

Teilen: ASP erstellt Anmeldeseitenüberprüfungsprogramm
Benutzeranmeldungsüberprüfungsskript, CHKPWD.asp % '======== Benutzeranmeldung Überprüfungsskript ======' Wenn das übergebene Objekt noch nicht definiert wurde, definieren Sie es als falsch, was bedeutet, dass die Überprüfung nicht übergeben wurde. Wenn isempty (Sitzung (bestanden)) dann (bestanden) = Falsches Ende Wenn 'Session (bestanden) = false bedeutet, bedeutet dies, dass die Überprüfung nicht bestanden wurde und dann das Lesen beginnt.

Ähnliche Artikel