您现在的位置是：首页 > cms教程 > dedecms教程dedecms教程

Z-BLOG博客自定义标签的方法介绍

张津广2023-10-06 20:55:44dedecms教程已有24人查阅

导读熟悉CMS的朋友应该知道，很多CMS都支持自定义标签、比如SDCMS DEDE 等等。而对于ZBLOG来说、插件比较少。如果不会程序的朋友。

熟悉CMS的朋友应该知道，很多CMS都支持自定义标签、比如SDCMS DEDE 等等。而对于ZBLOG来说、插件比较少。如果不会程序的朋友。可能很难实现这个功能！今天就分享利用链接管理功能做自定义标签的小功能。
首先我们来看看后台的“链接管理”中已经实现自定义标签，然后我们在亲自动手实现这个功能，这个功能主要的运用，我相信只要会CMS、知道自定标签的朋友都会知道。
Z-BLOG博客自定义标签的另一种方法教程
以新增“公司介绍”自定标签为例：
具体操作方法为：修改2个文件，一个是admin目录中的”edit_link.asp“，另一个是function目录中的”c_system_event.asp“。
1）用记事本或DW打开”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""跟上面的对应。最后保存关闭该文件。
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/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