<% '================================== ' 用户登录页面 ' 更新时间: 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") %>

<%=lang.Action.Logout%>

<%=lang.Action.LoginSuc(1)%>
<%=lang.Tip.SysTem(4)%> | <%=lang.Tip.SysTem(8)%>
<%=lang.Action.LoginSuc(2)%>

<% 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), lang.Tip.SysTem(4) & "", lang.Tip.SysTem(9) & " | " & lang.Tip.SysTem(4) & "
" & lang.Action.LoginSuc(2))%>

<% 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%>