许多朋友的博客上都出现类似小纸条的便笺，或公告，或语录，这种看上去很直观的功能虽可以在模板里更改维护，但如果每次更改都得进入到模板页面编辑，还是很不方便，而zblog的插件又不丰富，若单就这么个小功做一个插件的话似乎又不值得……

今天分享一下大猪同学针对此问题的技术解决方案，在后台的“链接管理”中新增项目，然后在模板中添加对应标签，以实现独立、轻松的管理。

以新增站点”公告“项目为例，实现方法是：修改2个文件，一个是admin目录中的”edit_link.asp“，另一个是function目录中的”c_system_event.asp“。

1）用记事本或DW或editplus软件打开”admin/edit_link.asp“文件，找到下面这行代码：

<li><a href="#fragment-4"><span><%=ZC_MSG039%></span></a></li>

在其下面添加如下代码：

<li><a href="#fragment-5"><span>公告</span></a></li>

注意：这里的"#fragment-5"一定要是唯一的，且要跟下面的"#fragment-5"保持一致。

然后再找到下面这段代码：

tpath="./INCLUDE/misc.asp"

Response.Write "<p>" & ZC_MSG170 & ": </p><p><INPUT TYPE=""text"" Value="""&unEscape(tpath)&""" style=""width:100%"" readonly></p>"
Response.Write "<p></p>"
Response.Write "<p><textarea class=""resizable""   style=""height:300px;width:100%"" name=""txaContent_Misc"" id=""txaContent_Misc"">"&TransferHTML(LoadFromFile(BlogPath & unEscape(tpath),"utf-8"),"[textarea]")&"</textarea></p>" & vbCrlf

Response.Write "</div>"

    在这段代码后面增加如下代码：

Response.Write "<div class=""tabs-div"" id=""fragment-5"">"

tpath="./INCLUDE/announcement.asp"'自己添加的公告

Response.Write "<p>" & ZC_MSG170 & ": </p><p><INPUT TYPE=""text"" Value="""&unEscape(tpath)&""" style=""width:100%"" readonly></p>"
Response.Write "<p></p>"
Response.Write "<p><textarea class=""resizable""   style=""height:300px;width:100%"" name=""txaContent_Announcement"" id=""txaContent_Announcement"">"&TransferHTML(LoadFromFile(BlogPath & unEscape(tpath),"utf-8"),"[textarea]")&"</textarea></p>" & vbCrlf

Response.Write "</div>"

注意：这里的 id=""fragment-5""跟上面的对应。

最后保存关闭该文件。

2）打开”function/c_system_event.asp“文件，找到下面这段代码：

tpath="./INCLUDE/misc.asp"
txaContent=Request.Form("txaContent_Misc")

If IsEmpty(txaContent) Then txaContent=Null
If Not IsNull(tpath) Then
If Not IsNull(txaContent) Then
Call SaveToFile(BlogPath & tpath,txaContent,"utf-8",False)
End If
End If

在其后面增加下面这段代码：

tpath="./INCLUDE/announcement.asp"这一段是为了添加公告自己增加的
txaContent=Request.Form("txaContent_Announcement")

If IsEmpty(txaContent) Then txaContent=Null
If Not IsNull(tpath) Then
If Not IsNull(txaContent) Then
Call SaveToFile(BlogPath & tpath,txaContent,"utf-8",False)
End If
End If

添加完后保存并关闭文件，修改部分就完成了，接下来就是调用，调用很简单，只需在模板中确定自己想要安插调用便笺的位置，将相应标签放进去即可。

调用标签如：<#CACHE_INCLUDE_ANNOUNCEMENT#>

重点：需要说明一下，这里用的文件名是announcement.asp，所以在程序和调用标签中用到的都是这个名字，如需其他名字，请根据自己需求调整相应标签。

低一度：此方法不仅仅可用于增加公告这么小的应用上，实际上，如果你觉得很有必要，许多东西都可以按此法拉到这儿来进行管理，比如图文列表、广告代码等等，我的PC十万个为什么首页中的图文列表、公告以及部分广告位就是采用这种方案的，确实很方便。在此感谢大猪的分享！Enjoy It...