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
- <%
- 'Autor: rücksichtslose Quelle:
- db_conn (dbs)
- VOTEUSERNAME = TRIM (Anfrage.queryString (Benutzername))
- rs_create (selectUnernamefrom [Benutzer] woraufhinername = '& Votususername &')
- ifrs.eofandrs.Bofthen
- Antwort. Schreiben Sie falsche Parameter, bitte greifen Sie von korrekt auf sie zu!
- Antwort.end ()
- Endif
- 'Der erste Fall ist der erste Klick, die Cookies sind leer und die IP ist leer
- '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
- 'Die dritte Situation besteht darin, mit IP abzustimmen, Cookies existieren, IP ist leer
- iFrequest.cookies (dwww) (& Votususername &) = dann
- Response.cookies (dwww) (& votususername &) = Votususername & |
- Response.cookies (dwww) .expires = date ()+365
- CallVoteBody ()
- anders
- IFInStr (Request.cookies (dwww) (& Votususername &), Request.cookies (dwww) (& Votususername &) & |) <> 0Then
- CallVoteBody ()
- anders
- Antwort. Kekse wiederholen sich
- Response.write <Script> alert ('sorry, du hast gewählt!'); History.back (); </script>
- Antwort.end ()
- Endif
- Endif
- SubvoteBody ()
- VOTEUSERNAME = TRIM (Anfrage.queryString (Benutzername))
- Checkip = request.servervariables (http_x_forwarded_for) 'Bypass Proxy IP
- IfCheckip = thenCheckip = request.servervariables (Remote_addr)
- Geturl =
- Geturl = request.servervariables (http_referer)
- SQL = SELECTUSERNAME, IPFROMVOTEWHEREUERNAME = '& VORUSERNAME &' und IP = '& Checkip &' '
- RS_Create (SQL)
- Ifnotrs.bofandnotrs.eofthen
- Antwort. IP -Duplikat
- Response.write <Script> alert ('sorry, du hast gewählt!'); History.back (); </script>
- Antwort.end ()
- Anders
- conn.execute (InsertIntovote (Benutzername, IP, addtime) Werte ('& Votususername &', '& checkip &', '& now () &'))
- conn.execute (update [user] setVote = stimmen+1whereusername = '& votususername &')
- 'Antwort.
- Response.write <Script> alert ('Herzlichen Glückwunsch, Abstimmung war erfolgreich!');
- Antwort.end ()
- Endif
- Ende
- RS_CLOSE ()
- DB_CLOSE ()
- %>
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.