利用XBM制作的验证码程序
整理日期：2007年08月05日 【字体：
大 中 小】
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"
%>
--------------------------------------------------------------
icech将以上的程序根据实际的要求做了一点点的修改。因为我在使用这段程序中，发现XBM只能显示黑白两种颜色，0代表白色，1代表黑色，因此将以上1~9的数字进行转换，将0变为1，1变为0，就可以制作出一个黑底白字的随机数XBM图像。
<%
Dim b(10,10)
b(0,1) = "0xc3" '数字0
b(0,2) = "0x99"
b(0,3) = "0x3c"
b(0,4) = "0x3c"
b(0,5) = "0x3c"
b(0,6) = "0x3c"
b(0,7) = "0x3c"
b(0,8) = "0x3c"
b(0,9) = "0x99"
伊图教程网[www.etoow.com]
http://www.etoow.com/html/2007-08/1186286852-5.html
b(0,10)= "0xc3"
利用XBM制作的验证码程序
'http://www.etoow.com/html/2007-08/1186286852-5.html
b(1,1) = "0xe7" '数字1
b(1,2) = "0xe3"
b(1,3) = "0xe7"
b(1,4) = "0xe7"
b(1,5) = "0xe7"
b(1,6) = "0xe7"
b(1,7) = "0xe7"
b(1,8) = "0xe7"
b(1,9) = "0xe7"
b(0,10)= "0x81"
b(2,1) = "0xc3" '数字2
b(2,2) = "0x99"
b(2,3) = "0x9f"
b(2,4) = "0x9f"
b(2,5) = "0xcf"
b(2,6) = "0xe7"
b(2,7) = "0xf3"
b(2,8) = "0xf9"
b(2,9) = "0xf9"
b(2,10)= "0x81"
b(3,1) = "0xc3" '数字3
b(3,2) = "0x99"
b(3,3) = "0x3f"
b(3,4) = "0x9f"
b(3,5) = "0xe3"
b(3,6) = "0x9f"
b(3,7) = "0x3f"
b(3,8) = "0x3f"
b(3,9) = "0x99"
b(3,10)= "0xc7"
b(4,1) = "0xc7" '数字4