📄 userlogin.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
字号:

<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="Conn.asp"-->
<!--#Include File="Inc/Const.asp"-->
<%
On Error Resume Next

Response.Write "<html>"
Response.Write "<head>"
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />"
Response.Write "<title>用户登录</title>"
Response.Write EL_Common.Skin(0, 0, 0)
Response.Write "</head>"
Response.Write "<body style='background:#DCF6FF; margin:0; padding-top:5px; pading-right:5px;'>"
Response.Write "<div style='float:right'>"

If EL_User.UserIsLogin = False Then

Response.Write "<table border='0' cellspacing='0' cellpadding='0'>"
Response.Write "  <tr>"
Response.Write "    <td width='50' height='20' align='center'><a href='User/User_Login.asp?url="& EL_Common.ServerHTMLEncode(EL_Common.URLDecode(ComeURL)) &"' target='_top'>·登陆</a></td>"
Response.Write "    <td width='50' align='center'><a href='User/User_Reg1.asp' target='_top'>·注册</a></td>"
Response.Write "  </tr>"
Response.Write "</table>"

Else

Response.Write "<table width='' border='0' cellspacing='0' cellpadding='0'>"
Response.Write "  <tr>"
Response.Write "    <td height='20' nowrap><span style='color:#0000FF;'>"& EL_User.UserName &"("& EL_User.TrueName &")</span> ["& EL_User.GroupName &"]，"

Select Case Hour(Now())
   Case 1, 2, 3, 4, 5:   Response.Write "凌晨好!"
   Case 6, 7, 8, 9:      Response.Write "早晨好!"
   Case 10, 11:          Response.Write "上午好!"
   Case 12, 13:          Response.Write "中午好!"
   Case 14, 15, 16, 17:  Response.Write "下午好!"
   Case Else:            Response.Write "晚上好!"
End Select

Response.Write "</td><td width=20></td>"
Response.Write "<td nowrap><a href='"& InstallDir &"User/User_Index.asp?t=Msg' target='_blank'>待阅短信(<span style='color:red'>"& EL_User.MessageNum &"</span>)</a></td>"
Response.Write "<td width=20></td>"
Response.Write "<td nowrap><a href='"& InstallDir &"User/User_Index.asp?t=Point' target='_blank'>"& PointItemName &"："& EL_User.Points &"</a></td>"
Response.Write "<td width=20></td>"
Response.Write "<td nowrap><a href='"& InstallDir &"User/User_Index.asp?t=Point' target='_blank'>论坛"& ExpItemName &"："& EL_User.Exps &"</a></td>"
Response.Write "<td width=20></td>"
Response.Write "<td nowrap><a href='"& InstallDir &"User/User_Index.asp?t=hb' target='_blank'>我的订单</a></td>"
Response.Write "<td width=20></td>"
Response.Write "<td nowrap><a href='"& InstallDir &"User/User_Index.asp' target='_blank'>控制面版</a></td>"
Response.Write "<td width=20></td>"
Response.Write "<td nowrap><a href='"& InstallDir &"User/User_CheckLogin.asp?Action=Logout&url="& EL_Common.ServerURLEncode(Request.ServerVariables("HTTP_REFERER")) &"' target='_top'>退出登陆</a></td>"
Response.Write "<td width=10></td>"
Response.Write "</tr>"
Response.Write "</table>"


End If

Response.Write "</div>"
Response.Write "</body>"
Response.Write "</html>"

Call EL_Common.ShowScriptError()
Call ApplicationTerminate()
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -