账号通
    

账号  

密码  

22803

查看

54

回复
主题:KesionCMS V7.x 会员注册成功后直接跳转到来源页面的修改方法 [收藏主题] 转到:  
keyi 当前离线

3123

主题

8

广播

18

粉丝
添加关注
级别:大二

用户积分:11924 分
登录次数:2527 次
注册时间:2008/12/24
最后登录:2023/12/14
keyi 发表于:2010/12/17 20:56:06   | 只看该作者 查看该作者主题 楼主 
做在线知识付费 选科汛云开店

看了科汛代码注册流程,官方程序在user/reg/UserRegResult.asp的注册成功跳转代码里,已经有判断有没有传递来源页的功能了。如下代码:



  Sub ShowRegResult(ReturnInfo)

     ReturnInfo="<table border='0' align='center' width='60%' cellspacing='1' cellpadding='3'><tr class='tdbg'><td></td></tr><tr class='tdbg'><td><img src='../images/regok.jpg' align='left'>" & ReturnInfo & "<li><span id=""countdown""> <font color='#ff6600'><strong>10</strong></font> </span>秒钟后自动转到"

     If Gcls.ComeUrl="" Then ReturnInfo=ReturnInfo & "会员中心" Else ReturnInfo=ReturnInfo & Gcls.ComeUrl

     ReturnInfo=ReturnInfo & "!</li><li><a href=""../index.asp"">马上进入会员中心</a>  <a href=""" &  KS.Setting(3)& """>返回网站首页</a></li></td></tr></table>" & vbcrlf

     Dim FileContent

     If KS.Setting(119)="" Then Response.Write "请先到""基本信息设置->模板绑定""进行模板绑定操作!":response.end

      FileContent = KSRFObj.LoadTemplate(KS.Setting(119)) &  GetTurnMember(10)

            FileContent= Replace(FileContent,"{$GetUserRegResult}",ReturnInfo)

   FileContent = KSRFObj.KSLabelReplaceAll(FileContent) '替换函数标签

            Response.Write FileContent

   Gcls.ComeUrl=""

  End Sub





可本人一直测试,发现并不会跳转到来源的那个页面,现分享修改方法:





打开ks_cls/kesion.appcls.asp





以下内容只有回复后才可以浏览,请先登录!





增加上面红色的那句就可以在会员注册成功后,自动跳到来源的那个页面啦!



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

777

主题

0

广播

0

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

用户积分:943 分
登录次数:32 次
注册时间:2010/11/22
最后登录:2013/6/9
zpwz 发表于:2010/12/17 21:19:29   | 只看该作者 查看该作者主题 沙发 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
soyoxi 当前离线

278

主题

1

广播

0

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

用户积分:1659 分
登录次数:246 次
注册时间:2010/2/8
最后登录:2012/8/16
soyoxi 发表于:2010/12/17 22:42:57   | 只看该作者 查看该作者主题 藤椅 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
hbc823 当前离线

219

主题

0

广播

0

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

用户积分:294 分
登录次数:168 次
注册时间:2010/11/6
最后登录:2015/11/7
hbc823 发表于:2010/12/18 1:45:56   | 只看该作者 查看该作者主题 板凳 
科汛在线考试系统(NET)

自动跳到来源的那个页面

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

1593

主题

8

广播

5

粉丝
添加关注
级别:高一年

用户积分:5843 分
登录次数:311 次
注册时间:2008/12/22
最后登录:2017/11/17
ep165 发表于:2010/12/18 9:35:30   | 只看该作者 查看该作者主题 报纸 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
amin8010 当前离线

803

主题

24

广播

10

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

用户积分:2596 分
登录次数:736 次
注册时间:2008/9/18
最后登录:2021/8/30
amin8010 发表于:2010/12/18 9:46:18   | 只看该作者 查看该作者主题 地板 
 
www.02088888888.com广州疏通马桶,www.jbyz.net广州刻章,www.cnqxbj.com清洗保洁,
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
amin8010 当前离线

803

主题

24

广播

10

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

用户积分:2596 分
登录次数:736 次
注册时间:2008/9/18
最后登录:2021/8/30
amin8010 发表于:2010/12/18 9:48:03   | 只看该作者 查看该作者主题 7楼 
以下是引用 keyi在2010-12-17 20:56:06的发言:

看了科汛代码注册流程,官方程序在user/reg/UserRegResult.asp的注册成功跳转代码里,已经有判断有没有传递来源页的功能了。如下代码:


  Sub ShowRegResult(ReturnInfo)
     ReturnInfo="<table border='0' align='center' width='60%' cellspacing='1' cellpadding='3'><tr class='tdbg'><td></td></tr><tr class='tdbg'><td><img src='../images/regok.jpg' align='left'>" & ReturnInfo & "<li><span id=""countdown""> <font color='#ff6600'><strong>10</strong></font> </span>秒钟后自动转到"
     If Gcls.ComeUrl="" Then ReturnInfo=ReturnInfo & "会员中心" Else ReturnInfo=ReturnInfo & Gcls.ComeUrl
     ReturnInfo=ReturnInfo & "!</li><li><a href=""../index.asp"">马上进入会员中心</a>  <a href=""" &  KS.Setting(3)& """>返回网站首页</a></li></td></tr></table>" & vbcrlf
     Dim FileContent
     If KS.Setting(119)="" Then Response.Write "请先到""基本信息设置->模板绑定""进行模板绑定操作!":response.end
      FileContent = KSRFObj.LoadTemplate(KS.Setting(119)) &  GetTurnMember(10)
            FileContent= Replace(FileContent,"{$GetUserRegResult}",ReturnInfo)
   FileContent = KSRFObj.KSLabelReplaceAll(FileContent) '替换函数标签
            Response.Write FileContent
   Gcls.ComeUrl=""
  End Sub



可本人一直测试,发现并不会跳转到来源的那个页面,现分享修改方法:



打开ks_cls/kesion.appcls.asp



以下内容只有回复后才可以浏览

  '===================会员注册开始=========================
  sub reg
    GCls.ComeUrl=request.ServerVariables("HTTP_REFERER")
    IF KS.Setting(21)=0 Then : Response.Redirect "../../plus/error.asp?action=error&message=" & Server.URLEncode("<li>对不起,本站暂停新会员注册!</li>") :  Response.End






增加上面红色的那句就可以在会员注册成功后,自动跳到来源的那个页面啦!



再问一下:如何设定用户注册后,系统记录IP地址,然后下次登录时,以该IP直接登录上次注册的页面?

 
www.02088888888.com广州疏通马桶,www.jbyz.net广州刻章,www.cnqxbj.com清洗保洁,
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
keyi 当前离线

3123

主题

8

广播

18

粉丝
添加关注
级别:大二

用户积分:11924 分
登录次数:2527 次
注册时间:2008/12/24
最后登录:2023/12/14
keyi 发表于:2011/1/1 8:41:37   | 只看该作者 查看该作者主题 8楼 
 
kesion开发论坛了[/u]
[url]http://www.kesion.com[/url]
<a href="http://www.kesion.com">支持你,不是我的错!</a>
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
suncohey 当前离线

477

主题

29

广播

10

粉丝
添加关注
级别:版主

用户积分:1721 分
登录次数:920 次
注册时间:2009/11/23
最后登录:2019/1/11
suncohey 发表于:2011/3/23 13:08:47   | 只看该作者 查看该作者主题 9楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
天下无语 当前离线

1259

主题

11

广播

1

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

用户积分:9743 分
登录次数:1540 次
注册时间:2007/4/1
最后登录:2024/1/8
天下无语 发表于:2011/4/2 22:16:24   | 只看该作者 查看该作者主题 10楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.39063秒 powered by KesionCMS 9.0