用戶登錄  |  用戶注冊
首 頁源碼下載網絡學院最新源碼源碼排行屏蔽廣告
當前位置:新興網絡 > 網絡學院 > Asp編程 > Asp 基礎

比較簡單的一款ASP驗證碼生成程序代碼

減小字體 增大字體 作者:佚名  來源:本站整理  發布時間:2010-08-29 17:19:48

非常簡潔的ASP驗證碼生成程序。

ASP code復制代碼
<%
Response.Buffer = True
With Response
    .Expires = -1
    .AddHeader "Pragma", "no-cache"
    .AddHeader "cache-ctrol", "no-cache"
End With
Dim a(10, 10)

a(0, 1) = "0x3c" '數字0
a(0, 2) = "0x66"
a(0, 3) = "0xc3"
a(0, 4) = "0xc3"
a(0, 5) = "0xc3"
a(0, 6) = "0xc3"
a(0, 7) = "0xc3"
a(0, 8) = "0xc3"
a(0, 9) = "0x66"
a(0, 10) = "0x3c"

a(1, 1) = "0x18" '數字1
a(1, 2) = "0x1c"
a(1, 3) = "0x18"
a(1, 4) = "0x18"
a(1, 5) = "0x18"
a(1, 6) = "0x18"
a(1, 7) = "0x18"
a(1, 8) = "0x18"
a(1, 9) = "0x18"
a(1, 10) = "0x7e"

a(2, 1) = "0x3c" '數字2
a(2, 2) = "0x66"
a(2, 3) = "0x60"
a(2, 4) = "0x60"
a(2, 5) = "0x30"
a(2, 6) = "0x18"
a(2, 7) = "0x0c"
a(2, 8) = "0x06"
a(2, 9) = "0x06"
a(2, 10) = "0x7e"

a(3, 1) = "0x3c" '數字3
a(3, 2) = "0x66"
a(3, 3) = "0xc0"
a(3, 4) = "0x60"
a(3, 5) = "0x1c"
a(3, 6) = "0x60"
a(3, 7) = "0xc0"
a(3, 8) = "0xc0"
a(3, 9) = "0x66"
a(3, 10) = "0x38"

a(4, 1) = "0x38" '數字4
a(4, 2) = "0x3c"
a(4, 3) = "0x36"
a(4, 4) = "0x33"
a(4, 5) = "0x33"
a(4, 6) = "0x33"
a(4, 7) = "0xff"
a(4, 8) = "0x30"
a(4, 9) = "0x30"
a(4, 10) = "0xfe"

a(5, 1) = "0xfe" '數字5
a(5, 2) = "0xfe"
a(5, 3) = "0x06"
a(5, 4) = "0x06"
a(5, 5) = "0x3e"
a(5, 6) = "0x60"
a(5, 7) = "0xc0"
a(5, 8) = "0xc3"
a(5, 9) = "0x66"
a(5, 10) = "0x3c"

a(6, 1) = "0x60" '數字6
a(6, 2) = "0x30"
a(6, 3) = "0x18"
a(6, 4) = "0x0c"
a(6, 5) = "0x3e"
a(6, 6) = "0x63"
a(6, 7) = "0xc3"
a(6, 8) = "0xc3"
a(6, 9) = "0x66"
a(6, 10) = "0x3c"

a(7, 1) = "0xff" '數字7
a(7, 2) = "0xc0"
a(7, 3) = "0x60"
a(7, 4) = "0x30"
a(7, 5) = "0x18"
a(7, 6) = "0x18"
a(7, 7) = "0x18"
a(7, 8) = "0x18"
a(7, 9) = "0x18"
a(7, 10) = "0x18"

a(8, 1) = "0x3c" '數字8
a(8, 2) = "0x66"
a(8, 3) = "0xc3"
a(8, 4) = "0x66"
a(8, 5) = "0x3c"
a(8, 6) = "0x66"
a(8, 7) = "0xc3"
a(8, 8) = "0xc3"
a(8, 9) = "0x66"
a(8, 10) = "0x3c"

a(9, 1) = "0x3c" '數字9
a(9, 2) = "0x66"
a(9, 3) = "0xc3"
a(9, 4) = "0xc3"
a(9, 5) = "0x66"
a(9, 6) = "0x3c"
a(9, 7) = "0x18"
a(9, 8) = "0x0c"
a(9, 9) = "0x06"
a(9, 10) = "0x03"
Dim num
Randomize
num = Int(7999 * Rnd + 2000)
Session("safenum") = num
Dim Image
Dim Width, Height
Dim digtal
Dim Length
Dim sort
Dim hc
Length = 4
hc = Chr(13) & Chr(10)
ReDim sort(Length)
digital = ""
For I = 1 To Length - Len(num)
    digital = digital & "0"
Next
For I = 1 To Len(num)
    digital = digital & Mid(num, I, 1)
Next
For I = 1 To Len(digital)
    sort(I) = Mid(digital, I, 1)
Next
Width = 8 * Len(digital)
Height = 10
Response.ContentType = "image/x-xbitmap"
Image = "#define counter_width " & Width & hc
Image = Image & "#define counter_height " & Height & hc
Image = Image & "static unsigned char counter_bits[] = {" & hc
For I = 1 To Height
    For J = 1 To Length
        Image = Image & a(sort(J), I) & ","
    Next
Next
Image = Left(Image, Len(Image) - 1)
Image = Image & "};" & hc
Response.Write Image
%>

Tags:驗證碼生成

作者:佚名
  • 好的評價 如果您覺得此文章好,就請您
      0%(0)
  • 差的評價 如果您覺得此文章差,就請您
      0%(0)

網絡學院評論評論內容只代表網友觀點,與本站立場無關!

   評論摘要(共 0 條,得分 0 分,平均 0 分) 查看完整評論
黑龙江22选5大星走势图