資源描述：
《一個非常簡潔的asp驗證碼程序?qū)嵗酚蓵T上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。
1、一個非常簡潔的ASP驗證碼程序?qū)嵗?>教育資源庫<%Response.Buffer=Truea","no-cache".AddHeader"cache-ctrol","no-cache"Enda(10,10)a(0,1)="0x3c"'數(shù)字0a(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"'
2、數(shù)字1a(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(0,10)="0x7e"a(2,1)="0x3c"'數(shù)字2a(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"
3、a(3,1)="0x3c"'數(shù)字3a(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"'數(shù)字4a(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"
4、a(4,10)="0xfe"a(5,1)="0xfe"'數(shù)字5a(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"'數(shù)字6a(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
5、"a(6,9)="0x66"a(6,10)="0x3c"a(7,1)="0xff"'數(shù)字7a(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"'數(shù)字8a(8,2)="0x66"a(8,3)="0xc3"a(8,4)="0x66"a(8,5)="0x3c"a(8,6)="0x66"a(8,7)="0xc
6、3"a(8,8)="0xc3"a(8,9)="0x66"a(8,10)="0x3c"a(9,1)="0x3c"'數(shù)字9a(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"DimnumRandomizenum=Int(7999*Rnd+2000)Session("safenum")=numDimImageDimdigtalDim
7、Lengt12下一頁>>>>這篇文章來自..，。hDimsortDimhcLength=4hc=chr(13)chr(10)Redimsort(Length)digital=""ForI=1ToLength-Len(num)digital=digital"0"NextForI=1ToLen(num)digital=digitalMid(num,I,1)NextForI=1ToLen(digital)sort(I)=Mid(digital,I,1)Nextage/x-xbitmap"Image="#defin
8、ecounter_p;p;hcImage=Image"#definecounter_height"HeighthcImage=Image"staticunsignedcharcounter_bits[]={"hcForI=1ToHeightForJ=1ToLengthImage=Imagea(sort(J),I)","NextNextImage=Left(Image,Len(Image)-1)Image=Imag
