动网论坛验证码asp.docx
《动网论坛验证码asp.docx》由会员分享，可在线阅读，更多相关《动网论坛验证码asp.docx（37页珍藏版）》请在冰豆网上搜索。
动网论坛验证码asp
<%
'//===================================================
'动网论坛验证码
'作者Dv.HxyMan
'更新2008-1-4
'说明前半部分为字库，后半部分为验证码生成程序。
'可适当自行增加字库。
默认为300个一级常用字。
'//===================================================
'----自动成生配置区_开始（请不要改动下面区块的内容，否则后台验证码设定程序将不能识别。
）----
'100225302328-60-151510000000025525525525525525530306030
'----自动成生配置区_结束--------------------------------------------------------
OptionExplicit
Dimserver_v1,server_v2,Chkpost
Chkpost=False
server_v1=Cstr（Request.ServerVariables（"HTTP_REFERER"））
server_v2=Cstr（Request.ServerVariables（"SERVER_NAME"））
IfMid（server_v1,8,len（server_v2））=server_v2ThenChkpost=True
IfNotChkpostThenResponse.End
Dimf（350,4）,u:
u=0
If1=0Then
f（u,0）="0":
f（u,1）="000000000000000011100010001001000100100010010001001000100100010001110000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="1":
f（u,1）="000000000000000011000010100000010000001000000100000010000001000011111000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="2":
f（u,1）="000000000000000111100000001000000100000100000100000100000100000011111000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="3":
f（u,1）="000000000000000111100000001000000100011100000001000000100000010011110000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="4":
f（u,1）="000000000000000000100000110000101000010100010010001111100000100000010000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="5":
f（u,1）="000000000000000111100010000001000000111000000010000001000000100011100000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="6":
f（u,1）="000000000000000011110010000001000000101100011001001000100100010001110000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="7":
f（u,1）="000000000000000111110000001000001000001000001000000100000100000010000000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="8":
f（u,1）="000000000000000011100010001001000100011100010011001000100100010001110000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="9":
f（u,1）="000000000000000011100010001001000100100110001101000000100000010011110000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
EndIf
If1=0Then
f（u,0）="A":
f（u,1）="000000000000000001000001010000101000010100010001001111100100010100000100000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="B":
f（u,1）="000000000000000111100010001001000100111100010010001000100100010011110000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="C":
f（u,1）="000000000000000001110001000001000000100000010000001000000010000000111000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="D":
f（u,1）="000000000000000111000010010001000100100010010001001000100100100011100000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="E":
f（u,1）="000000000000000111110010000001000000111100010000001000000100000011111000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="F":
f（u,1）="000000000000000111110010000001000000111100010000001000000100000010000000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="G":
f（u,1）="000000000000000001110001000001000000100000010001001000100010010000111000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="H":
f（u,1）="000000000000000100010010001001000100111110010001001000100100010010001000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="I":
f（u,1）="000000000000000111110000100000010000001000000100000010000001000011111000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="J":
f（u,1）="000000000000000011100000010000001000000100000010000001000000100011100000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="K":
f（u,1）="000000000000000100010010010001010000110000011000001010000100100010001000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="L":
f（u,1）="000000000000000100000010000001000000100000010000001000000100000011111000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="M":
f（u,1）="000000000000001000010100001011001101100110101101010110101000010100001000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="N":
f（u,1）="000000000000000100010011001001100100101010010101001001100100110010001000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="O":
f（u,1）="000000000000000001000001010001000100100010010001001000100010100000100000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="P":
f（u,1）="000000000000000111100010001001000100100100011100001000000100000010000000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="Q":
f（u,1）="000000000000000001000001010001000100100010010001001000100010100000110000000100000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="R":
f（u,1）="000000000000000111100010001001000100100010011110001001000100010010001000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="S":
f（u,1）="000000000000000011110010000001000000011000000010000000100000010011110000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="T":
f（u,1）="000000000000001111111000100000010000001000000100000010000001000000100000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="U":
f（u,1）="000000000000000100010010001001000100100010010001001000100100010001110000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="V":
f（u,1）="000000000000001000001010001001000100100010001010000101000010100000100000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="W":
f（u,1）="000000000000001000001100000110010011001001011011001101100100010010001000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="X":
f（u,1）="000000000000000100010001010000101000001000000100000101000100010010001000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="Y":
f（u,1）="000000000000000100010010001000101000010100000100000010000001000000100000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
f（u,0）="Z":
f（u,1）="000000000000000111110000001000001000001000000100000100000100000011111000000000000000":
f（u,2）=7:
f（u,3）=12:
u=u+1
EndIf
If1=1Then
f（u,0）="安":
f（u,1）="000001000000011111111110010000000010100010000100000010000000111111111110000100010000000110010000000001100000000011011000111100000110000000000000":
f（u,2）=12:
f（u,3）=12:
u=u+1
f（u,0）="把":
f（u,1）="001000000000001001111110111111010010001001010010001101010010011001111110101001000000001001000000001001000010001001000010111001111110000000000000":
f（u,2）=12:
f（u,3）=12:
u=u+1
f（u,0）="办":
f（u,1）="000010000000000010000000011111111000000010001000001010001000001010001100010010001010100100001010000100001000001000001000110001110000000000000000":
f（u,2）=12:
f（u,3）=12:
u=u+1
f（u,0）="保":
f（u,1）="001011111100001010000100010010000100010011111100110010010100010000010000010111111110010000110000010001011000010010010100010100010010000000000000":
f（u,2）=12:
f（u,3）=12:
u=u+1
f（u,0）="报":
f（u,1）="001001111100001001000100111111000100001001011000001001000000001101111100111001010100001001010100001001001000001001010100111001100010000000000000":
f（u,2）=12:
f（u,3）=12:
u=u+1
f（u,0）="北":
f（u,1）="000100100000000100100000000100100000111100100110000100111000000100100000000100100000000100100010001100100010110100100010000100111110000000000000":
f（u,2）=12:
f（u,3）=12:
u=u+1
f（u,0）="本":
f（u,1）="000001000000000001000100111111111110000001000000000011100000000101010000001001001000010001000100101111111010000001000000000001000000000000000000":
f（u,2）=12:
f（u,3）=12:
u=u+1
f（u,0）="比":
f（u,1）="010000100000010000100000010000100010010000100100011110111000010000100000010000100000010000100010010010100010011100100010010000111110000000000000":
f（u,2）=12:
f（u,3）=12:
u=u+1
f（u,0）="标":
f（u,1）="001000000100001011111110111100000000001000000000011011111110011100010000101001011000101001010100001010010010001100010010001001110000000000000000":
f（u,2）=12:
f（u,3）=12:
u=u+1
f（u,0）="表":
f（u,1）="000001000000111111111110000001000000011111111100000001000000111111111110000101000100001100101000010100010000100101001000000110000110000000000000":
f（u,2）=12:
f（u,3）=12:
u=u+1
f（u,0）="并":
f（u,1）="000100001000000010010000011111111110000100010000000100010000000100010000111111111110000100010000000100010000001000010000110000010000000000000000":
f（u,2）=12:
f（u,3）=12:
u=u+1
f（u,0）="不":
f（u,1）="111111111110000000100000000001000000000001000000000011010000000101001000001001000100110001000010000001000000000001000000000001000000000000000000":
f（u,2）=12:
f（u,3）=12:
u=u+1
f（u,0）="步":
f（u,1）="000001000000001001111100001001000000001001000000111111111110000001000000000101000100001001001000010000010000000001100000011110000000000000000000":
f（u,2）=12:
f（u,3）=12:
u=u+1
f（u,0）="部":
f（u,1）="000100000000111111111110010001010010001010010100111111110100000000010100011111010010010001010010010001011010011111010100010001010000000000000000":
f（u,2）=12:
f（u,3）=12:
u=u+1
f（u,0）="产":
f（u,1）="000001000000111111111110000100001000000010010000011111111110010000000000010000000000010000000000010000000000100000000000100000000000000000000000":
f（u,2）=12:
f（u,3）=12:
u=u+1
f（u,0）="场":
f（u,1）="0010111111000010000010000010000100
升级会员 