- 挂牌上市企业
- 60秒人工响应
- 99.99%连通率
- 7*24h人工
- 故障100倍补偿
亚洲无码视频在线播放 ZBLOG 自定义标签添加方法 |
| 发布时间: 2012/9/15 14:37:16 |
|
熟悉CMS的朋友应该知道，很多CMS都支持自定义标签、比如SDCMS DEDE 等等。而对于ZBLOG来说、插件比较少。如果不会程序的朋友。可能很难实现这个功能！今天就分享利用链接管理功能做自定义标签的小功能。
首先我们来看看后台的“链接管理”中已经实现自定义标签，然后我们在亲自动手实现这个功能，这个功能主要的运用，我相信只要会CMS、知道自定标签的朋友都会知道。
以新增“公司介绍”自定标签为例：
具体操作方法为：修改2个文件，一个是admin目录中的”edit_link.asp“，另一个是function目录中的”c_system_event.asp“。
1）用记事本或DW打开”admin/edit_link.asp“文件，找到下面这行代码：
在其下面添加如下代码：
注意：这里的"#fragment-5"一定要是唯一的，且要跟下面的"#fragment-5"保持一致。
然后再找到下面这段代码：
tpath="./INCLUDE/misc.asp"
Response.Write "
" & ZC_MSG170 & ": "Response.Write ""
Response.Write "" & vbCrlf
Response.Write " "
在这段代码后面增加如下代码：
Response.Write "
"
tpath="./INCLUDE/gongsijieshao.asp"'自己添加的公告
Response.Write "
" & ZC_MSG170 & ": "Response.Write ""
Response.Write "" & vbCrlf
Response.Write " "注意：这里的 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
添加完后保存并关闭文件，修改部分就完成了，接下来就是调用，调用很简单，只需在模板中确定自己想要安插调用便笺的位置，将相应标签放进去即可。
最后在页面中调用标签为：<#CACHE_INCLUDE_GONGSIJIESHAO#>
重点：需要说明一下，这里用的文件名是gongsijieshao.asp，所以在程序和调用标签中用到的都是这个名字，如需其他名字，请根据自己需求调整相应标签。
本文出自：亿恩科技【www.sdyiwande.com】 |
0371-60135900
京公网安备41019702002023号
香港服务器租用
美国服务器租用
电信骨干机房
联通骨干机房
