kingcms5部分BUG修复和修改技巧

1、实现文章模块的一键生成；同时其他自定义模块也可以这样实现

从后台目录admin/Article/index.asp的第555行开始,代码如下

case"createpage"
if len(list)>0 then
'重新获取listid,将子栏目包括进去,by何苦,在根列表点击下拉-生成列表及文章,可以实现包含子分类在内的模块文章一键生成.
set rs=conn.execute("select listid from kingart_list where listid in (" & list & ") or listid1 in (" & list & ");")
list = ""
if not rs.eof and not rs.bof then
data = rs.getrows()
for i=0 to ubound(data,2)
if len(list)>0 then
list = list & "," & data(0, i)
else
list = data(0,i)
end if
next
end if
rs.close
set rs = nothing
'------以上是加的,文章模块可以实现一键生成的代码
set rs=conn.execute("select artid from kingart where listid in ("&list&");")
if not rs.eof and not rs.bof then

把注释中间的代码是添加进去即可。

结果:在文章管理的根目录下,全选,点击下拉菜单中的 生成列表及文章,即可实现文章模块所有文件的一键生成.

2、kingCMS文章模块，分页功能默认打勾方法   根据实际情况修改（查询 '默认分页 ）修改，已做注释
-----------------------------------------------------
打开adminArticle下的 index.asp文件

修改两个地方：
第一个：修改分页字数，默认是2000，查找代码654行：pagelistnumber=2000
修改成你想要的参数： pagelistnumber=300

第二个：修改自动分行默认打勾选：在代码796行
if cstr(form("pagelist"))="1" then checked=" checked=""checked""" else checked=""
修改成：
if cstr(form("pagelist"))="1"  or cstr(form("pagelist"))="" then checked=" checked=""checked""" else checked=""
 

3、单页面的调用 注：where onepath like '%page%' 是判断onepath中是否包含page，
这是建立单页路径的时候指定的路径名的一部分
---------------------------------------------------
{king:sql cmd="select top 10 * from kingonepage where onepath like '%page%'  order by oneid desc;"}
<a href="../../(king:onepath/)">(king:onetitle/)</a>
{/king}

4、一级栏目列表调用下级文章修改法
原文：http://www.cgboke.com/kingcms/2008_10_23_101440259.htm

因数据库结构问题，只修改到支持两级。

一、打开/page/article/fun.asp

二、搜索到public sub createlist(l1)

把public sub createlist(l1)
......
end sub这个函数替换成如下代码：（就是两个 '  *** Copyright &copy KingCMS.com All Rights Reserved. ***  之间）

---------------------------------------------------------------

public sub createlist(l1)
 dim tmphtm,outhtm
 dim tmphtmlist,tmplist
 dim jshtm,jsnumber,zebra
 dim rs,irs,i,j,data,datalist,pid,plist,pidcount,length,datalista,datalistb'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"'7 datalist
 set rs=conn.execute("select "&sql&" from kingart_list where listid in ("&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="artid,listid,arttitle,artfrom,artdescription,artdate,artkeywords,artauthor,artpath,artimg,artgrade,artcontent"'10 data
 for j=0 to ubound(datalist,2)

 set rs=conn.execute("select listid,listid1 from kingart_list where listid="&datalist(0,j)&" or listid1="&datalist(0,j)&";")
  if not rs.eof and not rs.bof then
   datalista=rs.getrows()
    for i=0 to ubound(datalista,2)'开始循环列表
     if i=0 then
     datalistb=datalista(0,i)
     else
     datalistb=datalistb&","&datalista(0,i)
     end if
    next
  else
   redim datalista(0,-1)
  end if
  rs.close
 set rs=nothing

  '分析模板及标签，并获得值
  tmphtm=king.read(datalist(3,j),r_path&"[list]/"&datalist(4,j))'内外部模板结合后的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)

  '把tmphtm中的{king:...type=list/}标签替换为一个随机的标签；pagelist设置为一个随机标签
  tmphtm=replace(tmphtm,tmphtmlist,suij)

  '替换模板中的标签
  king.clearvalue
  king.value "title",encode(htmlencode(datalist(5,j)))
  king.value "listname",encode(htmlencode(datalist(1,j)))
  king.value "listpath",encode(king.inst&datalist(2,j))
  king.value "keywords",encode(htmlencode(datalist(6,j)))
  king.value "description",encode(htmlencode(datalist(7,j)))
  king.value "path",encode(king.inst&datalist(2,j))
  king.value "pagelist",encode(suijpagelist)
  king.value "listid",datalist(0,j)
  king.value "guide",encode(guide(datalist(0,j)))  '增加,可选的
  tmphtm=king.create(tmphtm,king.invalue)

  set rs=conn.execute("select "&sql&" from kingart where listid in ("&datalistb&") or listids like '%,"&datalist(0,j)&",%' order by artup desc,artorder "&jsorder&",artid "&jsorder&";")
  if not rs.eof and not rs.bof then
    data=rs.getrows()
    
    '初始化变量值
    pid=0
    pidcount=(ubound(data,2)+1)/jsnumber:if pidcount>int(pidcount) then pidcount=int(pidcount)+1'总页数
    length=ubound(data,2)'总记录数-1
    for i=0 to length'开始循环列表
 
     if cstr(listid)<>cstr(data(1,i)) then
      listid=data(1,i)
      set irs=conn.execute("select listname,listpath from kingart_list where listid="&listid&";")
       if not irs.eof and not irs.bof then
        listname=irs(0)
        listpath=irs(1)
       end if
       irs.close
      set irs=nothing
      
     end if

     king.clearvalue

     king.value "content",data(11,i)
     king.value "artid",data(0,i)
     king.value "listid",data(1,i)
     king.value "listname",encode(htmlencode(listname))
     king.value "listpath",encode(king.inst&listpath)
     king.value "title",encode(htmlencode(data(2,i)))
     king.value "from",encode(formatfrom(data(3,i)))
     king.value "description",encode(htmlencode(data(4,i)))
     king.value "date",encode(htmlencode(data(5,i)))
     king.value "keywords",encode(htmlencode(data(6,i)))
     king.value "author",encode(htmlencode(data(7,i)))
     king.value "image",encode(data(9,i))
     king.value "path",encode(getpath(data(0,i),data(10,i),king.inst&listpath&"/"&data(8,i)))
     king.value "zebra",king.mod2(i+1,zebra)
     king.value "commentid",encode(r_path&"|"&data(0,i))'传递评论参数

     tmplist=tmplist&king.createhtm(jshtm,king.invalue)'循环累加值到tmplist变量

     if ((i+1) mod jsnumber)=0 or i=length then '当整除于number参数或到最后一个记录的时候进入生成过程
'      if i=length then pid=pid+1
      plist=pagelist(king.inst&datalist(2,j)&"/$",pid+1,pidcount,length+1)

      outhtm=replace(tmphtm,suij,tmplist)
      outhtm=replace(outhtm,suijpagelist,plist)

      king.createfolder "../../"&datalist(2,j)
      if pid=0 then'列表第一页
       king.savetofile "../../"&datalist(2,j)&"/"&king_ext,outhtm
      else
       king.savetofile "../../"&datalist(2,j)&"/"&(pid+1)&"/"&king_ext,outhtm
      end if

      '初始化循环变量
      tmplist=""
      
      pid=pid+1
     end if

    next
   else
    outhtm=replace(tmphtm,suij,king.lang("error/rsnot"))
    outhtm=replace(outhtm,suijpagelist,"")
    king.savetofile "../../"&datalist(2,j)&"/"&king_ext,outhtm
   end if
   rs.close
  set rs=nothing
 next
end sub