看了科汛代码注册流程，官方程序在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

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