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

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>