End If
  
                           Pixel(Int(Rnd * Width_), Int(Rnd * Height_)) = Nindex
                  Next
        End Sub

End Class
%>
用法

<%
Dim GBL_CookieName
GBL_CookieName = "gbl_codename"　'指定一个想对本站的cookie

Call ShowCode(GBL_CookieName & Request("CodeName"))   'request("CodeName")指定一个相对验证码的cookie
'验证码
Sub ShowCode(ShowCodeName)
        Set img = New fly38_VerifyCode
        Randomize
        Dim code
        code = Int(Rnd * 9000 + 1000)
        Session(ShowCodeName) = code 需要改一下才能正常使用 Session(ShowCodeName) = cstr(code)
        img.BGroundColor = "#FFFFFF" ' 图片背景颜色
        img.FGroundColor = "#FF0000" ' 前景（文本）颜色
        Call img.VerifyCode(code, False)  ' 处理验证码，第二个参数为是否显示彩色文本
        Call img.Noises(100, True)   ' 添加杂点，第一个参数为杂点数量，第二个参数为是否显示彩色杂点
        img.ImgWrite ' 输出图片
End Sub
%>

共24共  上一页 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24