频道直达 - 专题 - 新闻 - 技巧 - 组网 - 开发 - 安全 - web编程 - 图像 - 操作系统 - 数据库 - 教育 - 旅游 - 健康 - 时尚 - 驱动 - 软件 - 游戏 - 多媒体 - ERP - 讨论组
阅读排行榜 | 收藏此文 | 收藏本站 | 设为首页

ASP生成图片验证码，不需要组件

来源：csdn 作者：domino 出处：巧巧读书 2007-04-09 进入讨论组
下一页 1 2 3 4 5 

建立font.asp 文件

<%
Dim Font
Dim Letter(30)
Set Font = Server.CreateObject("Scripting.Dictionary")


Letter(0) = "00000000000000"
Letter(1) = "00000000000000"
Letter(2) = "00000000000000"
Letter(3) = "00000000000000"
Letter(4) = "00000000000000"
Letter(5) = "00000000000000"
Letter(6) = "00000000000000"
Letter(7) = "00000000000000"
Letter(8) = "00011000000000"
Letter(9) = "00011110000000"
Letter(10) = "00001111000000"
Letter(11) = "00011111000000"
Letter(12) = "00011011100000"
Letter(13) = "00111001100000"
Letter(14) = "00110001111111"
Letter(15) = "00111111111110"
Letter(16) = "11111111110000"
Letter(17) = "11100000110000"
Letter(18) = "01100000110000"
Letter(19) = "01100000110000"
Letter(20) = "01100000110000"
Letter(21) = "01100000010000"
Letter(22) = "00000000000000"
Letter(23) = "00000000000000"
Letter(24) = "00000000000000"
Letter(25) = "00000000000000"
Letter(26) = "00000000000000"
Letter(27) = "00000000000000"
Letter(28) = "00000000000000"
Letter(29) = "00000000000000"
Font.Add "A", Letter

Letter(0) = "0000000000000"
Letter(1) = "0000000000000"
Letter(2) = "0000000000000"
Letter(3) = "0000000000000"
Letter(4) = "0000000000000"
Letter(5) = "0000000000000"
Letter(6) = "0000000000000"
Letter(7) = "0000000000000"
Letter(8) = "0000000000000"
Letter(9) = "1100000000000"
Letter(10) = "1100111100000"
Letter(11) = "0111111111000"
Letter(12) = "1111000011000"
Letter(13) = "1110000011000"
Letter(14) = "0011000111000"
Letter(15) = "0011111110000"
Letter(16) = "0111111111100"
Letter(17) = "0111111111111"
Letter(18) = "0111000000011"
Letter(19) = "0111000000011"
Letter(20) = "0111100000111"
Letter(21) = "0111111111110"
Letter(22) = "0110011111000"
Letter(23) = "0000000000000"
Letter(24) = "0000000000000"
Letter(25) = "0000000000000"
Letter(26) = "0000000000000"
Letter(27) = "0000000000000"
Letter(28) = "0000000000000"
Letter(29) = "0000000000000"
Font.Add "B", Letter

Letter(0) = "00000000000"
Letter(1) = "00000000000"
Letter(2) = "00000000000"
Letter(3) = "00000000000"
Letter(4) = "00000000000"
Letter(5) = "00000000000"
Letter(6) = "00000000000"
Letter(7) = "00000000000"
Letter(8) = "00000000000"
Letter(9) = "00001111100"
Letter(10) = "00111111100"
Letter(11) = "01110000000"
Letter(12) = "11100000000"
Letter(13) = "11000000000"
Letter(14) = "11000000000"
Letter(15) = "11000000000"
Letter(16) = "11000000000"
Letter(17) = "11000000000"
Letter(18) = "11000000000"
Letter(19) = "01100000011"
Letter(20) = "01110000110"
Letter(21) = "00111111110"
Letter(22) = "00011111000"
Letter(23) = "00000000000"
Letter(24) = "00000000000"
Letter(25) = "00000000000"
Letter(26) = "00000000000"
Letter(27) = "00000000000"
Letter(28) = "00000000000"
Letter(29) = "00000000000"
Font.Add "C", Letter

