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

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