/Plus/Announce/index.asp

https://github.com/joechen2010/health · ASP · 72 lines · 56 code · 5 blank · 11 comment · 0 complexity · 453dd1ae380fbcd7a41b44127055821a MD5 · raw file

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <%option explicit%>
  3. <!--#include file="../../Conn.asp"-->
  4. <!--#include file="../../KS_Cls/Kesion.CommonCls.asp"-->
  5. <!--#include file="../../KS_Cls/Kesion.Label.CommonCls.asp"-->
  6. <%
  7. '****************************************************
  8. ' Software name:Kesion CMS 6.5
  9. ' Email: service@kesion.com . QQ:111394,9537636
  10. ' Web: http://www.kesion.com http://www.kesion.cn
  11. ' Copyright (C) Kesion Network All Rights Reserved.
  12. '****************************************************
  13. Dim KSCls
  14. Set KSCls = New Announce
  15. KSCls.Kesion()
  16. Set KSCls = Nothing
  17. Class Announce
  18. Private KS
  19. Private Sub Class_Initialize()
  20. Set KS=New PublicCls
  21. End Sub
  22. Private Sub Class_Terminate()
  23. Call CloseConn()
  24. Set KS=Nothing
  25. End Sub
  26. Public Sub Kesion()
  27. Dim AnnounceID, FileContent
  28. Dim RefreshRS, KMRFObj
  29. Set KMRFObj = New Refresh
  30. AnnounceID = KS.ChkClng(request.QueryString)
  31. If KS.Setting(112)="" Then Response.Write "ÇëÏȵ½""»ù±¾ÐÅÏ¢ÉèÖÃ->Ä£°å°ó¶¨""½øÐÐÄ£°å°ó¶¨²Ù×÷!":response.end
  32. FileContent = KMRFObj.LoadTemplate(KS.Setting(112))
  33. If Trim(FileContent) = "" Then FileContent = "Ä£°å²»´æÔÚ!"
  34. Set RefreshRS = Server.CreateObject("Adodb.Recordset")
  35. RefreshRS.Open "Select Title,Author,AddDate,Content From KS_Announce Where ID=" & AnnounceID, Conn, 1, 1
  36. If Not RefreshRS.EOF Then
  37. FileContent = ReplaceAnnounceContent(RefreshRS, FileContent) 'Ìæ»»¹«¸æÄÚÈݱêǩΪÄÚÈÝ
  38. Else
  39. FileContent = "²ÎÊý´«µÝ´íÎó!"
  40. End If
  41. RefreshRS.Close:Set RefreshRS = Nothing
  42. FileContent=KMRFObj.KSLabelReplaceAll(FileContent)
  43. Set KMRFObj = Nothing
  44. Response.Write FileContent 'Êä³ö¹«¸æÄÚÈÝÒ³
  45. End Sub
  46. '*********************************************************************************************************
  47. 'º¯ÊýÃû£ºReplaceAnnounceContent
  48. '×÷ ÓãºÌæ»»¹«¸æÄÚÈÝÒ³±êǩΪÄÚÈÝ
  49. '²Î Êý£ºFileContent´ýÌæ»»µÄÄÚÈÝ
  50. '*********************************************************************************************************
  51. Function ReplaceAnnounceContent(RefreshRS, FileContent)
  52. If InStr(FileContent, "{$GetAnnounceTitle}") <> 0 Then
  53. FileContent = Replace(FileContent, "{$GetAnnounceTitle}", RefreshRS(0))
  54. End If
  55. If InStr(FileContent, "{$GetAnnounceAuthor}") <> 0 Then
  56. FileContent = Replace(FileContent, "{$GetAnnounceAuthor}", RefreshRS(1))
  57. End If
  58. If InStr(FileContent, "{$GetAnnounceDate}") <> 0 Then
  59. FileContent = Replace(FileContent, "{$GetAnnounceDate}", RefreshRS(2))
  60. End If
  61. If InStr(FileContent, "{$GetAnnounceContent}") <> 0 Then
  62. FileContent = Replace(FileContent, "{$GetAnnounceContent}", RefreshRS(3))
  63. End If
  64. ReplaceAnnounceContent = FileContent
  65. End Function
  66. End Class
  67. %>