验证码是我们经常会用到的一个模块功能，现在的自动注册机器人太多了，简单的数字验证码已经不能屏蔽了，下面青岛星网跟大家分享一个：aspJpeg组件实现随机字母数字验证码函数。
<%
'by www.qdxw.net
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>青岛星网温馨提醒：请自己制作1个背景图片用于替换代码里面的：code_bg.jpg图片哦。
在线QQ：
