font.asp

我之前写的一个asp的cms比较简单

<%
' ***************************************************************
'
' 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) ="00000000000" 
Letter(1) ="00000000000" 
Letter(2) ="00011100000" 
Letter(3) ="00111110000" 
Letter(4) ="01110111000" 
Letter(5) ="01110111000" 
Letter(6) ="01110111000" 
Letter(7) ="01110111000" 
Letter(8) ="01110111000" 
Letter(9) ="01110111000" 
Letter(10) ="00111110000" 
Letter(11) ="00111110000" 
Letter(12) ="00000000000" 




Font.Add "0",Letter

Letter(0) ="0000000000" 
Letter(1) ="0000000000" 
Letter(2) ="0000111000" 
Letter(3) ="0000111000" 
Letter(4) ="0001111000" 
Letter(5) ="0111111000" 
Letter(6) ="0110111000" 
Letter(7) ="0000111000" 
Letter(8) ="0000111000" 
Letter(9) ="0000111000" 
Letter(10) ="0000111000" 
Letter(11) ="0000111000" 
Letter(12) ="0000000000" 
Letter(13) ="0000000000" 


Font.Add "1",Letter

Letter(0) ="00000000000" 
Letter(1) ="00000000000" 
Letter(2) ="00111100000" 
Letter(3) ="01111110000" 
Letter(4) ="01110111000" 
Letter(5) ="00000111000" 
Letter(6) ="00000111000" 
Letter(7) ="00001110000" 
Letter(8) ="00011100000" 
Letter(9) ="00111000000" 
Letter(10) ="01111111000" 
Letter(11) ="01111111000" 
Letter(12) ="00000000000" 


Font.Add "2",Letter


Letter(0) ="00000000000" 
Letter(1) ="00000000000" 
Letter(2) ="00111100000" 
Letter(3) ="01111110000" 
Letter(4) ="01110111000" 
Letter(5) ="00000111000" 
Letter(6) ="00001110000" 
Letter(7) ="00001110000" 
Letter(8) ="00000111000" 
Letter(9) ="01110111000" 
Letter(10) ="01111110000" 
Letter(11) ="00111100000" 
Letter(12) ="00000000000" 
Letter(13) ="00000000000" 

Font.Add "3",Letter

Letter(0) ="0000000000000" 
Letter(1) ="0000000000000" 
Letter(2) ="0000001110000" 
Letter(3) ="0000011110000" 
Letter(4) ="0000111110000" 
Letter(5) ="0001101110000" 
Letter(6) ="0011001110000" 
Letter(7) ="0111001110000" 
Letter(8) ="0111111111000" 
Letter(9) ="0111111111000" 
Letter(10) ="0000001110000" 
Letter(11) ="0000001110000" 
Letter(12) ="0000000000000" 


Font.Add "4",Letter

Letter(0) ="00000000000" 
Letter(1) ="00000000000" 
Letter(2) ="00111111000" 
Letter(3) ="00111111000" 
Letter(4) ="00110000000" 
Letter(5) ="01111110000" 
Letter(6) ="01111111000" 
Letter(7) ="00100111000" 
Letter(8) ="00000111000" 
Letter(9) ="01110111000" 
Letter(10) ="01111110000" 
Letter(11) ="00111100000" 
Letter(12) ="00000000000" 



Font.Add "5",Letter

Letter(0) ="00000000000" 
Letter(1) ="00000000000" 
Letter(2) ="00011110000" 
Letter(3) ="00111111000" 
Letter(4) ="01110111000" 
Letter(5) ="01110000000" 
Letter(6) ="01110110000" 
Letter(7) ="01111111000" 
Letter(8) ="01110111000" 
Letter(9) ="01110111000" 
Letter(10) ="00111111000" 
Letter(11) ="00011110000" 
Letter(12) ="00000000000" 

Font.Add "6",Letter

Letter(0) ="00000000000" 
Letter(1) ="00000000000" 
Letter(2) ="01111111000" 
Letter(3) ="01111111000" 
Letter(4) ="00000110000" 
Letter(5) ="00001110000" 
Letter(6) ="00001100000" 
Letter(7) ="00011100000" 
Letter(8) ="00011100000" 
Letter(9) ="00111000000" 
Letter(10) ="00111000000" 
Letter(11) ="00111000000" 
Letter(12) ="00000000000" 
Letter(13) ="00000000000" 



Font.Add "7",Letter

Letter(0) ="00000000000" 
Letter(1) ="00000000000" 
Letter(2) ="00111110000" 
Letter(3) ="01111111000" 
Letter(4) ="01110111000" 
Letter(5) ="01110111000" 
Letter(6) ="00111110000" 
Letter(7) ="00111110000" 
Letter(8) ="01110111000" 
Letter(9) ="01110111000" 
Letter(10) ="01111111000" 
Letter(11) ="00111110000" 
Letter(12) ="00000000000" 


Font.Add "8",Letter

Letter(0) ="00000000000" 
Letter(1) ="00000000000" 
Letter(2) ="00111100000" 
Letter(3) ="01111110000" 
Letter(4) ="01110111000" 
Letter(5) ="01110111000" 
Letter(6) ="01111111000" 
Letter(7) ="00110111000" 
Letter(8) ="00000111000" 
Letter(9) ="01110111000" 
Letter(10) ="01111110000" 
Letter(11) ="00111100000" 
Letter(12) ="00000000000" 
Letter(13) ="00000000000" 
Font.Add "9",Letter
%>