28,406
社区成员
发帖
与我相关
我的任务
分享<%
Function CheckCode '设置位数,修改就是了
'*************************************************************
dim strCode,theCodes,str0
theCodes = "" '初始化验证码字符
strCode = "123456789"'数字
arr=array("+","-","*","/")
str0=mid(strCode,RndNumber(0,8),RndNumber(1,4))
str1=mid(strCode,RndNumber(0,8),RndNumber(1,4))
str=str0&arr(RndNumber(1,4))&str1'这里形成一个运算式
theCodes=int(eval(str))'把运算结果赋给验证码字符theCodes
Session("CheckCode") = cstr(theCodes)
'将字符结果保存在Seesion中
Response.Write str&"=" '显示出验证字符
End Function
Function RndNumber(MaxNum,MinNum)
Randomize
RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum)
RndNumber=RndNumber
End Function
%>
<font color="#FF0000"><%=CheckCode%></font>