最简单的asp验证码
<%
Public Function BornVerifyCode()
Randomize '设置随机因子
BornVerifyCode=Mid((Rnd * 1000000), 1, 4) '生成6位随机数,取高4位
End Function
%>
调用:<%=BornVerifyCode%>
<%
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%>
最新文章
- vs里根据json快速创建对应类的方法
- HDU5909 Tree Cutting(树形DP + FWT)
- java中类的初始化和对象的初始化
- Android 中onConfigurationChanged问题
- 51nod 循环数组最大子段和
- redis教程
- html页面高度不同浏览器兼容性设置
- java2实用教程102小程序(分数计算和流水线计算
- &;lt;图形图像,动画,多媒体&;gt; 读书笔记 --- 力学行为特性
- Pearson相关系数
- 客户端与服务端,java与Android跨平台服务
- python Ajax
- 20175212童皓桢 《Java程序设计》第一周学习
- C++_注释、枚举、typedef
- Hessian 使用例子
- activiti explorer5.22.0源代码解读
- 使用PerfView监测.NET程序性能(三):分组
- datetime &; time
- centos 监控进程,并自动重启
- reserve和resize区别