asp output bmp
[2005-03-0612:04:25|Author: flashsoft]
Font size: Large | Medium | Small
<%
CallCom_CreatValidCode("ValidCode")
SubCom_CreatValidCode(pSN)
'Author:Layen
'QQ:84815733
'E-mail:[email protected]
'No caching
Response.Expires=-9999
Response.AddHeader"Pragma","no-cache"
Response.AddHeader"cache-ctrol","no-cache"
Response.ContentType="Image/BMP"
Randomize
Dimi,ii,iii
ConstcOdds=8'The probability of miscellaneous spots appearing
ConstcAmount=36'Number of text
ConstcCode="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
'Color data (characters, background)
DimvColorData(1)
vColorData(0)=ChrB(0)&ChrB(0)&ChrB(0)'Blue 0, green 0, red 0 (black)
vColorData(1)=ChrB(250)&ChrB(236)&ChrB(211)'Blue 250, green 236, red 211 (light blue)
'Randomly generated characters
DimvCode(4),vCodes
Fori=0To3
vCode(i)=Int(Rnd*cAmount)
vCodes=vCodes&Mid(cCode,vCode(i)+1,1)
Next
Session(pSN)=vCodes' record into Session
'character data
DimvNumberData(35)
vNumberData(0)="111000011111011110111101111011110100101111101001011111010010111110100101111101110111011110111101111011110111101111000111111110111110000111"
vNumberData(1)="111101111111100011111111111111111111011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111100000111"
vNumberData(2)="1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011"
vNumberData(3)="11100001111110111110111111011111111011111111011111110111111110111111111011111111111011111110111111011111101111110111111011111101111110111110000111"
vNumberData(4)="111111111111111101111111110111111101111111011111110111111101111111011111101111110000011111111111111111111000011"
vNumberData(5)="1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111"
vNumberData(6)="11110001111110111110111111111111111101111111110111110111110111110111110111110111110111110111110111110111110111110111110111110111110111110111110000111"
vNumberData(7)="1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111111011111"
vNumberData(8)="11100001111101111011110111101111011110111101111011110111100011111110111101111011111011110111110111110111110111110111110111110111110111110111110000111"
vNumberData(9)="1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111"
vNumberData(10)="11110111111111110111111110111111011111101111110111111011111101111110111110111110000111111101111101111011110111100010011111"
vNumberData(11)="1000000111111011110111101111011110111101111011110111100001111111011111011110111101111011110111101111011110111101111011110111101111011110111000000111"