1.打开FS_InterFace文件夹下的NS_Public.asp
2.找到 Public Function ClassList(f_Lablechar,f_type,f_Id) 函数
3.把该函数中的
dim table_array,div_tf,newnumber,datenumber,titlenumber,picshowtf,openstyle,orderby,orderdesc,pageTF,pagestyle,pagenumber,pagecss,datestyle,style_id,colnumber,contentnumber,navinumber,CutNum,CutType
修改为
dim table_array,div_tf,newnumber,datenumber,titlenumber,picshowtf,openstyle,orderby,orderdesc,pageTF,pagestyle,pagenumber,pagecss,datestyle,style_id,colnumber,contentnumber,navinumber,CutNum,CutType,containSubClass
4.在该函数中
div_tf=1
的下面加入以下一行代码
containSubClass=split(split(f_Lablechar,”┆”)(13),”$”)(1)
5.在该函数中
div_tf=0
的下面加入以下一行代码
containSubClass=split(split(f_Lablechar,”┆”)(7),”$”)(1)
6.将该函数中
search_inSQL=” and ClassId=’”& f_Id &”‘”
修改为
If containSubClass=”1″ Then
Dim Exist_Child_ClassID
Exist_Child_ClassID=getNewsSubClass(f_Id)
If Exist_Child_ClassID<>“” Then
search_inSQL=” and ClassId in (‘f_Id’,”&DelHeadAndEndDot(Exist_Child_ClassID)&”)”
Else
search_inSQL=” and ClassId=’”& f_Id &”‘”
End If
Else
search_inSQL=” and ClassId=’”& f_Id &”‘”
End If
保存文件后就能实现终极列表包含子栏目了。
附上修改后的NS_Public.asp
来自:http://www.freeidea.cn/blog/?p=77
最新评论