源码地带 > 电路图 > 电子资料下载 > Internet/网络编程 >竹竹验证码控件这个很好用的asp代码哦 > 查看压缩包源码

竹竹验证码控件这个很好用的asp代码哦

源代码在线查看： font.asp

软件大小：	17 K
上传用户：	bi_yangfeng
关键词：	asp 控件代码
下载地址：	免注册下载普通下载


相关代码
error.asp head.asp manage.asp manage.asp manage.asp duanxinsee.asp ggg.asp duanxinsee.asp

								' ***************************************************************
				'
				' Definitions of chars 0-9 
				'
				' ***************************************************************
				
				' Font and Letter must be defined to work correctly
				Dim Font
				Dim C(178)
				Dim Letter(19)
				Dim TempColor,Fi
				
				'for Fi = 0 to 177
					'Randomize
					'TempColor=Int(Rnd * 6) + 5
					'C(Fi) = TempColor	
				'next
				dim  cd
				
				
				
				Set Font = Server.CreateObject("Scripting.Dictionary")
				
				Letter(0) = "00000000000000"
				Letter(1) = "00001111100000"
				Letter(2) = "00011111110000"
				Letter(3) = "00111000111000"
				Letter(4) = "00110000011100"
				Letter(5) = "01110000001100"
				Letter(6) = "01100000001110"
				Letter(7) = "01100000001110"
				Letter(8) = "11100000001110"
				Letter(9) = "11000000001110"
				Letter(10) = "11000000001110"
				Letter(11) = "11100000001110"
				Letter(12) = "11100000001100"
				Letter(13) = "11100000001100"
				Letter(14) = "01100000001100"
				Letter(15) = "01110000011100"
				Letter(15) = "00111000011000"
				Letter(16) = "00011111110000"
				Letter(17) = "00001111100000"
				Letter(18) = "0000000000000"
				
				
				
				
				
				
				Font.Add "0",Letter
				
				Letter(0) = "00000000000000"
				Letter(1) = "00000001110000"
				Letter(2) = "00000001110000"
				Letter(3) = "00000011100000"
				Letter(4) = "00000011000000"
				Letter(5) = "00000011000000"
				Letter(6) = "00000011000000"
				Letter(7) = "00000111000000"
				Letter(8) = "00000111000000"
				Letter(9) = "00000111000000"
				Letter(10) = "00000110000000"
				Letter(11) = "00000110000000"
				Letter(12) = "00000110000000"
				Letter(13) = "00000110000000"
				Letter(14) = "00000110000000"
				Letter(15) = "00000110000000"
				Letter(15) = "00000110000000"
				Letter(16) = "00000110000000"
				Letter(17) = "00000010000000"
				Letter(18) = "00000000000000"
				
				
				Font.Add "1",Letter
				
				Letter(0) = "00000000000000"
				Letter(1) = "00001111110000"
				Letter(2) = "00011111111000"
				Letter(3) = "00111000011100"
				Letter(4) = "01110000011100"
				Letter(5) = "01110000011000"
				Letter(6) = "01100000011000"
				Letter(7) = "00000000111000"
				Letter(8) = "00000001110000"
				Letter(9) = "00000001110000"
				Letter(10) = "00000011000000"
				Letter(11) = "00000111000000"
				Letter(12) = "00001110000000"
				Letter(13) = "00011000000000"
				Letter(14) = "00011000000000"
				Letter(15) = "00110000011100"
				Letter(16) = "01101111111100"
				Letter(17) = "01111111111110"
				Letter(18) = "01111100000000"
				Letter(19) = "00000000000000"
				
				Font.Add "2",Letter
				
				
				
				Letter(0) = "00000000000000"
				Letter(1) = "00001111111000"
				Letter(2) = "00111111111000"
				Letter(3) = "01110000111100"
				Letter(4) = "01100000011000"
				Letter(5) = "01000000111000"
				Letter(6) = "00000000111000"
				Letter(7) = "00000001110000"
				Letter(8) = "00000011000000"
				Letter(9) = "00000111110000"
				Letter(10) = "00000100111000"
				Letter(11) = "00000000011100"
				Letter(12) = "00000000011100"
				Letter(13) = "00000000011100"
				Letter(14) = "00000000011100"
				Letter(15) = "00000000011000"
				Letter(16) = "11100000111000"
				Letter(17) = "11111111110000"
				Letter(18) = "01111111100000"
				Letter(19) = "00000000000000"
				
				Font.Add "3",Letter
				
				Letter(0) = "00000000000000"
				Letter(1) = "00000000111000"
				Letter(2) = "00000001111000"
				Letter(3) = "00000011100000"
				Letter(4) = "00000111011100"
				Letter(5) = "00001110011100"
				Letter(6) = "00001100011000"
				Letter(7) = "00011000111000"
				Letter(8) = "00111000110000"
				Letter(9) = "01110000110000"
				Letter(10) = "01100000110000"
				Letter(11) = "01100000110000"
				Letter(12) = "11000111111110"
				Letter(13) = "11111111111100"
				Letter(14) = "11111111100000"
				Letter(15) = "11100001100000"
				Letter(16) = "00000001110000"
				Letter(17) = "00000000110000"
				Letter(18) = "00000000110000"
				Letter(19) = "00000000100000"
				
				
				Font.Add "4",Letter
				
				Letter(0) = "00000000000000"
				Letter(1) = "00001100000100"
				Letter(2) = "00011111111110"
				Letter(3) = "00011111111100"
				Letter(4) = "00011110000000"
				Letter(5) = "00011000000000"
				Letter(6) = "00111000000000"
				Letter(7) = "00111000000000"
				Letter(8) = "00111111110000"
				Letter(9) = "00111111111000"
				Letter(10) = "00000000011000"
				Letter(11) = "00000000011000"
				Letter(12) = "00000000011000"
				Letter(13) = "00000000011000"
				Letter(14) = "00000000011000"
				Letter(15) = "00000000011000"
				Letter(16) = "00000001111000"
				Letter(17) = "01111111110000"
				Letter(18) = "00111111000000"
				Letter(19) = "00000000100000"
				
				
				Font.Add "5",Letter
				
				Letter(0) = "00000000000000"
				Letter(1) = "00000011110000"
				Letter(2) = "00000111100000"
				Letter(3) = "00001110000000"
				Letter(4) = "00011100000000"
				Letter(5) = "00111000000000"
				Letter(6) = "00110000000000"
				Letter(7) = "00110000000000"
				Letter(8) = "01111111110000"
				Letter(9) = "01111111111000"
				Letter(10) = "01110000011100"
				Letter(11) = "01100000001100"
				Letter(12) = "01100000001100"
				Letter(13) = "01100000001100"
				Letter(14) = "01100000001100"
				Letter(15) = "01110000011100"
				Letter(16) = "00110000011100"
				Letter(17) = "00111111111000"
				Letter(18) = "00011111110000"
				Letter(19) = "00000000000000"
				
				
				Font.Add "6",Letter
				
				Letter(0) = "00000000000000"
				Letter(1) = "00100111111110"
				Letter(2) = "01111111111100"
				Letter(3) = "01111110011100"
				Letter(4) = "00000000011000"
				Letter(5) = "00000000111000"
				Letter(6) = "00000000110000"
				Letter(7) = "00000000110000"
				Letter(8) = "00000000110000"
				Letter(9) = "00000001110000"
				Letter(10) = "00000001100000"
				Letter(11) = "00000001100000"
				Letter(12) = "00000001100000"
				Letter(13) = "00000001100000"
				Letter(14) = "00000011100000"
				Letter(15) = "00000011100000"
				Letter(16) = "00000011100000"
				Letter(17) = "00000001000000"
				Letter(18) = "00000001000000"
				Letter(19) = "00000000000000"
				
				
				Font.Add "7",Letter
				
				Letter(0) = "00000000000000"
				Letter(1) = "00001111110000"
				Letter(2) = "00011111111000"
				Letter(3) = "00111000011000"
				Letter(4) = "00110000011000"
				Letter(5) = "01110000011100"
				Letter(6) = "01110000011000"
				Letter(7) = "00110000011000"
				Letter(8) = "00111101111000"
				Letter(9) = "00011111111000"
				Letter(10) = "00111000111100"
				Letter(11) = "01110000001100"
				Letter(12) = "01110000001100"
				Letter(13) = "01100000001110"
				Letter(14) = "01100000001100"
				Letter(15) = "01100000001100"
				Letter(16) = "01110000011100"
				Letter(17) = "00111111111100"
				Letter(18) = "00011111110000"
				Letter(19) = "00000000000000"
				
				
				Font.Add "8",Letter
				
				Letter(0) = "00000000000000"
				Letter(1) = "00011111110000"
				Letter(2) = "00111111111000"
				Letter(3) = "01110000111000"
				Letter(4) = "01110000011100"
				Letter(5) = "01100000001100"
				Letter(6) = "01100000001100"
				Letter(7) = "01100000001100"
				Letter(8) = "01100000001100"
				Letter(9) = "01110000011100"
				Letter(10) = "00111111111100"
				Letter(11) = "00011111111100"
				Letter(12) = "00000000011000"
				Letter(13) = "00000000011000"
				Letter(14) = "0000000011100"
				Letter(15) = "00000001110000"
				Letter(16) = "00000011100000"
				Letter(17) = "00000111000000"
				Letter(18) = "00011110000000"
				Letter(19) = "00000000000000"
				
				Font.Add "9",Letter
				
				%>


相关资源
竹竹验证码控件这个很好用的asp代码哦韩国的一个数据表控件2 很好用支持D4-5 一共5个 Korea, a data table control 这个很好用的链表程序一个很好用的报警代码很好用的PB代码很好用的PB代码网络编程很好用的远代码做jsp的一个很好用的工具代码 XPASP验证码控件(ASP.NET DLL).NET源码运行环境: .Net Framework 1.1,IIS 5.0+,IE6.0 (WinXP/IIS6.0/IE6.0调试) 版本说明:

竹竹验证码控件 这个很好用的asp代码哦

源代码在线查看： font.asp

相关代码

相关资源

友情链接

竹竹验证码控件这个很好用的asp代码哦