5UCMS后台内容管理实现大类列表

最新推荐文章于 2017-09-27 09:03:00 发布

最新推荐文章于 2017-09-27 09:03:00 发布 · 191 阅读

文章标签：

#SQL #ASP

本文介绍如何通过修改ASP代码实现后台内容的大类分页功能。重点在于替换原有代码片段，加入新的条件判断来实现更灵活的内容展示。适用于0409版和v1.22024版。

　　不说废话，直接上代码。实现后台内容大类分页，同前台一样，需要修改源码。在此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