login.asp

依蓝旅游网站管理系统Elan2008.SP2

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

Call ShowLogin()
Call EL_Common.ShowScriptError()
Call ApplicationTerminate()


Sub ShowLogin()
   Dim HTML, URL
   
   URL = Trim(Request.Form("url"))
   If URL = "" Then URL =Trim(Request.QueryString("url"))
   If URL = "" Then URL = InstallDir
   
   HTML = EL_Common.Template(-2, 15, 0)
   HTML = EL_Common.ReplaceCommonLabels(HTML)
   HTML = EL_Common.RegExpStaticLabel(HTML, "{$MetaKeywords}", "<meta name=""keywords"" content="""& MetaKeywords &""" />")
   HTML = EL_Common.RegExpStaticLabel(HTML, "{$MetaDescription}", "<meta name=""description"" content="""& MetaDescription &""" />")
   HTML = EL_Common.RegExpStaticLabel(HTML, "{$DefaultSkin}", EL_Common.Skin(0, 0, 0))
   
   HTML = EL_Common.RegExpStaticLabel(HTML, "{$URL}", URL)
   
   Response.Write HTML
      
End Sub
%>