eate "select "&;sql&;" from kingart a,kingart_list b where a.listid = b.listid and artsh ow=1 and ("&;insql_id&;" or listids like '%,"&;datalist(0,0)&;",%') order by artup desc,artorder "&;js order&;",a.artid "&;jsorder&;";" if dp.length>-1 then
'初始化变量值 pid=l2 count=dp.count'总记录数 pidcount=dp.pagecount'总页数 length=dp.length'页记录数 for i=0 to length'开始循环
列表 king.clearvalue king.value "artid",dp.data(0,i) king.value "listid",dp.data(1,i) 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 "title",encode(htmlencode(dp.data(2,i))) king.value "from",encode(formatfrom(dp.data(3,i))) king.value "description",encode(htmlencode(dp.data(4,i))) king.value "date",encode(htmlencode(dp.data(5,i))) king.value "keywords",encode(htmlencode(dp.data(6,i))) king.value "author",encode(htmlencode(dp.data(7,i))) king.value "image",encode(dp.data(9,i)) king.value "path",encode(getpath(dp.data(0,i),dp.data(10,i),dp.data(8,i))) king.value "zebra",king.mod2(i+1,zebra) king.value "commentid",encode(r_path&;"|"&;dp.data(0,i))'传递评论参数 tmplist=tmplist&;king.createhtm(jshtm,king.invalue)'循环累加值到 tmplist 变 量 next plist=pagelist(king.inst&;datalist(2,0)&;"/$/",pid,pidcount,count) outhtm=replace(tmphtm,suij,tmplist) outhtm=replace(outhtm,suijpagelist,plist) king.createfolder "../../"&;datalist(2,0) if pid=1 then'列表第一页 king.savetofile "../../"&;datalist(2,0)&;"/"&;king_ext,outhtm else king.savetofile "../../"&;datalist(2,0)&;"/"&;pid&;"/"&;king_ext,outhtm end if else outhtm=replace(tmphtm,suij,king.lang("error/rsnot")) outhtm=replace(outhtm,suijpagelist,"") king.savetofile "../../"&;datalist(2,0)&;"/"&;king_ext,outhtm end if if l2
问题
打开根目录下 admin/article/index.asp 文件,找到 460 行:for i=1 to getlistpidcount(I1(nid)) 整个 for 循环用以下代码替换,这里不再需要循环。 pct=int(((fix(ncount)+i)/listpidcounts)*100) j=Timer art.createlist1 I1(nid),1 II "
" 调用代码,level=sub,调用本分类及子分类下所有文章,current,仅调用本分类下文章,all, 调用根目录下所有文章(不知道有用没,加上再说,哈哈) {king:article type="list" level="sub" number="2"}
xml:namespace prefix = a href="(king />(king:title/)
(king:description size="200"/)
(king:date mode="yy-MM-dd"/) f="(king:path/)">(king:siteurl/)(king:path/)
{/king}