3.0SP2-实现公用标签,超简单 - 风讯CMS - 爱建站

,,,,CMS教程,模板无忧,建站教程,CMS教程,风讯Cms教程,

SEO SEO

首页  >   风讯CMS > 3.0SP2-实现公用标签,超简单  >  正文

3.0SP2-实现公用标签,超简单

2018-09-27 07:33:02 向站长提问 编辑: admin 阅读:

 

适用系统:3 0SP2,其它系统应该类似实现思想:一个标签应用于所有模版,自动读取所生成类别下(包含子类)的内容修改文件:Admin Refresh RefreshFunction asp实现方法(三行代码解决问题,呵呵):第一步、打开Admin Refresh RefreshFunction asp文件查找 Function ChirldClassID(ClassEnameStr) 下面约4、5行处,将 Set RsChirldFunObj = Conn Execute( "Select ClassID from NewsClass where ParentID=(Select ClassID from NewsClass where ClassEName= "&ClassEnameStr& " ) order by AddTime,id desc ")Set ChirldClassObj = Conn Execute( "Select ClassID from NewsClass where ClassEName= "&ClassEnameStr& " order by ID desc ") 替换为: If ClassEnameStr= "Thisclass " thenSet RsChirldFunObj = Conn Execute( "Select ClassID from NewsClass where ParentID= "&RefreshID& " order by AddTime,id desc ")Set ChirldClassObj = Conn Execute( "Select ClassID from NewsClass where ClassID= "&RefreshID& " order by ID desc ")ElseSet RsChirldFunObj = Conn Execute( "Select ClassID from NewsClass where ParentID=(Select ClassID from NewsClass where ClassEName= "&ClassEnameStr& " ) order by AddTime,id desc ")Set ChirldClassObj = Conn Execute( "Select ClassID from NewsClass where ClassEName= "&ClassEnameStr& " order by ID desc ")End if 第二步、制作标签方法实例、制作一个公用_分类页_推荐图片新闻{%=RecPic( "Thisclass ", "4 ", "1 ", "1 ", "30 ", "0 ", "4 ", "120 ", "80 ", " ", "6 ")%}上面的蓝色字Thisclass便是申明为当前类别及其下子类别!其它均为风讯默认,不用修改 方法简单、实用!各位在使用中有任何问题或建议请跟帖讨论、交流,谢谢! 本教程讨论区: http: bbs foosun net dispbbs asp?boardID=22&ID=13116&page=1 查看更多 风讯cms教程  风讯cms模板 来源:模板无忧 所属分类:风讯Cms教程 更新时间:2006-06-16 [收藏][报错][返回列表] 相关风讯Cms教程: 最简单的栏目切换方法(样式系列之栏目切换篇2) 我也放个栏目切换代码,简简单单的


适用系统:3.0SP2,其它系统应该类似
实现思想:一个标签应用于所有模版,自动读取所生成类别下(包含子类)的内容
修改文件:Admin/Refresh/RefreshFunction.asp
实现方法(三行代码解决问题,呵呵):
第一步、打开Admin/Refresh/RefreshFunction.asp文件
查找

Function ChirldClassID(ClassEnameStr)

下面约4、5行处,将

Set RsChirldFunObj = Conn.Execute("Select ClassID from NewsClass where ParentID=(Select ClassID from NewsClass where ClassEName=""&ClassEnameStr&"") order by AddTime,id desc")
Set ChirldClassObj = Conn.Execute("Select ClassID from NewsClass where ClassEName=""&ClassEnameStr&"" order by ID desc")

替换为:

If ClassEnameStr="Thisclass" then
Set RsChirldFunObj = Conn.Execute("Select ClassID from NewsClass where ParentID=""&RefreshID&"" order by AddTime,id desc")
Set ChirldClassObj = Conn.Execute("Select ClassID from NewsClass where ClassID=""&RefreshID&"" order by ID desc")
Else
Set RsChirldFunObj = Conn.Execute("Select ClassID from NewsClass where ParentID=(Select ClassID from NewsClass where ClassEName=""&ClassEnameStr&"") order by AddTime,id desc")
Set ChirldClassObj = Conn.Execute("Select ClassID from NewsClass where ClassEName=""&ClassEnameStr&"" order by ID desc")
End if

第二步、制作标签方法
实例、制作一个公用_分类页_推荐图片新闻
{%=RecPic("Thisclass","4","1","1","30","0","4","120","80","","6")%}
上面的蓝色字Thisclass便是申明为当前类别及其下子类别!其它均为风讯默认,不用修改

方法简单、实用!各位在使用中有任何问题或建议请跟帖讨论、交流,谢谢!

本教程讨论区: http://bbs.foosun.net/dispbbs.asp?boardID=22&ID=13116&page=1

查看更多 风讯cms教程  风讯cms模板


3.0SP2-实现公用标签,超简单
http://www.yuedudg.cn/article/15105731.html

 

友情链接
zblog之家 cms综合网 织梦之家
phpcms之家 wp之家 ecshop经验网
discuz经验网 帝国cms常识


Tags: CMS教程 模板无忧 建站教程 CMS教程 风讯Cms教程


手机浏览本文
3.0SP2-实现公用标签,超简单

3.0SP2-实现公用标签,超简单

站内推荐

网站分类

标签列表

关于我们
文章内容来源互联网仅供参考,如果还有疑问请联系我们!我们将竭力帮您解决您的问题
联系我们:

QQ: 397423577 

email:397423577@qq.com

微信:ganenboy