求……防垃圾信息的验证码!!!

<%

'生成安全码的函数

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

'safecode=make_randomize(4,0)

'response.Write(safecode)

%>

<%random_num=make_randomize(4,0) '生成4位数字的安全码

session("random_num")=random_num '为什么调用session，没有session的安全码是完全没有意义的。呵呵

Set Jpeg = Server.createObject("Persits.Jpeg") '调用组件

Jpeg.Open Server.MapPath("1.jpg") '打开准备的图片

Jpeg.Canvas.Font.Color = &H006699

Jpeg.Canvas.Font.Family = "Arial Black"

Jpeg.Canvas.Font.Bold = false

Jpeg.Canvas.PrintText 0, -2, random_num

jpeg.save Server.MapPath("random_index.jpg") '保存

%> <img src="random_index.jpg" border="0" align="absmiddle">