Page d'accueil>Tutoriel de programmation réseau>Tutoriel ASP

ASP restreint IP Voting Complete Exemple Code

Auteur：Eve Cole Date de mise à jour：2025-05-06 23:32:02

Recommandé: les nombres longs ASP sont séparés par des virgules pour afficher le code d'instance
% Fonction Comma (str) Si pas (isNumeric (str)) ou str = 0 alors résultat = 0 elseif len (fix (str)) 4 alors résultat = str else pos = instr (1, str ,..) if pos 0 alors dec = mid (str, pos) end if res = strReverse (fix (str)) lOopCount = 1 while while lOopCount =

En raison de relations de travail, l'une des fonctions est de voter pour les utilisateurs, exigeant que la même propriété de propriété intellectuelle ne puisse voter que pour le même utilisateur une seule fois et publier le code ASP

  1.  <%
  2.  'Auteur: Source impitoyable:
  3.  DB_Conn (DBS)
  4.  VoteserName = Trim (request.Querystring (nom d'utilisateur)))
  5.  rs_create (selectUserNameFrom [utilisateur] wheresername = '& votesername &')
  6.  ifrs.eofandrs.bofthen
  7.  Response.Write Paramètres incorrects, veuillez y accéder correctement!
  8.  réponse.end ()
  9.  endire
  11.  'Le premier cas est le premier clic, les cookies sont vides et l'IP est vide
  12.  `` La deuxième situation est de cliquer sur la deuxième personne pour voter, les cookies de la première personne existent, les cookies de la deuxième personne n'existent pas, mais la propriété intellectuelle existe
  13.  «La troisième situation est de voter avec IP, les cookies existent, IP est vide
  15.  ifrequest.cookies (dwww) (& votesername &) = puis
  16.  Response.cookies (dwww) (& votesername &) = votesername & |
  17.  Réponse.cookies (dwww) .expires = date () + 365
  18.  Callvotebody ()
  19.  autre
  20.  iFinstr (request.cookies (dwww) (& votesername &), request.cookies (dwww) (& votesername &) & |) <> 0THEN
  21.  Callvotebody ()
  22.  autre
  23.  «Response.write Désolé, vous avez voté! Les cookies se répètent
  24.  Response.Write <Script> alert ('Désolé, vous avez voté!'); History.back (); </cript>
  25.  réponse.end ()
  26.  endire
  27.  endire
  29.  Subvotebody ()
  30.  VoteserName = Trim (request.Querystring (nom d'utilisateur)))
  31.  Checkip = request.servervariables (http_x_forwarded_for) 'contourner la proxy ip
  32.  IFCHECKIP = thenCheckip = request.serverVariables (Remote_addr)
  33.  Geturl =
  34.  GetUrl = request.servervariables (http_referer)
  36.  sql = selectUserName, ipfromVotewhereUsername = '& voteserName &' ANNIP = '& Checkip &'
  37.  rs_create (SQL)
  38.  Ifnotrs.bofandnotrs.eofthen
  39.  «Response.write Désolé, vous avez voté! Duplicate IP
  40.  Response.Write <Script> alert ('Désolé, vous avez voté!'); History.back (); </cript>
  41.  réponse.end ()
  42.  Autre
  43.  Conn.execute (insertintovote (nom d'utilisateur, ip, addtime) valeurs ('& votesername &', '& checkip &', '& maintenant () &'))
  44.  Conn.execute (mise à jour [utilisateur] setvote = vote + 1whereserName = '& votesername &')
  45.  «La réponse.Write Vote a réussi!
  46.  Response.Write <Script> alert ('Félicitations, le vote a réussi!'); Emplacement.href = '& request.servervariables (http_referer) &' </cript>
  47.  réponse.end ()
  48.  Endire
  49.  fin
  51.  rs_close ()
  52.  db_close ()
  53.  %>

Partager: ASP crée un programme de vérification de la page de connexion
Script de vérification de la connexion de l'utilisateur, chkpwd.asp% '========= Script de vérification de la connexion de l'utilisateur ======' Si l'objet passé n'a pas encore été défini, définissez-le comme faux, ce qui signifie que la vérification n'a pas été transmise. Si iSEmpty (session (passée)), la session (passée) = false fin si 'session (passée) = false, cela signifie que la vérification n'a pas été transmise, puis la lecture commence.

Articles connexes