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、一级栏目列表调用下级文章修改法 

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

一、打开/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  www.hkdeng.com
     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