Letter(0) = "0000000000000"
Letter(1) = "0000000000000"
Letter(2) = "0000000000000"
Letter(3) = "0000000000000"
Letter(4) = "0000000000000"
Letter(5) = "0000000000000"
Letter(6) = "0000000000000"
Letter(7) = "0000000000000"
Letter(8) = "0110000000000"
Letter(9) = "0110000000000"
Letter(10) = "0111111100000"
Letter(11) = "1111111111000"
Letter(12) = "1111000011100"
Letter(13) = "0011000001100"
Letter(14) = "0011000000110"
Letter(15) = "0011000000110"
Letter(16) = "0011000000110"
Letter(17) = "0011000000110"
Letter(18) = "0011000000110"
Letter(19) = "0111000011100"
Letter(20) = "0111111111000"
Letter(21) = "0111111110000"
Letter(22) = "0110000000000"
Letter(23) = "0000000000000"
Letter(24) = "0000000000000"
Letter(25) = "0000000000000"
Letter(26) = "0000000000000"
Letter(27) = "0000000000000"
Letter(28) = "0000000000000"
Letter(29) = "0000000000000"
Font.Add "D", Letter

Letter(0) = "00000000000"
Letter(1) = "00000000000"
Letter(2) = "00000000000"
Letter(3) = "00000000000"
Letter(4) = "00000000000"
Letter(5) = "00000000000"
Letter(6) = "00000000000"
Letter(7) = "00000000000"
Letter(8) = "00000000000"
Letter(9) = "11000000000"
Letter(10) = "11100000000"
Letter(11) = "01111111110"
Letter(12) = "11111111100"
Letter(13) = "11110000000"
Letter(14) = "00110000000"
Letter(15) = "00110000000"
Letter(16) = "00111111100"
Letter(17) = "00111111100"
Letter(18) = "00110000000"
Letter(19) = "11110000000"
Letter(20) = "11111111110"
Letter(21) = "01111111110"
Letter(22) = "01100000000"
Letter(23) = "00000000000"
Letter(24) = "00000000000"
Letter(25) = "00000000000"
Letter(26) = "00000000000"
Letter(27) = "00000000000"
Letter(28) = "00000000000"
Letter(29) = "00000000000"
Font.Add "E", Letter

Letter(0) = "00000000000"
Letter(1) = "00000000000"
Letter(2) = "00000000000"
Letter(3) = "00000000000"
Letter(4) = "00000000000"
Letter(5) = "00000000000"
Letter(6) = "00000000000"
Letter(7) = "00000000000"
Letter(8) = "00000000000"
Letter(9) = "01100111110"
Letter(10) = "01111111111"
Letter(11) = "01111000011"
Letter(12) = "11100000000"
Letter(13) = "11100000000"
Letter(14) = "00100000000"
Letter(15) = "00100000000"
Letter(16) = "00111111000"
Letter(17) = "00111111000"
Letter(18) = "00111000000"
Letter(19) = "00110000000"
Letter(20) = "00110000000"
Letter(21) = "00110000000"
Letter(22) = "00110000000"
Letter(23) = "00000000000"
Letter(24) = "00000000000"
Letter(25) = "00000000000"
Letter(26) = "00000000000"
Letter(27) = "00000000000"
Letter(28) = "00000000000"
Letter(29) = "00000000000"
Font.Add "F", Letter

Letter(0) = "0000000000000"
Letter(1) = "0000000000000"
Letter(2) = "0000000000000"
Letter(3) = "0000000000000"
Letter(4) = "0000000000000"
Letter(5) = "0000000000000"
Letter(6) = "0000000000000"
Letter(7) = "0000000000000"
Letter(8) = "0000000000000"
Letter(9) = "0011000000000"
Letter(10) = "0011111111000"
Letter(11) = "0111111111000"
Letter(12) = "1110000000000"
Letter(13) = "1110000000000"
Letter(14) = "0110000000000"
Letter(15) = "0110000011000"
Letter(16) = "0110001111111"
Letter(17) = "0110001111110"
Letter(18) = "0110000011000"
Letter(19) = "0110000011000"
Letter(20) = "0111111111000"
Letter(21) = "0111111111000"
Letter(22) = "0011000011000"
Letter(23) = "0000000000000"
Letter(24) = "0000000000000"
Letter(25) = "0000000000000"
Letter(26) = "0000000000000"
Letter(27) = "0000000000000"
Letter(28) = "0000000000000"
Letter(29) = "0000000000000"
Font.Add "G", Letter

Letter(0) = "00000000000"
Letter(1) = "00000000000"
Letter(2) = "00000000000"
Letter(3) = "00000000000"
Letter(4) = "00000000000"
Letter(5) = "00000000000"
Letter(6) = "00000000000"
Letter(7) = "00000000000"
Letter(8) = "00000000100"
Letter(9) = "01100001100"
Letter(10) = "01100001100"
Letter(11) = "01100001100"
Letter(12) = "01110001100"
Letter(13) = "00110011000"
Letter(14) = "00110011000"
Letter(15) = "00111111000"
Letter(16) = "00111111000"
Letter(17) = "00110011000"
Letter(18) = "00110011000"
Letter(19) = "00110001100"
Letter(20) = "00110001110"
Letter(21) = "01110000110"
Letter(22) = "01100000010"
Letter(23) = "00000000000"
Letter(24) = "00000000000"
Letter(25) = "00000000000"
Letter(26) = "00000000000"
Letter(27) = "00000000000"
Letter(28) = "00000000000"
Letter(29) = "00000000000"
Font.Add "H", Letter

