生成图片验证码有关问题

生成图片验证码问题
各位大虾好   最近小虾看到了个图片生成验证码的问题?也看了许多关于这个方面的文章     但是还是不大懂   希望各界大虾给小虾个     源码   参考   感谢各位大虾

------解决方案--------------------
图片生成是随机生成四个数字,把四个数字设为sesson,然后显示图片,把输入的跟session相比,对的就可以进行下一步,错的话,重来.
<%
'=============================
' Function GetValidate
' 取得随机的四位数字
'=============================
function GetValidate()
Dim gvStr,bGv
bGv = false
Randomize
gvStr = cint(rnd*(9999 - 1 + 1))
do while not bGv
if len(gvStr) = 4 then
bGv = true
else
gvStr = cint(rnd*(9999 - 1 + 1))
end if
loop
GetValidate = gvStr
end function

Session( "Validate ") = GetValidate()

%>