如何重新获得验证码?
庄子 2008-04-22 11:42:31 我是通过以下函数获得验证码的,现在 我想实现“重新获得验证码”,请问怎么做,谢谢
<font color="#CC0066"><%=CheckCode()%> </font></span> 看不清楚?换一个
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)*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