Inicio>Tutorial de programación de red>Tutorial ASP

Código de ejemplo completo de votación de IP restringida ASP

Autor：Eve Cole Fecha de actualización：2025-05-06 23:32:02

Recomendado: los números largos de ASP están separados por comas para mostrar el código de instancia
% De función Coma (str) si no (isnumérico (str)) o str = 0 entonces resultado = 0 elseif len (fix (str)) 4 entonces resultado = str else pos = instr (1, str ,.) si pos 0 entonces dec = mid (str, pos) final si res = strreverse (fix (str)) bucleCount = 1 while loopCount =

Debido a las relaciones laborales, una de las funciones es votar por los usuarios, lo que requiere que la misma IP solo pueda votar por el mismo usuario una vez, y publicar código ASP

  1.  <%
  2.  'Autor: Fuente despiadada:
  3.  DB_CONN (DBS)
  4.  VoteUsername = TRIM (request.queryString (nombre de usuario))
  5.  rs_create (selectUsernameFrom [usuario] whereUsername = '& votusername &')
  6.  ifrs.eofandrs.bofthen
  7.  Respuesta. Escribe parámetros incorrectos, ¡acceda a ellos desde correctamente!
  8.  respuesta.end ()
  9.  endif
  11.  'El primer caso es el primer clic, las cookies están vacías y la IP está vacía
  12.  'La segunda situación es hacer clic en la segunda persona en votar, existen las cookies de la primera persona, las cookies de la segunda persona no existen, pero la IP existe
  13.  'La tercera situación es votar con IP, existir cookies, IP está vacía
  15.  ifrequest.cookies (dwww) (& voteUsername &) = entonces
  16.  Response.cookies (DWWW) (& VoteUsername &) = VoteUsername & |
  17.  Response.cookies (dwww) .expires = date ()+365
  18.  CallVoteBody ()
  19.  demás
  20.  ifinstr (request.cookies (dwww) (& votusername &), request.cookies (dwww) (& voteUsername &) & |) <> 0then
  21.  CallVoteBody ()
  22.  demás
  23.  'Respuesta. ¡Escribe lo siento, has votado! Repite las galletas
  24.  Response.Write <Script> Alert ('¡Lo siento, votaste!'); History.back (); </script>
  25.  respuesta.end ()
  26.  endif
  27.  endif
  29.  SubvoteBody ()
  30.  VoteUsername = TRIM (request.queryString (nombre de usuario))
  31.  Checkip = request.serverVariAbles (http_x_forwarded_for) 'bypass proxy ip
  32.  Ifcheckip = throcheckip = request.ServerVariAnbles (remota_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.  'Respuesta. ¡Escribe lo siento, has votado! Ip duplicado
  40.  Response.Write <Script> Alert ('¡Lo siento, votaste!'); History.back (); </script>
  41.  respuesta.end ()
  42.  Demás
  43.  Conn.execute (InsertIntovote (Nombre de usuario, IP, Addtime) Valores ('& VoteUsername &', '& Checkip &', '& Now () &'))
  44.  conn.execute (actualización [usuario] setVote = votar+1 lugar en lugar de nombre = '& votusername &')
  45.  'Respuesta. Votación de escritura sucedió!
  46.  Response.Write <Script> Alert ('Felicitaciones, Vote fue exitoso!'); Luation.href = '& request.ServerVariables (http_referer) &' </script>
  47.  respuesta.end ()
  48.  Endif
  49.  Endsub
  51.  rs_close ()
  52.  db_close ()
  53.  %>

Compartir: ASP crea un programa de verificación de página de inicio de sesión
Script de verificación de inicio de sesión del usuario, chkpwd.asp % '========= Script de verificación de inicio de sesión del usuario =======' Si el objeto aprobado aún no se ha definido, definalo como falso, lo que significa que la verificación no se ha aprobado. Si isEtimty (sesión (aprobado)), entonces la sesión (aprobada) = falso final si 'session (aprobado) = falso, significa que la verificación no se ha aprobado y luego comienza la lectura.

Artículos relacionados