《asp生成数字图片验证码.docx》由会员分享，可在线阅读，更多相关《asp生成数字图片验证码.docx（3页珍藏版）》请在三一文库上搜索。
1、查看效果：asp生成图片验证码调用代码和刷新验证码代码<a href=javascript:f()><img src=yzm.asp name=yzm id=yzm alt=点击更换></a><script>function f()document.getElementById(yzm).src=yzm.asp;</script>图片验证码代码：<%Option ExplicitResponse.Expires = 0Response.AddHeader Pragma,no-cacheResponse.AddHeader cac
2、he-ctrol,no-cacheResponse.ContentType = Image/BMPRandomize TimerDim Text_Data(9),Text_Len,Int_Temp(),I,j,k,Int_Temp2”* 参数配置区 *Text_Len = 4 ”验证码长度(支持1-25位)*ReDim Int_Temp( Text_Len - 1 )Text_Data(0)=0000000000000111100000110011000011011100001101110000110011000011101100001110110 0001100110000011110000
3、000000000Text_Data(1)=0000000000000001100000001110000011111000000001100000000110000000011000000001100 0000001100000000110000000000000Text_Data(2)=0000000000000111100000110011000011001100000000110000000110000000110000000110000 0001100000000111111000000000000Text_Data(3)=000000000000011110000011001100
4、0011001100000000110000001110000000001100001100110 0001100110000011110000000000000Text_Data(4)=0000000000000110000000011000000001101100000110110000011011000011001100001111111 0000000110000000011000000000000Text_Data(5)=0000000000001111110000110000000011000000001100000000111110000000001100000000110 00
5、00001100000111100000000000000Text_Data(6)=0000000000000011100000001100000001100000001111100000110011000011001100001100110 0001100110000011110000000000000Text_Data(7)=0000000000001111110000000011000000011000000001100000001100000000110000000110000 0000110000000011000000000000000Text_Data(8)=0000000000
6、000111100000110011000011001100001110110000011110000011011100001100110 0001100110000011110000000000000Text_Data(9)=0000000000000111100000110011000011001100001100110000110011000001111100000001100 0000011000000011100000000000000 ”下面随机生成各位验证码 Session(Num)= For I = 0 To Text_Len - 1 Int_Temp(I) = Int(Rnd
7、 * 10) Session(Num) = Session(Num) + Mid(0123456789”,Int_Temp(I)+1,1) Next ”下面输出文件头部分 Int_Temp2 = (Text_Len - 1) 4 * 220 + (Text_Len - 1) / 4 - (Text_Len - 1) 4 * 4) * 44 Response.BinaryWrite ChrB(&H42) & ChrB(&H4D) Response.BinaryWrite ChrB(Int_Temp2 + 206) / 256 - (Int_Temp2 + 206) 256
8、) * 256) & ChrB(Int_Temp2 + 206) 256)特殊位Response.BinaryWrite ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(&H76) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(&H28) & ChrB(0) & ChrB(0) & ChrB(0)Response.BinaryWrite ChrB(Text_L
9、en * 10)特殊位Response.BinaryWrite ChrB(0) & ChrB(0) & ChrB(0) & ChrB(&HB) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(&H1) & ChrB(0) & ChrB(&H4) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)Response.BinaryWrite ChrB(Int_Temp2 + 88) / 256
10、 - (Int_Temp2 + 88) 256) * 256) & ChrB(Int_Temp2 + 88) 256)特殊位Response.BinaryWrite ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(16) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(16) & C
11、hrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(&H80) & ChrB(0) & ChrB(0) & ChrB(&H80) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(&H80) & ChrB(&H80) & ChrB(0) & ChrB(&a
12、mp;H80) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(&H80) & ChrB(0) & ChrB(&H80) & ChrB(0)Response.BinaryWrite ChrB(&H80) & ChrB(&H80) & ChrB(0) & ChrB(0)&ChrB(&H80)&ChrB(&H80)& ChrB(&H80)&ChrB(0)&ChrB(&HC0)&Chr
13、B(&HC0)& ChrB(&HC0)&ChrB(0)&ChrB(0) & ChrB(0)& ChrB(&HFF) & ChrB(0)&ChrB(0)&ChrB(&HFF)&ChrB(0) &ChrB(0) & ChrB(0)&ChrB(&HFF) ChrB(0) & ChrB(&HFF) ChrB(0) &&&&&& ChrB(&HFF) & ChrB(0) & ChrB
14、(&HFF) ChrB(0) & ChrB(0) & ChrB(&HFF) & ChrB(0)& ChrB(0) & ChrB(&HFF) & ChrB(&HFF)ChrB(0) & ChrB(&HFF) & ChrB(&HFF)ChrB(&HFF) & ChrB(0)”下面输出图片数据For i = 10 to 0 Step -1For j = 0 to Text_Len - 1For k = 1 to 9 Step 2If Mid(Text_Data(Int_Te
15、mp(j) , i * 10 + k , 1) = 0 Then Int_Temp2 = Get_BackC010ro * 16 Else Int_Temp2 = Get_ForeC010ro * 16If Mid(Text_Data(Int_Temp(j) , i * 10 + k + 1 , 1) = 0 Then Int_Temp2 = Int_Temp2 +Get_BackC010ro Else Int_Temp2 = Int_Temp2 + Get_ForeC010roResponse.BinaryWrite ChrB(Int_Temp2)NextNextInt_Temp2 = (T
16、ext_Len / 4 - Text_Len 4) * 4Select Case Int_Temp2Case 1Response.BinaryWrite ChrB(0) & ChrB(0) & ChrB(0)Case 2Response.BinaryWrite ChrB(0) & ChrB(0)Case 3Response.BinaryWrite ChrB(0)End SelectNextFunction Get_BackColor()”得到一个背景色If Int(Rnd * 30) = 0 Then 注：此处的 Rnd * 30是决定背景杂色的多少，值越大，则杂 色越少，图片越容易看清楚Get_BackColor = CInt(Mid(00021209”,Int(Rnd * 4) * 2 + 1,2)ElseGet_BackColor = CInt(Mid(081515151515”,Int(Rnd * 6) * 2 + 1,2)End IfEnd FunctionFunction Get_ForeColor() ”得到一个前景色Get_ForeColor = CInt(Mid(00021209”,Int(Rnd * 4) * 2 + 1,2) End Function %>更多信息请查看IT技术专栏