关闭

文字验证码怎么在提交是判断 这里给出了验证码(做过的帮忙看下)

133人阅读 评论(0) 收藏 举报
<% 
Response.Expires = -9999
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-ctrol", "no-cache"
Response.ContentType = "AspJpeg\Samples\Bin"
'组件文件地址

'生成安全码的函数 
function make_randomize(max_len)'//生成长度
'中文/数字/字母/ 最少4个
txt="2飘3A易4B博5C客6D学7E校5F书9G本H9爷J4奶K百L度4Q常W春E明3R天T谢Y李U润I梅O2皇P帝Z太X后C个V4习B惯N就M5周Q立A3波Z2三W峰S5环X6境E好6D人C8啊R2电F视6V剧5T影7G视4B片6Y你H8是N5谁U3我J5爱M5爸I妈K3河M蟹4L草6L泥Y6马T8微F5软D2谷V4歌B7雅N6虎D4联S4想A3戴4D惠F8普G6佳H8能J6神S4州E6方8A正5W华A5硕昆9明9哲9瀛4科8技"
s=""
for i=0 to max_len-1
randomize
s=s&Mid(txt,Rnd*(Len(txt)-max_len)+1,1)
next
make_randomize=s
end function 

'//随机字体
function fontthis()
fontall="宋体|黑体|楷体|隶书|华文中宋|华文细黑"
fontarr=split(fontall,"|")
randomize
fontthis=fontarr(Int((Ubound(fontarr)-0+1)*Rnd+0))
end function


random_num=make_randomize(4)   '//生成3位的安全码 
Session("GetCode")=random_num  '//赋值session

randomize
color=(Rnd*255)*255*255+255*255+(Rnd*255) '//随机颜色


Set Jpeg = Server.CreateObject("Persits.Jpeg")'  //调用组件 
Jpeg.Open Server.MapPath("code.jpg")   '//打开准备的图片 

'//添加文字
for i=1 to 4
Jpeg.Canvas.Font.Rotation = (Rnd*30-50) ' //倾斜度
randomize
Jpeg.Canvas.Font.Color = color
Jpeg.Canvas.Font.Family = fontthis() '//字体
Jpeg.Canvas.Font.Bold = false     '//是否加粗 true/false
Jpeg.Canvas.Font.Size = Int((20-22+1)*Rnd+22)      ' //字体大小:20-30
Jpeg.Canvas.PrintText 10+(i-1)*35, 5, Mid(random_num,i,1) '//:添加位置
next

'//生成干扰正弦波形函数
function sinto(x1,x2)' //x1,x2: 起始结束点位置
randomize
zf=Int((20-1+1)*Rnd+1)' //振幅
qd=Int((20-20+1)*Rnd+20) '//起点高度位置
for i=x1 to x2
j=i*8 '//两次正弦波
Jpeg.Canvas.Font.Color = color
Jpeg.Canvas.Font.Family = "宋体"
Jpeg.Canvas.Font.Bold = true 
Jpeg.Canvas.Font.Size = 2
Jpeg.Canvas.PrintText i, qd+Sin(j*355/113/180)*zf, "." 
next
end function

response.write sinto(1,150)

Jpeg.SendBinary 
Set Jpeg = Nothing

%>


提交验证时如何验证这个验证码的?
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1216次
    • 积分:144
    • 等级:
    • 排名:千里之外
    • 原创:14篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章存档