看到很多朋友的博客上都呈现近似小纸条样式的便笺，或是通知布告，或是语录，这种看上去很简单直不雅的功能虽然可以在模板里更改，但如果每次更改都需要下载模板文件再上传，怎么说也是很不便利，而zblog的插件又不像wp那样丰富，如果单就这么个小功能再做一个插件的话似乎又有点太不值得（主要是人懒^_^）。

今天分享一下我博客首页上的那个淡黄色布景的通知布告条是怎么实现后台办理的，原理很简单，只是在后台的"链接办理"中增加一个项目，然后在模板中增加对应标签便可，下面是实现体例，怕麻烦的童鞋可止步于此了。

这里需要修改2个文件，一个是admin目录中的edit_link.asp，另外一个是function目录中的c_system_event.asp

1.用记事本或DW或editplus打开adminedit_link.asp文件

找到下面这行代码：

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

在其下面添加一行：

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

<li><a href="#fragment-5"><span>通知布告</span></a></li>

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

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>" & vbCrlfResponse.Write "</div>"

在这段代码后面增加一段：

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

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>" & vbCrlfResponse.Write "</div>"

保存封闭文件

2.打开functionc_system_event.asp文件

找到下面这段代码：

tpath="./INCLUDE/misc.asp"txaContent=Request.Form("txaContent_Misc")If IsEmpty(txaContent) Then txaContent=NullIf Not IsNull(tpath) ThenIf Not IsNull(txaContent) ThenCall SaveToFile(BlogPath & tpath,txaContent,"utf-8",False)End IFEnd If

在其后面增加下面这段：

tpath="./INCLUDE/announcement.asp" '这段是为了添加通知布告自己增加的txaContent=Request.Form("txaContent_Announcement")If IsEmpty(txaContent) Then txaContent=NullIf Not IsNull(tpath) ThenIf Not IsNull(txaContent) ThenCall SaveToFile(BlogPath & tpath,txaContent,"utf-8",False)End IFEnd If

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

挪用标签：<#CACHE_INCLUDE_ANNOUNCEMENT#>

重点：在这里需要说明一下，我这里用的文件名是announcement.asp，所以在法度和挪用标签中用到的都是这个名字，如需其它名字，请按照自己需求调剂。

原文地址：.izhu/post/zblogZengJiaLianJieGuanLiXiangMu.html