Página Inicial>Tutorial de programação de redes>Tutorial ASP

Código de exemplo completo de votação de IP restrito do ASP

Autor：Eve Cole Data da Última Atualização：2025-05-06 23:32:02

Recomendado: os números longos asp são separados por vírgulas para exibir o código da instância
% Função vírgula (str) se não (isnumeric (str)) ou str = 0 então resultado = 0 elseif len (fix (str)) 4 Então resultado = str else pos = instrum (1, str ,.) se pos 0 então dez = mid (str, pos) end se res = strverver (fix (str)) loopcount = 1 while loopcount =

Devido a relações de trabalho, uma das funções é votar nos usuários, exigindo que o mesmo IP possa votar apenas para o mesmo usuário uma vez e postar código ASP

  1.  <%
  2.  'Autor: Fonte implacável:
  3.  db_conn (dbs)
  4.  VoteUsername = Trim (request.QueryString (nome de usuário))
  5.  rs_create (selectUserNameFrom [Usuário] WhereuserName = '& VoteUserName &')
  6.  ifrs.eofandrs.bofthen
  7.  Response.Write parâmetros incorretos, acessá -los corretamente!
  8.  Response.end ()
  9.  endif
  11.  'O primeiro caso é o primeiro clique, os cookies estão vazios e o IP está vazio
  12.  'A segunda situação é clicar na segunda pessoa para votar, existem cookies da primeira pessoa, os cookies da segunda pessoa não existem, mas o IP existe
  13.  'A terceira situação é votar com IP, existem cookies, IP está vazio
  15.  ifRequest.cookies (dwww) (& voteName &) = então
  16.  Response.Cookies (Dwww) (& VoteUsername &) = VoteUserName & |
  17.  Response.cookies (dwww) .expires = date ()+365
  18.  Callvotebody ()
  19.  outro
  20.  ifinstr (request.cookies (dwww) (& voteUserName &), request.cookies (dwww) (& voteUsername &) & |) <> 0then
  21.  Callvotebody ()
  22.  outro
  23.  'Response.Write Desculpe, você votou! Os biscoitos se repetem
  24.  Response.Write <Cript> alert ('Desculpe, você votou!'); History.back (); </script>
  25.  Response.end ()
  26.  endif
  27.  endif
  29.  Subvotebody ()
  30.  VoteUsername = Trim (request.QueryString (nome de usuário))
  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 Desculpe, você votou! Duplicado IP
  40.  Response.Write <Cript> alert ('Desculpe, você votou!'); History.back (); </script>
  41.  Response.end ()
  42.  Outro
  43.  Conn.Execute (InsertIntoVote (Nome de usuário, IP, Addtime) valores ('& VoteName &', '& checkip &', '& Now () &'))
  44.  Conn.Execute (UPDATE [Usuário] setVote = Vote+1wheuserName = '& VoteUsername &')
  45.  'Response.Write O voto foi bem -sucedido!
  46.  Response.Write <Cript> alert ('Parabéns, o voto foi bem -sucedido!'); Location.href = '& request.Servervariables (http_referer) &' </script>
  47.  Response.end ()
  48.  Endif
  49.  endsub
  51.  rs_close ()
  52.  db_close ()
  53.  %>

Compartilhar: ASP cria o programa de verificação da página de login
Script de verificação de login do usuário, chkpwd.asp % '========= Script de verificação de login do usuário ======' se o objeto aprovado ainda não foi definido, defina -o como falso, o que significa que a verificação ainda não foi passada. Se isEmpty (sessão (aprovada)), então sessão (passada) = FALSE END SE 'SESSÃO (PASSADO) = FALSO, significa que a verificação não foi passada e a leitura começa.

Artigos Relacionados