列表页调用本分类下所有子类文章, 列表页调用本分类下所有子类文章,完美解决分页问题
首先要打开站点根目录下 page/article/fun.asp 文件,在文件底部加个函数,见 function king_article_suball(l1) '根据 listid 递归找到其子 listid dim ids,tempids,rs king_article_suball = l1 set rs=conn.execute("select listid from kingart_list where listid1 in ("&;l1&;") ;") if not rs.eof and not rs.bof then tempids=rs.getString(,,"",",","") if len(tempids)>0 and InStr(tempids,",") then tempids = left(tempids,len(tempids)-1) end if rs.close king_article_suball=king_article_suball(tempids)&;","&;king_article_suball else king_article_suball=l1 end if end function 然后找到找到本页面 330 行 把 createlist1 函数用以下代码替换 public sub createlist1(l1,l2) dim tmphtm,outhtm dim tmphtmlist,tmplist dim jshtm,jsnumber,zebra dim rs,irs,i,j,dp,data,datalist,pid,plist,pidcount,count,length'pidcount 总页数 dim sql,suij,suijpagelist dim jsorder,listid,listpath,listname if len(l1)=0 then exit sub sql="listid,listname,listpath,listtemplate1,listtemplate2,listtitle,listkeyword,listdescription,list content"'7 datalist set rs=conn.execute("select "&;sql&;" from kingart_list where listid="&;l1&;";") if not rs.eof and not rs.bof then datalist=rs.getrows() else redim datalist(0,-1) end if rs.close set rs=nothing sql="a.artid,a.listid,arttitle,a.artfrom,artdescription,artdate,artkeywords,a.artauthor,'/'+b.listpat h+'/'+artpath,artimg,artgrade"'10 data '分析模板及标签,并获得值 tmphtm=king.read(datalist(3,0),r_path&;"[list]/"&;datalist(4,0))'内外部模板结合后的 htm 代 码
tmphtmlist=king.getlist(tmphtm,"article",1)'type="list"部分的 tag,包括{king:/} jshtm=king.getlabel(tmphtmlist,0) jsorder=king.getlabel(tmphtmlist,"order") if lcase(jsorder)="asc" then jsorder="asc" else jsorder="desc" jsnumber=fix(king.getlabel(tmphtmlist,"number")) zebra=king.getlabel(tmphtmlist,"zebra") suij=chr(3)&;salt(20)&;chr(2)'随机出来的替换参数 suijpagelist=chr(3)&;salt(16)&;chr(2) dim jslevel,insql_id jslevel=king.getlabel(tmphtmlist,"level") select case lcase(jslevel) case"sub" in
sql_id=" a.listid in ("&;king_article_suball(l1)&;")" case"current" insql_id=" a.listid="&;l1 case"all" insql_id1=" a.listid<>0 " case else insql_id=" a.listid="&;l1 end select '把 tmphtm 中的{king:...type=list/}标签替换为一个随机的标签;pagelist 设置为一个随机 标签 tmphtm=replace(tmphtm,tmphtmlist,suij) '替换模板中的标签 king.clearvalue king.value "title",encode(htmlencode(datalist(5,0))) king.value "listname",encode(htmlencode(datalist(1,0))) king.value "listcontent",encode(htmlencode(datalist(8,0))) king.value "listpath",encode(king.inst&;datalist(2,0)) king.value "key
words",encode(htmlencode(datalist(6,0))) king.value "description",encode(htmlencode(datalist(7,0))) king.value "path",encode(king.inst&;datalist(2,0)) king.value "pagelist",encode(suijpagelist) king.value "listid",datalist(0,0) kin
g.value "guide",encode(guide(datalist(0,0))) '增加,可选的 tmphtm=king.create(tmphtm,king.invalue) set dp=new record dp.pid=l2 dp.rn=jsnumber dp.cr