announce.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 ShowAnnounce()

Call EL_Common.ShowScriptError()
Call ApplicationTerminate()

Sub ShowAnnounce()
   Dim HTML, AnnounceID
   Dim AnnounceCmd, rsAnnounce
   
   AnnounceID = EL_Common.ELRequest("AnnounceID", 2)
   
   Call EL_Common.InitCommand(AnnounceCmd, "EL_SP_GetAnnounceInfo")
   With AnnounceCmd
      .Parameters.Append .CreateParameter("RETURN", 2, 4)
	  .Parameters.Append .CreateParameter("@AnnounceID", 3, 1, 4, AnnounceID)
	  Set rsAnnounce = .Execute()
   End With
   rsAnnounce.Close()
   If AnnounceCmd(0) <> 1 Then
      EL_Common.ShowErrorMsg("指定公告不存在")
	  Set rsAnnounce = Nothing
	  Set AnnounceCmd = Nothing
   End If
   rsAnnounce.Open()
   
   HTML = EL_Common.Template(0, 19, rsAnnounce("TemplateID"))
   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, rsAnnounce("SkinID")))
   
   HTML = EL_Common.RegExpStaticLabel(HTML, "{$Title}", EL_Common.ServerHTMLEncode(rsAnnounce("Title")))
   HTML = EL_Common.RegExpStaticLabel(HTML, "{$Content}", rsAnnounce("Content"))
   HTML = EL_Common.RegExpStaticLabel(HTML, "{$Inputer}", rsAnnounce("Inputer"))
   HTML = EL_Common.RegExpStaticLabel(HTML, "{$UpdateTime}", rsAnnounce("UpdateTime"))
   HTML = EL_Common.RegExpStaticLabel(HTML, "{$Title}", EL_Common.ServerHTMLEncode(rsAnnounce("Title")))
   
   rsAnnounce.Close()
   Set rsAnnounce = Nothing
   Set AnnounceCmd = Nothing
   Response.Write HTML
End Sub
%>