首页 网站知识 网站案例 网站制作流程 网站制作价格 网站定制 联系我们
Q Q
电 话
手 机
Q Q
电 话
手 机

非常简洁的验证码程序

发布时间:2020-04-06 07:20
发布者:网站定制网
浏览次数:
<%
Response.Buffer = True
With Response
.Expires = -1
.AddHeader "Pragma","no-cache"
.AddHeader "cache-ctrol","no-cache"
End With
Dim a(10,10)
a(0,1) = "0x3c" '数字0
a(0,2) = "0x66"
a(0,3) = "0xc3"
a(0,4) = "0xc3"
a(0,5) = "0xc3"
a(0,6) = "0xc3"
a(0,7) = "0xc3"
a(0,8) = "0xc3"
a(0,9) = "0x66"
a(0,10)= "0x3c"

a(1,1) = "0x18" '数字1
a(1,2) = "0x1c"
a(1,3) = "0x18"
a(1,4) = "0x18"
a(1,5) = "0x18"
a(1,6) = "0x18"
a(1,7) = "0x18"
a(1,8) = "0x18"
a(1,9) = "0x18"
a(0,10)= "0x7e"

a(2,1) = "0x3c" '数字2
a(2,2) = "0x66"
a(2,3) = "0x60"
a(2,4) = "0x60"
a(2,5) = "0x30"
a(2,6) = "0x18"
a(2,7) = "0x0c"
a(2,8) = "0x06"
a(2,9) = "0x06"
a(2,10)= "0x7e"

a(3,1) = "0x3c" '数字3
a(3,2) = "0x66"
a(3,3) = "0xc0"
a(3,4) = "0x60"
a(3,5) = "0x1c"
a(3,6) = "0x60"
a(3,7) = "0xc0"
a(3,8) = "0xc0"
a(3,9) = "0x66"
a(3,10)= "0x38"

a(4,1) = "0x38" '数字4
a(4,2) = "0x3c"
a(4,3) = "0x36"
a(4,4) = "0x33"
a(4,5) = "0x33"
a(4,6) = "0x33"
a(4,7) = "0xff"
a(4,8) = "0x30"
a(4,9) = "0x30"
a(4,10)= "0xfe"

a(5,1) = "0xfe" '数字5
a(5,2) = "0xfe"
a(5,3) = "0x06"
a(5,4) = "0x06"
a(5,5) = "0x3e"
a(5,6) = "0x60"
a(5,7) = "0xc0"
a(5,8) = "0xc3"
a(5,9) = "0x66"
a(5,10)= "0x3c"

a(6,1) = "0x60" '数字6
a(6,2) = "0x30"
a(6,3) = "0x18"
a(6,4) = "0x0c"
a(6,5) = "0x3e"
a(6,6) = "0x63"
a(6,7) = "0xc3"
a(6,8) = "0xc3"
a(6,9) = "0x66"
a(6,10) ="0x3c"

a(7,1) = "0xff" '数字7
a(7,2) = "0xc0"
a(7,3) = "0x60"
a(7,4) = "0x30"
a(7,5) = "0x18"
a(7,6) = "0x18"
a(7,7) = "0x18"
a(7,8) = "0x18"
a(7,9) = "0x18"
a(7,10)= "0x18"

a(8,1) = "0x3c" '数字8
a(8,2) = "0x66"
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"
Dim num
Randomize
num = Int(7999 * Rnd + 2000)
Session("safenum") = num
Dim Image
Dim Width, Height
Dim digtal
Dim Length
Dim sort
Dim hc
Length = 4
hc = chr(13) & chr(10)
Redim sort(Length)
digital = ""
For I = 1 To Length - Len(num)
digital = digital & "0"
Next
For I = 1 To Len(num)
digital = digital & Mid(num, I, 1)
Next
For I = 1 To Len(digital)
sort(I) = Mid(digital, I, 1)
Next
Width = 8 * Len(digital)
Height = 10
Response.ContentType = "image/x-xbitmap"
Image = "#define counter_width " & Width & hc
Image = Image & "#define counter_height " & Height & hc
Image = Image & "static unsigned char counter_bits[] = {" & hc
For I = 1 To Height
For J = 1 To Length
Image = Image & a(sort(J),I) & ","
Next
Next
Image = Left(Image, Len(Image) - 1)
Image = Image & "};" & hc
Response.Write Image
%>

