熟悉CMS的朋友應(yīng)該知道，很多CMS都支持自定義標(biāo)簽、比如SDCMS DEDE 等等。而對(duì)于ZBLOG來(lái)說(shuō)、插件比較少。如果不會(huì)程序的朋友。可能很難實(shí)現(xiàn)這個(gè)功能！今天就分享利用鏈接管理功能做自定義標(biāo)簽的小功能。

 

首先我們來(lái)看看后臺(tái)的“鏈接管理”中已經(jīng)實(shí)現(xiàn)自定義標(biāo)簽，然后我們?cè)谟H自動(dòng)手實(shí)現(xiàn)這個(gè)功能，這個(gè)功能主要的運(yùn)用，我相信只要會(huì)CMS、知道自定標(biāo)簽的朋友都會(huì)知道。

 

 

 

 

 

以新增“公司介紹”自定標(biāo)簽為例：

 

具體操作方法為：修改2個(gè)文件，一個(gè)是admin目錄中的”edit_link.asp“，另一個(gè)是function目錄中的”c_system_event.asp“。

 

1）用記事本或DW打開(kāi)”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/gongsijieshao.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_Gongsijieshao"" id=""txaContent_Gongsijieshao"">"&TransferHTML(LoadFromFile(BlogPath & unEscape(tpath),"utf-8"),"[textarea]")&"</textarea></p>" & vbCrlf

 

Response.Write "</div>"

 

注意：這里的 id=""fragment-5""跟上面的對(duì)應(yīng)。最后保存關(guān)閉該文件。

 

2）打開(kāi)”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/gongsijieshao.asp"這一段是為了添加公告自己增加的

txaContent=Request.Form("txaContent_Gongsijieshao")

 

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

 

添加完后保存并關(guān)閉文件，修改部分就完成了，接下來(lái)就是調(diào)用，調(diào)用很簡(jiǎn)單，只需在模板中確定自己想要安插調(diào)用便箋的位置，將相應(yīng)標(biāo)簽放進(jìn)去即可。

 

最后在頁(yè)面中調(diào)用標(biāo)簽為：<#CACHE_INCLUDE_GONGSIJIESHAO#>