网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 大学论文导航 设计下载 最新论文 下载排行 原创论文 论文源代码
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > 网络知识 > 正文

Z-BLOG博客自定义标签的另一种方法

来源:http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 14/06/30

鉴于大家对网络知识十分关注,我们编辑小组在此为大家搜集整理了“Z-BLOG博客自定义标签的另一种方法”一文,供大家参考学习!

  熟悉CMS的朋友应该知道,很多CMS都支持自定义标签、比如SDCMS DEDE 等等。而对于ZBLOG来说、插件比较少。如果不会程序的朋友。可能很难实现这个功能!今天就分享利用链接管理功能做自定义标签的小功能。

  首先我们来看看后台的“链接管理”中已经实现自定义标签,然后我们在亲自动手实现这个功能,这个功能主要的运用,我相信只要会CMS、知道自定标签的朋友都会知道。

以新增“公司介绍”自定标签为例:

  具体操作方法为:修改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

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

  最后在页面中调用标签为:

<#CACHE_INCLUDE_GONGSIJIESHAO#>

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

Z-Blog 下载:

Z-Blog v2.2 Prism Build140101下载

界面预览

  • 软件大小:1.67MB
  • 软件类别:国产软件 | 博客系统
  • 软件语言:简体中文
  • 运行环境:ASP/Access/MSSQL
  • 软件授权:免费版
  • 更新时间:2014-1-2 17:20:48
  • 相关链接:Home Page

本文转自:http://www.hzynh.cn/html/another-way-of-zblog-custom-label.html

网学推荐

免费论文

原创论文

设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved 湘ICP备09003080号