热点地区网站制作
热门地区网站设计制作、为客户量身定制一个适合自己的推广营销型网站
|崇川做网站
崇川区,隶属于江苏省南通市,位于江苏省中部,长江入海口北岸,是南通市市委、市政府驻地。总面积215平方千米。截至2016年,崇川区下辖10个街道,常住总人口71.10万人。实现地区
|日照网站制作
地理位置:日照是黄海之滨新兴的港口城市。位于东经118度35分至119度39分,北纬35度04分至36度02分。地处中国大陆海岸线中部,山东省东南部,山东半岛南翼。北依青岛,南临江苏省连
|横县企业做网站
横县位于广西东南部,东连贵港市,南接灵山县、浦北县,西界邕宁县,北和宾阳县接壤。县城与广西首府南宁市相距124公里,距沿海经济开发城市北海200公里。全县下辖17个镇5个乡,
|邻水网站推广
邻水县隶属一代伟人邓小平的故乡--四川省广安市,幅员面积1919平方公里,辖45个乡(镇),总人口103万,是全国文化先进县、全国科技进步先进县、全国无公害农产品生产基地县、全
|景宁网络推广
景宁,隶属浙江省丽水市,为“革命老区县”、“中国农村水电之乡”、畲族自治县。位于浙江西南部、洞宫山脉中段,属浙南中山区。位于北纬27°58′,东经119°38′。总面积1949.98平
|叠彩网站建设
叠彩区是中国广西壮族自治区桂林市的一个市辖区,位于广西壮族自治区东北部,桂林市中部,东面和北面与灵川县相连,南与象山区、七星区相接,西与临桂区接壤。区人民政府驻中
|朗县网站建设
朗县地处西藏东南部、雅鲁藏布江中游、喜玛拉雅山脉北麓。耕地面积1.8万亩,草场面积135万亩,林地面积85万亩。辖6个乡,85个村民委员会。 朗县植物资源主要为总面积达85万亩的森
|雨花台网站建设
雨花台区位于南京市主城南部,是中国软件名城的核心区,国家重要的软件产业和信息产业中心,中国第一软件产业基地,中国最大的通讯软件产业研发基地。已成功创建国家火炬计划
|西林网站建设
西林区是黑龙江省伊春市下辖区,位于黑龙江省东北部,坐落于伊春(小兴安岭)南麓,坐标为东经126°03′至126°24′,北纬47°22′至47°36′。南北长26.5公里,东西宽24公里,西林区行
|荔湾网站建设
荔湾区,广州市市辖区,位于广东省广州市西部,东与越秀区相连,北部、西北部与白云区水陆相通,西部与佛山市南海区接壤。荔湾,俗称“西关”,因区内有“一湾青水绿,两岸荔
|聂荣网站建设
比如县地处那曲地区东部、唐古拉山和念青唐古拉山之间,属怒江上游流域。面积11456平方公里。比如县以低山丘陵为主,间有高山峡谷,四周冰山雪峰环绕,平均海拔4000米。整个地势
|石阡网站建设
石阡县位于贵州省东北部,铜仁地区西南部,周边与江口、印江、思南、余庆、凤冈、镇远、施秉8县相邻。全县辖18乡镇,总面积2173平方公里,总人口38.03万人,其中仡佬、侗、苗、土
推荐地区
重点地网站设计、网站建设、网站维护服务推荐,完善的售前售后服务保障客户推广的有效
|东方做网站
东方企业做网站,东方比较好的网络公司,东方专业的网站建设
|遵义网站制作
遵义企业做网站,遵义比较好的网络公司,遵义专业的网站建设
|营口企业做网站
营口企业做网站,营口比较好的网络公司,营口专业的网站建设
|呼伦贝尔网站推广
呼伦贝尔企业做网站,呼伦贝尔比较好的网络公司,呼伦贝尔专业的网站建设
|汕头网络推广
汕头企业做网站,汕头比较好的网络公司,汕头专业的网站建设
|聊城网站建设
聊城企业做网站,聊城比较好的网络公司,聊城专业的网站建设
|克拉玛依网站建设
克拉玛依企业做网站,克拉玛依比较好的网络公司,克拉玛依专业的网站建设
|德阳网站建设
德阳企业做网站,德阳比较好的网络公司,德阳专业的网站建设
|济南网站建设
济南企业做网站,济南比较好的网络公司,济南专业的网站建设
|阿克苏网站建设
阿克苏企业做网站,阿克苏比较好的网络公司,阿克苏专业的网站建设
|鞍山网站建设
鞍山企业做网站,鞍山比较好的网络公司,鞍山专业的网站建设
|浙江网站建设
浙江企业做网站,浙江比较好的网络公司,浙江专业的网站建设
热点TAG
网站制作热点内容汇集,展示最新的网站建站TAG,热点做网站内容