Salad UN

*****************************************************
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&";")