<%
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
%>
提交验证时如何验证这个验证码的?