订阅/程序下载
首页 > 5ucms改进 > 正文
5UCMS后台内容管理实现大类列表
作者:Qiuss 来源:csshaier 日期:2010/4/14 22:38:46 浏览量:511(滞后) 人气:LOADING...(实时) 【

  不说废话,直接上代码。实现后台内容大类分页,同前台一样,需要修改源码。在此cssHaier提醒您,若是没有ASP基础,请勿修改!

1,打开admin/admin_content.asp文件,找到以下代码

Sub Main()   
If Len(Key) > 0 Then  
    If Instr(",ID,Cid,Commend,Views,Comments,Orders,Display,","," & DFieldKey & ",") > 0 Then  
        If Len(Key) > 0 And IsNumeric(Key) Then Sql = "[" & DFieldKey & "]=" & Key & ""  
    Else  
        Sql = "[" & DFieldKey & "] Like '%" & Key & "%'"  
    End If  
End If  

2、将以上代码整体替换成以下代码

Sub Main()     
If Len(Key) > 0 Then  
    If Instr(",ID,Cid,Commend,Views,Comments,Orders,Display,","," & DFieldKey & ",") > 0 Then  
    ' ↓修改栏目显示内容 by cssHaier↓   
            Dim Tag_Where,Cid,N   
            N= DB("Select [ChildID],[ChildIDs] from [{pre}Channel] where CID = "& Key,1)   
            If Len(N(0)) > 0 then    
                      Cid=N(1)   
                   Tag_Where="or [cid] in ("&N(1)")"  
                       Else  
                              Cid= Key   
                      Tag_Where=""  
                        End If                         
            '↑修改大类显示内容↑   
        If Len(Key) > 0 And IsNumeric(Key) Then Sql = "[" & DFieldKey & "]=" & Key & Tag_Where""  
    Else  
        Sql = "[" & DFieldKey & "] Like '%" & Key & "%' "&Tag_Where   
    End If  
End If  

3、经测试,0409版和v1.2 2024版可用!

本站推荐:5ucms模板 5ucms插件 微信/QQ:3876307        [复制给好友] [打印] [关闭] [返回] [顶部]
上一篇:5UCMS使用page标签调用栏目形象图
下一篇:5ucms 的几个统计用标签
本站声明:本网站所载文章等内容,目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责。如涉及作品内容、版权及其它问题,请在30日内与本网联系(Email:3876307#qq.com),我们将在第一时间删除内容。若原创内容转载请注明出处。
常见问题: 什么是路径码? 如有问题,请在下方评论提问或加入5ucmsQQ群
5UCMS后台内容管理实现大类列表的关键词:5UCMS大类列表
评论信息
相关分类
本周热门
本月热门
关于我们 - 版权/免责 申明 - 建站服务 - 网站地图 - 稿件投递 - 联系我们 - 5ucms
Copyright © 2008-2015 www.5ucms.org 微信/QQ:3876307