谁能提供一个加减乘除四则运算的asp验证码程序?

loiter 2009-08-30 11:33:23
谁能提供一个加减乘除四则运算的asp验证码程序?
...全文
148 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
呵呵,刚才无聊就写了一个复杂些的:
http://www.myziy.com/show.php?contentid=180
是生成图片的ASP四则运算验证码
  • 打赏
  • 举报
回复
给你一个简单的,要扩展,那你根据思路,自己整一个好的

<%
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>
poiuy343 2009-08-30
  • 打赏
  • 举报
回复
什么意思,详细说说?

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