账号通
    

账号  

密码  

26151

查看

54

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

3123

主题

8

广播

18

粉丝
添加关注
级别:大二

用户积分:11924 分
登录次数:2527 次
注册时间:2008/12/24
最后登录:2023/12/14
keyi 发表于:2010/12/17 20:56:06   | 显示全部帖子 查看该作者主题 楼主 
科汛在线商城系统(NET)

看了科汛代码注册流程,官方程序在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) 回到顶部顶端 回到底部底部
keyi 当前离线

3123

主题

8

广播

18

粉丝
添加关注
级别:大二

用户积分:11924 分
登录次数:2527 次
注册时间:2008/12/24
最后登录:2023/12/14
keyi 发表于:2011/1/1 8:41:37   | 显示全部帖子 查看该作者主题 沙发 
 
kesion开发论坛了[/u]
[url]http://www.kesion.com[/url]
<a href="http://www.kesion.com">支持你,不是我的错!</a>
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.09399秒 powered by KesionCMS 9.0