<% '================================== ' 用户登录页面 ' 更新时间: 2006-5-29 '================================== dim Referer_Url If Request.QueryString("action") = "logout" Then logout(True) Referer_Url = Cstr(Request.ServerVariables("HTTP_REFERER")) If len(Referer_Url) < 8 Then Referer_Url= "http://" & Request.ServerVariables("HTTP_HOST") %>

退出系统

退出登录成功
单击返回首页 | 单击返回退出前页面
三秒后自动返回登录前页面

<% ElseIf Request.Form("action") = "login" Then Dim loginUser Referer_Url = Session(CookieName & "_Login_Referer_Url") If len(Referer_Url) < 8 Then Referer_Url = Cstr(Request.ServerVariables("HTTP_REFERER")) If len(Referer_Url) < 8 Then Referer_Url = "http://" & Request.ServerVariables("HTTP_HOST") loginUser = login(Request.Form("UserName"), Request.Form("Password")) %>

<%=loginUser(0)%>

<%=Replace(Replace(loginUser(1),"default.asp",Referer_Url),"返回主页","返回登录前页 | 返回首页
三秒后自动返回登录前页面")%>

<% Else Referer_Url = Cstr(Request.ServerVariables("HTTP_REFERER")) If len(Referer_Url) < 8 then Referer_Url= "http://" & Request.ServerVariables("HTTP_HOST") Session(CookieName & "_Login_Referer_Url") = Referer_Url %>

<%End if%>