求asp读取简单验证码的代码!

NETCE0 2010-08-06 09:37:38
求asp读取简单验证码的代码!
...全文
82 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
caizhuguanguan 2010-08-06
狼来了。。。顶啊顶
回复
lzp4881 2010-08-06
<%
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
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告