文字验证码怎么在提交是判断 这里给出了验证码(做过的帮忙看下)
<% 
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

%>


提交验证时如何验证这个验证码的?
阅读更多
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

不良信息举报

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

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