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

Implementação de ASP do código de verificação de adição

Autor：Eve Cole Data da Última Atualização：2025-03-16 04:00:03

Este artigo apresenta principalmente a implementação do código de verificação de ASP, que é uma inovação com base no código de verificação original e altera o código de verificação para a operação de adição.

Altere o código de verificação para uma operação de adição, por exemplo, o código de verificação mostra que 25+64 é igual? , então a entrada 91 pode passar na verificação.

Vamos dar uma olhada na comparação de renderização: Código de verificação de caracteres: → Código de verificação de aditivos:

vantagem:

① Comparado aos códigos de verificação de caracteres puros, este programa impede o reconhecimento automático da maioria das máquinas de publicidade (mais de 99%). Até o código de verificação chinês pode ser reconhecido por algumas máquinas de publicidade no mercado.

② Comparado com o código de verificação chinês, evita o incômodo de alternar o método de entrada quando os usuários inserem o nome de usuário, código de verificação de senha.

NOTA: Este programa requer o espaço do site para oferecer suporte a componentes e fontes da ASPJPEG de kaiyi_gb2312.

O código é o seguinte:

  1. <%
  2. ConstFontColor = & H000000'Font Color
  3. Constbgcolor = & hffccff 'cor de fundo
  4. CallCreatValidCode (getCode)
  5. SubcreatValidCode (PSN)
  6. DIMX, JPEG
  7. Randomizar
  8. x = array (1+int (rnd ()*9), int (rnd ()*10), 1+int (rnd ()*9), int (rnd ()*10), 0,0,+)
  9. x (4) = x (0)*10+x (1)
  10. x (5) = x (2)*10+x (3)
  11. 'Sessão (psn) = cstr (Eval (x (4) & x (6) & x (5)))
  12. Sessão (psn) = cstr (x (4)+x (5))
  13. Setjpeg = server.createObject (Persits.jpeg)
  14. Jpeg.new100,20, bgcolor
  15. JPEG.Quality = 100
  16. Withjpeg.canvas
  17. .Font.Bold = true
  18. .Font.size = 16
  19. .Font.rotation = 0
  20. .Font.family = kaiti_gb2312
  21. .Font.color = fontcolor
  22. .PrintText4,3, cstr (x (0))
  23. .PrintText14,3, cstr (x (1))
  24. .PrintText26,3, x (6)
  25. .PrintText38,3, cstr (x (2))
  26. .PrintText48,3, cstr (x (3))
  27. .Font.rotation = 15
  28. .PrintText55,3, etc.
  29. .PrintText70,3,
  30. .PrintText85,3,?
  31. ENDWITH
  32. 'Sem cache
  33. Response.ContentType = Image/JPEG
  34. Response.Expires = -9999
  35. Response.AddHeaderPragma, sem cache
  36. Response.AddHeaderCache-Ctrol, sem cache
  37. Response.AddHeadecontent-Disposição, embutida; nome do arquivo = vcode.jpg
  38. Jpeg.sendbinary
  39. Jpeg.close
  40. Setjpeg = nada
  41. Endsub
  42. %>
?
Artigos Relacionados