ホーム>ネットワークプログラミングチュートリアル>ASP チュートリアル

ASPは、更新機能を備えた検証コードを実装します

著者：Eve Cole 更新時間：2025-03-14 14:48:02

この記事は、ASPを使用して実装された検証コード機能を共有します。

次のコードを別のページCheckCode.aspに配置します

  1. <％
  2. optionexplicit
  3. Response.buffer = true
  4. callcom_creatvalidcode（validatecode）
  6. subcom_creatvalidcode（psn）
  7. 'キャッシングはありません
  8. Response.Expires = -9999
  9. Response.AddheaderPragma、No-Cache
  10. Response.Addheadercache-ctrol、no-cache
  11. Response.ContentType = Image/BMP
  13. ランダム化
  15. ディミ、II、III
  17. constcodds = 2'その他のスポットが現れる確率
  18. constcamount = 10'Number of Text
  19. constccode = 0123456789
  21. 'カラーデータ（文字、背景）
  22. dimvcolordata（1）
  23. vcolordata（0）= chrb（0）＆chrb（0）＆chrb（211） 'blue 0、緑0、赤0（黒）
  24. vcolordata（1）= chrb（255）＆chrb（255）＆chrb（255） 'blue 250、緑236、レッド211（ライトブルー）
  26. 'ランダムに生成された文字
  27. dimvcode（4）、vcodes
  28. fori = 0to3
  29. vcode（i）= int（rnd*camount）
  30. vcodes = vcodes＆mid（ccode、vcode（i）+1,1）
  31. 次
  32. セッション（psn）= vcodesのレコードへのセッション
  33. '文字データ
  34. dimvnumberdata（9）
  35. vNumberData（0）=
  37. 111000011111011111111111111111111010010111101001011110100101101001011110111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111エ
  39. 110000111
  40. vNumberData（1）=
  42. 1111011111111010111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111ケ -
  44. 100000111
  45. vNumberData（2）=
  47. 111000011111011110111101111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111ネ-シュー
  49. 100000011
  50. vNumberData（3）=
  52. 11100001111101111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111ケ -これ
  54. 110000111
  55. vNumberData（4）=
  57. 1111101111111111111111110011111110111111101101111111011011111000011111111111111111111111111111111111111111111111111111111111111111111111111ケ -
  59. 111000011
  60. vNumberData（5）=
  62. 1100001111011111111111111111111110100011111001110111111111111111111111111101111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111エ
  64. 110000111
  65. vNumberData（6）=
  67. 1111000111111011101111011111111111111111110100010100111100111011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111エ
  69. 110000111
  70. vNumberData（7）=
  72. 1100001111011101111101110111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111ケ -
  74. 111011111
  75. vNumberData（8）=
  77. 111000011111011111111111111111111111111111100001111101101111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111エ
  79. 110000111
  80. vNumberData（9）=
  82. 111000111111011101111111111111111111111111111111001111101011111111111111111111111111111111111110101111111111111111111111111111111111111111111111111111111111-101111111111111111111111111111110101111111111111111111111111111111111111111111111111111111111111111111111111ケ -これ
  84. 1100011111
  85. '出力画像ファイルヘッダー
  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）＆chrb（54）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（40）＆chrb（0）＆_
  90. chrb（0）＆chrb（0）＆chrb（40）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（10）＆chrb（0）＆chrb（0）＆_
  91. chrb（0）＆chrb（0）＆chrb（1）＆chrb（0）
  93. '出力画像情報ヘッダー
  94. Respons.binarywritechrb（24）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（176）
  96. ＆chrb（4）＆_
  97. chrb（0）＆chrb（0）＆chrb（18）＆chrb（11）＆chrb（0）＆chrb（0）＆chrb（18）＆chrb（11）＆_
  98. Chrb（0）＆Chrb（0）＆Chrb（0）＆Chrb（0）＆Chrb（0）＆Chrb（0）＆Chrb（0）＆Chrb（0）＆Chrb（0）＆Chrb（0）＆_
  99. chrb（0）＆chrb（0）
  101. fori = 9to0step-1 'はすべての行を通過しました
  102. forii = 0to3 'はすべての単語を渡しました
  103. foriii = 1to10 'はすべてのピクセルを渡しました
  104. 'ラインごとの出力画像データライン、単語ごと、ピクセルごとにピクセル
  105. ifrnd*99+1 <coddsthen 'はその他のポイントをランダムに生成します
  106. respons.binarywritevcolordata（0）
  107. それ以外
  108. Response.binarywritevcolordata（mid（vnumberdata（vcode（ii））、i*10+iii、1））））
  109. endif
  110. 次
  111. 次
  112. 次
  113. Endingub
  114. ％>

使用する必要があるページは、次の方法で引用されています。

検証コード：src = checkcode.asp cellpadding = "0" cellpacing = "0" style = "border-collapse：collapse; border-spacing：0px; width：780px; clear：blos; padding：0px！falies ！ Border-Bottom-radius：重要なもの：0px！ Line-Height：1.1em：0px！垂直アライメント：ベースライン！ 「>

上記はこの記事の全体的な内容です。あなたがそれを気に入っていただければ幸いです。

関連記事