账号通
    

账号  

密码  

3341

查看

6

回复
主题:[分享]关于注册激活用户账号时,可以重复激活的问题解决方法! [收藏主题] 转到:  
klsyp123 当前离线

40

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:216 分
登录次数:16 次
注册时间:2007/4/11
最后登录:2014/6/12
klsyp123 发表于:2012/4/16 20:51:32   | 只看该作者 查看该作者主题 楼主 
科汛在线网校系统

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



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





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



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



  1.   Sub DoCheck()

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

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
hejian 当前离线

1201

主题

4

广播

4

粉丝
添加关注
级别:九年级

用户积分:3522 分
登录次数:563 次
注册时间:2006/12/26
最后登录:2024/1/21
hejian 发表于:2012/4/16 22:07:02   | 只看该作者 查看该作者主题 沙发 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
jiemengdaquan 当前离线

30

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:35 分
登录次数:8 次
注册时间:2012/4/11
最后登录:2013/1/20
jiemengdaquan 发表于:2012/4/16 23:35:06   | 只看该作者 查看该作者主题 藤椅 
 
交换链接 www.jiemengdaquan.org 交换链接 www.jia266.com 友情链接 www.koukouche.com
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
xieyuyun3 当前离线

1056

主题

0

广播

0

粉丝
添加关注
级别:八年级

用户积分:2065 分
登录次数:144 次
注册时间:2011/12/22
最后登录:2012/10/16
xieyuyun3 发表于:2012/4/17 9:01:54   | 只看该作者 查看该作者主题 板凳 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
xdnk 当前离线

273

主题

0

广播

0

粉丝
添加关注
级别:二年级

用户积分:307 分
登录次数:77 次
注册时间:2012/2/17
最后登录:2012/7/1
xdnk 发表于:2012/4/18 16:02:56   | 只看该作者 查看该作者主题 报纸 
 
<a href=http://www.xdnk120.com >哈尔滨***</a>http://www.xdnk120.com http://www.men120.com
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
junxiong30 当前离线

87

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:77 分
登录次数:2 次
注册时间:2012/5/20
最后登录:2012/5/20
junxiong30 发表于:2012/5/20 11:43:41   | 只看该作者 查看该作者主题 地板 
 
进一步,柳暗花明
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
hangbei350795 当前离线

52

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:62 分
登录次数:5 次
注册时间:2012/5/20
最后登录:2012/8/26
hangbei350795 发表于:2012/5/20 12:31:40   | 只看该作者 查看该作者主题 7楼 
 
www.qipai56.com www.qipai69.com www.yhqp6.com www.qpk8.com
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.19141秒 powered by KesionCMS 9.0