Bulletin Board放在边侧修改方法

修改install.xml中的定义：
<?xml version="1.0" encoding="UTF-8"?>
<PluginInstall>
<main>
  <PluginName>BulletinBoard</PluginName>
  <PluginTitle>Bulletin Board</PluginTitle>
  <PluginType>sidebar</PluginType>

修改plugins.asp文件
<%'---- ASPCode For BulletinBoard ----%>

  <%
  Function GetBulletin
      Dim Bulletin_Set, Bulletin_Delay, Bulletin_Lines, Bulletin_Content
      Set Bulletin_Set = New ModSet
      Bulletin_Set.open("BulletinBoard")
      Bulletin_Delay=Bulletin_Set.getKeyValue("delay")
      Bulletin_Lines=Bulletin_Set.getKeyValue("lines")
      Bulletin_Content=Bulletin_Set.getKeyValue("content")
      Bulletin_Content=replace(Bulletin_Content, "&#quot;", "\""")
      Bulletin_Content=replace(Bulletin_Content, """, "\""")
      Bulletin_Content=replace(Bulletin_Content, vbCrLf , "\n")
      content_html_Top_default = replace(content_html_Top_default, "<$BulletinContent$>", Bulletin_Content)
      content_html_Top_default = replace(content_html_Top_default, "<$BulletinDelay$>", Bulletin_Delay)
      content_html_Top_default = replace(content_html_Top_default, "<$BulletinLines$>", Bulletin_Lines)
      side_html_default = replace(side_html_default, "<$BulletinContent$>", Bulletin_Content)
      side_html_default = replace(side_html_default, "<$BulletinDelay$>", Bulletin_Delay)
      side_html_default = replace(side_html_default, "<$BulletinLines$>", Bulletin_Lines)
  End Function
  GetBulletin
  %>  

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: