两个最简单的ASP验证码代码（ASP）

1、<%
Public Function BornVerifyCode()
       Randomize ‘设置随机因子
       BornVerifyCode=Mid((Rnd * 1000000), 1, 4) ‘生成6位随机数，取高4位
    End Function
%>

调用：<%=BornVerifyCode%>

2、<%
Function CheckCode
     const theNum = 4            ‘设置位数,修改就是了
‘*************************************************************
     dim strCode,theCodes,str0
     theCodes = ""  ‘初始化验证码字符
          strCode = "123456789AABCDEFGHI135GGW468HJKLMNTPQRS148963TUVWR"
          strCode = LCASE(strCode)  ‘全部换成小写,当然也可不换
     RANDOMIZE
         for i = 1 to theNum  
              ‘循环结构重复筛选单个字符进行组合,生成theNum位的验证码
         str0=mid(strCode,INT((50-1+1)*RND+1),1)  
              ‘str0为一次循环周期内经筛选的单个临时字符
         theCodes = theCodes&str0  ‘字符叠加过程
         next
     if theCodes = "" then 
              theCodes = "9999"  
          end if        
     Session("SystemRocCode") = cstr(theCodes) 
          ‘将字符结果保存在Seesion中
     Response.Write theCodes  ‘显示出验证字符
End Function
%>

调用：<%=CheckCode%>

相关文章：asp.net生成验证码代码

                    JS生成验证码代码