Letter(0) = "0000000000"
Letter(1) = "0000000000"
Letter(2) = "0000000000"
Letter(3) = "0000000000"
Letter(4) = "0000000000"
Letter(5) = "0000000000"
Letter(6) = "0000000000"
Letter(7) = "0000000000"
Letter(8) = "0000000000"
Letter(9) = "0000110000"
Letter(10) = "0110110110"
Letter(11) = "0111111110"
Letter(12) = "0001111000"
Letter(13) = "0001110000"
Letter(14) = "0001100000"
Letter(15) = "0001100000"
Letter(16) = "0001100000"
Letter(17) = "0001100000"
Letter(18) = "0001100000"
Letter(19) = "0001100000"
Letter(20) = "0111111000"
Letter(21) = "1111111110"
Letter(22) = "1100000100"
Letter(23) = "0000000000"
Letter(24) = "0000000000"
Letter(25) = "0000000000"
Letter(26) = "0000000000"
Letter(27) = "0000000000"
Letter(28) = "0000000000"
Letter(29) = "0000000000"
Font.Add "I", Letter

Letter(0) = "0000000000000"
Letter(1) = "0000000000000"
Letter(2) = "0000000000000"
Letter(3) = "0000000000000"
Letter(4) = "0000000000000"
Letter(5) = "0000000000000"
Letter(6) = "0000000000000"
Letter(7) = "0000000000000"
Letter(8) = "0000000110000"
Letter(9) = "0000111111110"
Letter(10) = "0000111111110"
Letter(11) = "0000000011000"
Letter(12) = "0000000011000"
Letter(13) = "0000000011000"
Letter(14) = "0000000011000"
Letter(15) = "1111100011000"
Letter(16) = "1111110011000"
Letter(17) = "0011000011000"
Letter(18) = "0011000011000"
Letter(19) = "0011000111000"
Letter(20) = "0001100110000"
Letter(21) = "0001111110000"
Letter(22) = "0000111100000"
Letter(23) = "0000000000000"
Letter(24) = "0000000000000"
Letter(25) = "0000000000000"
Letter(26) = "0000000000000"
Letter(27) = "0000000000000"
Letter(28) = "0000000000000"
Letter(29) = "0000000000000"
Font.Add "J", Letter

Letter(0) = "00000000000"
Letter(1) = "00000000000"
Letter(2) = "00000000000"
Letter(3) = "00000000000"
Letter(4) = "00000000000"
Letter(5) = "00000000000"
Letter(6) = "00000000000"
Letter(7) = "00000000000"
Letter(8) = "00000000000"
Letter(9) = "01100000100"
Letter(10) = "01100000110"
Letter(11) = "01100000110"
Letter(12) = "01100000110"
Letter(13) = "01100000110"
Letter(14) = "01100000110"
Letter(15) = "11111100110"
Letter(16) = "11111111110"
Letter(17) = "00110011100"
Letter(18) = "00110111110"
Letter(19) = "00110000110"
Letter(20) = "01110000110"
Letter(21) = "01100000110"
Letter(22) = "00000000000"
Letter(23) = "00000000000"
Letter(24) = "00000000000"
Letter(25) = "00000000000"
Letter(26) = "00000000000"
Letter(27) = "00000000000"
Letter(28) = "00000000000"
Letter(29) = "00000000000"
Font.Add "K", Letter

Letter(0) = "000000000000"
Letter(1) = "000000000000"
Letter(2) = "000000000000"
Letter(3) = "000000000000"
Letter(4) = "000000000000"
Letter(5) = "000000000000"
Letter(6) = "000000000000"
Letter(7) = "000000000000"
Letter(8) = "011000000000"
Letter(9) = "011000000000"
Letter(10) = "011000000000"
Letter(11) = "011000000000"
Letter(12) = "011100000000"
Letter(13) = "001100000000"
Letter(14) = "001100000000"
Letter(15) = "001100000000"
Letter(16) = "001100000000"
Letter(17) = "001100000000"
Letter(18) = "111100000000"
Letter(19) = "111110000000"
Letter(20) = "011111111110"
Letter(21) = "011111111100"
Letter(22) = "011000000000"
Letter(23) = "000000000000"
Letter(24) = "000000000000"
Letter(25) = "000000000000"
Letter(26) = "000000000000"
Letter(27) = "000000000000"
Letter(28) = "000000000000"
Letter(29) = "000000000000"
Font.Add "L", Letter

