当前位置:96看吧 > 技术文档 > ASP编程 > aspJpeg有组件验证码源代码

aspJpeg有组件验证码源代码

时间:2010/01/03
作者:诚心(MaWenDong)
来源:96看吧
查看:
标签:asp验证码

效果演示:

<%  
function make_randomize(max_len,w_n) 'max_len 生成长度,w_n:0 可能包含字母,1:只为数字   
    randomize   
    for intcounter=1 to max_len   
        whatnext=int((1-0+1)*rnd+w_n)   
        if whatnext=0 then   
            upper=122   
            lower=97   
        else   
            upper=57   
            lower=48   
        end if   
        strnewpass=strnewpass & chr(int((upper-lower+1)*rnd)+lower)   
    next   
    make_randomize=strnewpass   
end function   
 
'生成安全码的图片。  
random_num=make_randomize(6,0)                    '生成6位数字的安全码   
session("random_num")=random_num                  '调用session,没有session的安全码是完全没有意义的。呵呵 .  
Set Jpeg = Server.CreateObject("Persits.Jpeg")    '调用组件
 Jpeg.Open Server.MapPath("code_bg.jpg")       '打开准备的图片   
 Jpeg.Canvas.Font.Color = &HF333333            '文字颜色 
 Jpeg.Canvas.Font.Family = "Arial"             '文字字体
 Jpeg.Canvas.Font.Size = 28  
 Jpeg.Canvas.Font.Bold = false   
 Jpeg.Canvas.PrintText 8, 2, random_num
 Jpeg.Width = 105
 Jpeg.Height = 32
 Jpeg.Save Server.MapPath("code.jpg")          '保存
Jpeg.Close
Set Jpeg = Nothing
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>AspJpeg创建验证代码</title>
</head>
<body>
<img src="code.jpg" border="0" align="absmiddle" style="border:#CCC 1px solid;">
</body>
</html>

上一篇:asp无组件中文验证码
下一篇:asp如何取得插入记录后最新ID值
下载地址
Down
页面举报
Report
关闭页面
Close
收藏页面
Favorites
分享页面
Share
版权信息:栏目内,站内会员所分享的全部“资源/素材/文章”,仅供学习与参考,版权为原作者所有。
下载提示:非注册用户每天可下载一个文件,已注册会员不受限制。
网友评论
数据载入中
验证码
  • 请您注意:
  • ·请不要在评论中含与内容无关的广告链接。
  • ·不良评论请用报告管理员,以利管理员及时删除。
  • ·遵守中华人民共和国的各项有关法律法规
  • ·承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • ·本站管理人员有权保留或删除评论中的任意内容
  • ·您在本站发表的作品,本站有权在网站内转载或引用
  • ·参与本评论即表明您已经阅读并接受上述条款
相关最新
相关热门