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

ASP implementa o código de verificação com função de atualização

Autor：Eve Cole Data da Última Atualização：2025-03-14 14:48:02

Este artigo compartilhou com você uma função de código de verificação implementada usando o ASP e é atualizado.

Coloque o seguinte código em uma página separada CheckCode.asp

  1. <%
  2. OptionExplicit
  3. Response.Buffer = true
  4. CallCom_CreatValidCode (validateCode)
  6. Subcom_creatvalidcode (psn)
  7. 'Sem cache
  8. Response.Expires = -9999
  9. Response.AddHeaderPragma, sem cache
  10. Response.AddHeaderCache-Ctrol, sem cache
  11. Response.ContentType = Image/BMP
  13. Randomizar
  15. Dimi, II, III
  17. ConstCodds = 2 'A probabilidade de pontos diversos aparecendo
  18. ConstCamount = 10'Number of texto
  19. ConstCCode = 0123456789
  21. 'Dados coloridos (caracteres, fundo)
  22. Dimvcolordata (1)
  23. vcolordata (0) = chrb (0) e chrb (0) e chrb (211) 'azul 0, verde 0, vermelho 0 (preto)
  24. vcolordata (1) = Chrb (255) e Chrb (255) e Chrb (255) 'azul 250, verde 236, vermelho 211 (azul claro)
  26. 'Caracteres gerados aleatoriamente
  27. Dimvcode (4), vcodes
  28. Fori = 0to3
  29. vcode (i) = int (rnd*counting)
  30. vcodes = vcodes & Mid (ccode, vcode (i) +1,1)
  31. Próximo
  32. Sessão (psn) = registro de vcodes em sessão
  33. Dados dos caracteres
  34. DimvNumberData (9)
  35. vNumberData (0) =
  37. 11100000011111111111111111111111110100101111101001011110100101111010010111111111111111111111111111
  39. 110000111
  40. vNumberData (1) =
  42. 11110111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
  44. 100000111
  45. vNumberData (2) =
  47. 1110000001111111111011111111111111111111111111111111111111111111111111111111111111111111111110111
  49. 100000011
  50. vNumberData (3) =
  52. 11100000011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
  54. 110000111
  55. vNumberData (4) =
  57. 1111101111111110111111111111111111101111111111111111111111111111110000000000000000001111111111111111111111111
  59. 111000011
  60. vNumberData (5) =
  62. 11000000001111011111111111111111110100011111110011101111111111111111111011111111111111111111111111
  64. 110000111
  65. vNumberData (6) =
  67. 1111000111111101110111111111111111111111111110100011111100111111101111111111111111111111111110111
  69. 110000111
  70. vNumberData (7) =
  72. 110000000011110111011111011111111111111111111111111111111111111111111111111111111111111111111111111111111
  74. 1110111111
  75. vNumberData (8) =
  77. 111000000111111111111111111111111111111111111110000111111110111111111111111111111111111101111111111
  79. 110000111
  80. vNumberData (9) =
  82. 111000111111101110111110111111111111111111111111110011111000101111111111111111111011111110111111
  84. 110001111
  85. 'Cabeçalho de arquivo de imagem de saída
  86. Response.BinaryWritechrb (66) & Chrb (77) & Chrb (230) & Chrb (4) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0)
  88. & Chrb (0) & _
  89. Chrb (0) & Chrb (0) e Chrb (54) e Chrb (0) e Chrb (0) e Chrb (0) & Chrb (40) & Chrb (0) & _
  90. Chrb (0) e Chrb (0) e Chrb (40) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (10) & Chrb (0) e Chrb (0) & _
  91. Chrb (0) e Chrb (0) e Chrb (1) e Chrb (0)
  93. 'Cabeçalho de informações da imagem de saída
  94. Response.BinaryWriteChrb (24) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (176)
  96. & Chrb (4) & _
  97. Chrb (0) & Chrb (0) e Chrb (18) e Chrb (11) & Chrb (0) e Chrb (0) e Chrb (18) & Chrb (11) & _
  98. Chrb (0) & Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e _
  99. Chrb (0) e Chrb (0)
  101. Fori = 9to0Step-1 'passou por todas as linhas
  102. Forii = 0to3 'passou todas as palavras
  103. Foriii = 1to10 'passou todos os pixels
  104. 'Saída de dados de imagem linha por linha, palavra por palavra, pixel por pixel
  105. Ifrnd*99+1 <coddshen 'gera aleatoriamente pontos diversos
  106. Response.BinaryWriteVColordata (0)
  107. Outro
  108. Response.BinaryWriteVColordata (MID (VNumberData (vcode (ii)), i*10+iii, 1))
  109. Endif
  110. Próximo
  111. Próximo
  112. Próximo
  113. Endsub
  114. %>

As páginas que você precisa usar são citadas da seguinte maneira:

Código de verificação: src = checkcode.asp CellPadding = "0" CellPacing = "0" style = "colapso da borda: colapso; espaço de borda: 0px; largura: 780px; limpo: ambos; preenchimento: 0px! Importante; margem: 0px ! IMPORTANTE; Radiote de borda-borda: 0px! altura da linha: 1.1M! Alinhamento vertical: Bastura! ">

O exposto acima é o conteúdo inteiro deste artigo, espero que gostem.

Artigos Relacionados