Letter(0) = "00000000000000"
Letter(1) = "00000000000000"
Letter(2) = "00000000000000"
Letter(3) = "00000000000000"
Letter(4) = "00000000000000"
Letter(5) = "00000000000000"
Letter(6) = "00000000000000"
Letter(7) = "00000000000000"
Letter(8) = "00000000000000"
Letter(9) = "01100000000000"
Letter(10) = "01100000110000"
Letter(11) = "11111000110000"
Letter(12) = "11111100111110"
Letter(13) = "01101111111110"
Letter(14) = "01100111011000"
Letter(15) = "01100110011000"
Letter(16) = "01100000011000"
Letter(17) = "01100000011000"
Letter(18) = "01100000011000"
Letter(19) = "01100000011000"
Letter(20) = "01100000010000"
Letter(21) = "01100000110000"
Letter(22) = "00000000100000"
Letter(23) = "00000000000000"
Letter(24) = "00000000000000"
Letter(25) = "00000000000000"
Letter(26) = "00000000000000"
Letter(27) = "00000000000000"
Letter(28) = "00000000000000"
Letter(29) = "00000000000000"
Font.Add "M", Letter

Letter(0) = "000000000"
Letter(1) = "000000000"
Letter(2) = "000000000"
Letter(3) = "000000000"
Letter(4) = "000000000"
Letter(5) = "000000000"
Letter(6) = "000000000"
Letter(7) = "000000000"
Letter(8) = "000000000"
Letter(9) = "000001100"
Letter(10) = "110001100"
Letter(11) = "111000110"
Letter(12) = "111000110"
Letter(13) = "111100110"
Letter(14) = "111100110"
Letter(15) = "111100110"
Letter(16) = "110110110"
Letter(17) = "110110110"
Letter(18) = "110111100"
Letter(19) = "110111100"
Letter(20) = "110011100"
Letter(21) = "110011000"
Letter(22) = "000011000"
Letter(23) = "000000000"
Letter(24) = "000000000"
Letter(25) = "000000000"
Letter(26) = "000000000"
Letter(27) = "000000000"
Letter(28) = "000000000"
Letter(29) = "000000000"
Font.Add "N", Letter

Letter(0) = "0000000000"
Letter(1) = "0000000000"
Letter(2) = "0000000000"
Letter(3) = "0000000000"
Letter(4) = "0000000000"
Letter(5) = "0000000000"
Letter(6) = "0000000000"
Letter(7) = "0000000000"
Letter(8) = "0000000000"
Letter(9) = "0000000000"
Letter(10) = "0000011000"
Letter(11) = "0001111100"
Letter(12) = "0110001110"
Letter(13) = "0100000110"
Letter(14) = "1100000011"
Letter(15) = "1100000011"
Letter(16) = "1100000011"
Letter(17) = "1100000011"
Letter(18) = "1110000011"
Letter(19) = "0110000011"
Letter(20) = "0011100110"
Letter(21) = "0011111110"
Letter(22) = "0000111100"
Letter(23) = "0000000000"
Letter(24) = "0000000000"
Letter(25) = "0000000000"
Letter(26) = "0000000000"
Letter(27) = "0000000000"
Letter(28) = "0000000000"
Letter(29) = "0000000000"
Font.Add "O", Letter

观看地址： http://www.qqread.com/asp/2007/04/n307998.html进入讨论组讨论。
更多专题 【深 度 阅 读】 相 关 文 章
下一页 1 2 3 4 5 
【收藏此文】【大 中 小】【打印】【关闭】
较早的文章：DateDiff函数祥解

较新的文章：ASP实例讲解：抓取网上房产信息
相关图文阅读
频道图文推荐
健 康 咨 询
时 尚 咨 询
巧巧读书宗旨
相关专题
更多排行>>
讨论组问题推荐
站内各频道最新更新文档
站内最新制作专题
热门关键字导读
Photoshop教 程：照片处理 照片制作 PS快捷键 抠图
计 算 机 故 障：XP系统修复
艺 术 与 设 计：设计 流媒体 设计欣赏 边框
计 算 机 安 全：ARP
站内频道文章精选
新闻资讯
操作系统
桌面开发
数据库
电脑技巧
常用软件
网络程序开发
图像处理
巧巧电脑频道编辑信箱  告诉我们您想看的专题或文章