关于注册激活用户账号时，可以重复激活的问题解决方法！-领先建站CMS提供服务商我们专注于CMS建站产品的研发

kesion

<<返回列表上一个主题下一个主题打印本帖复制本帖地址

3337 查看	6 回复

主题：[分享]关于注册激活用户账号时，可以重复激活的问题解决方法！ [收藏主题]

转到：

klsyp123 当前离线

40 主题	0 广播	0 粉丝

添加关注

级别:学前班

用户积分:216 分
登录次数:16 次
注册时间:2007/4/11
最后登录:2014/6/12

当前不在线

klsyp123 发表于：2012/4/16 20:51:32 | 显示全部帖子查看该作者主题楼主

科汛在线商城系统(NET)

做线上考试培训就选#科汛网校

在user文件夹下的 ActiveCode.asp 文件，代码如下

Sub DoCheck()
Dim UserId:UserID=KS.ChkClng(KS.S("UserID"))
Dim CheckNum:CheckNum=KS.S("CheckNum")
Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
RS.Open "Select top 1 UserName,RndPassWord,Email,CheckNum,locked,AllianceUser From KS_User Where UserId=" & UserId ,Conn,1,3
If RS.Eof And RS.Bof Then
rs.close:set rs=nothing
Response.Write "<script>alert('对不起，用户不存在！');history.back();</script>":response.end
else
if rs("checknum")<>checknum then
rs.close:set rs=nothing
Response.Write "<script>alert('激活码有误，请重新输入！');history.back();</script>":response.end
else
rs("locked")=0
rs.update

这是检查用户的激活链接中用户名和激活码是否正确的代码，但是此处有一个问题，导致了用户可以重复的点击激活链接，进行激活！

先将该处的代码加以修改，让用户只能激活一次！

Sub DoCheck()
Dim UserId:UserID=KS.ChkClng(KS.S("UserID"))
Dim CheckNum:CheckNum=KS.S("CheckNum")
Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
RS.Open "Select top 1 UserName,RndPassWord,Email,CheckNum,locked,AllianceUser From KS_User Where UserId=" & UserId ,Conn,1,3
If RS.Eof And RS.Bof Then
rs.close:set rs=nothing
Response.Write "<script>alert('对不起，用户不存在！');history.back();</script>":response.end
else
if rs("checknum")<>checknum then
rs.close:set rs=nothing
Response.Write "<script>alert('激活码有误，请重新输入！');history.back();</script>":response.end
elseif 0 = rs("locked") then
rs.close:set rs=nothing
Response.Write "<script>alert('您的账号已经激活，请勿重复激活！');history.back();</script>":response.end
else
rs("locked")=0
rs.update

做新职业技能培训平台就选#科汛网校

反对(0)

回到顶部

回到底部

底部

＜上一主题 | 下一主题＞

Powered By KesionCMS Version X1

厦门科汛软件有限公司 © 2006-2016 页面执行0.06250秒 powered by KesionCMS 9.0