当前位置:文秘家园>> 文字工作>> 实务性工作>> 电脑网络

电脑网络

登录后自动跳转到首页和设置登录后跳转到指定页面

    】【收藏】  作者: 佚名  来源: 互联网络  阅读 次 【加入会员

    1、取消登录后的“已登录”提示
    修改User目录里的User_ChkLogin.asp,把原来的224、225行的
    strTempMsg = "您已成功登陆,欢迎您的光临!" & strTempMsg
    Call WriteSuccessMsg(strTempMsg, ComeUrl)
    改为
    Call CloseConn
    Response.redirect ComeUrl

    2、取消退出后的“已退出”提示
    修改User目录里的User_Logout.asp,把50、51、52行的
    Response.Cookies(Site_Sn)("UserName") = ""
    Response.Cookies(Site_Sn)("UserPassword") = ""
    Response.Cookies(Site_Sn)("LastPassword") = ""
    移到11行的APISysKey = LCase(MD5(MemberName&API_Key,16))下面,即:
    APISysKey = LCase(MD5(MemberName&API_Key,16))
    Response.Cookies(Site_Sn)("UserName") = ""
    Response.Cookies(Site_Sn)("UserPassword") = ""
    Response.Cookies(Site_Sn)("LastPassword") = ""
    替换22、23行的
    strTempMsg = "您已成功注销,期待您的再次光临!" & strTempMsg
    Call WriteSuccessMsg(strTempMsg,InstallDir & "Index.asp")
    为
    Response.Redirect strInstallDir & "Index.asp"
   
    3、设置登录后跳转到指定页面
    修改User目录里的User_Login.asp,
    <%
    Call CloseConn
    Dim ComeUrl
    ComeUrl = Trim(Request("ComeUrl"))
    If ComeUrl = "" Then
        ComeUrl = Request.ServerVariables("HTTP_REFERER")
    End If
    If ComeUrl = "" Then
        ComeUrl = "Index.asp"
    End If
    %>
    把其中的
    If ComeUrl = "" Then
        ComeUrl = "Index.asp"
    End If
    改为
    If ComeUrl = "" Then
        ComeUrl = "/SOFT/Index.asp"
    End If
    即可(其中的跳转目录可以自行修改,这里仅以跳转到软件频道举例)

    4. 如何把用户登录后的“返回上一页”链接到指定页面
    有的用户想修改当用户从前台登录页面进行登录后,把“返回上一页”修改为指定的页面,那么怎么实现呢?
    我们查看用户登录时会调用到这个文件 User_ChkLogin.asp, 分析这个文件,会发现它里面调用了网站安装文件夹下的INC文件夹里的 function.asp这个文件,然后我们查找下登录成功页面提示出的文字信息在这个文件里的哪行代码,很快就可以发现这行代码:
    strSuccess = strSuccess & "<a href='" & sComeUrl & "'>&lt;&lt; 返回上一页</a>"
     这里有个链接设置,那么我们就可以修改这里的链接设置为自己想要链接页面,比如:
    <a href="要链接页面的网址">,保存这个文件,就可以看到修改后的效果了
   
    5. 让用户登陆后转跳到一个自己指定的页面
    如果你不想让用户登陆后回到首页的用户控制面板,而是直接转跳到你制定的页面
    可以修改 user  文件夹下的  User_Login.asp 文件  中的第七行   ComeUrl=Request.ServerVariables("HTTP_REFERER")
    将其中的蓝色部分改为你要指向的页面地址,比如想让用户登陆后直接转跳到后台的发表文章页面
    就把蓝色部分替换为 User_ControlPad.asp

    6. 最好的办法就是在User_Logout.asp文件最后加上下面的代码
    <meta http-equiv="refresh" content="0; url=/index.asp" />


<!--弹窗代码--> 

    <script language="javascript">

    window.open('http://www.wmjy.cn/wenyuan/')

    </script> 


    <script language="javascript">

    window.open('//www.wmjy.cn/')

    </script> 



手机扫码阅读本文


 

相关文章