看了科汛代码注册流程,官方程序在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
以下内容只有回复后才可以浏览,请先登录! 增加上面红色的那句就可以在会员注册成功后,自动跳到来源的那个页面啦!