列表页只调用推荐的文章, 分页可用

列表页只调用推荐的文章, 分页可用
type=list 时用
    2 list01= head头条 commend推荐 up置顶 是否（部分显示）
    3 {king:article type="list" list01="commend"  
number="1"}
*****************************************************
在
public sub createlist(l1)
找到
set rs=conn.execute("select "&sql&" from kingarticle where artshow=1 and listid="&datalist(0,j)&" or listids like '%,"&datalist(0,j)&",%' order by artup desc,artorder "&jsorder&",artid "&jsorder&";")替换为
'修改list-up,list-commend,list-head
dim list01
list01=king.getlabel(tmphtmlist,"list01")
if lcase(list01)="head" then list01="and arthead=1"
if lcase(list01)="commend" then list01="and artcommend=1"
if lcase(list01)="up" then list01="and artup=1"
                set rs=conn.execute("select "&sql&" from kingarticle where artshow=1 "&list01&" and listid="&datalist(0,j)&" or listids like '%,"&datalist(0,j)&",%' order by  artup desc,artorder "&jsorder&",artid "&jsorder&";")


注：本修改适用于5.0版本，未在5.1中测试，请注意代码换行问题，小心多空格导致程序错误