kingcms的上一页，下一页怎么控制在本分类中呀？

解决办法
——————————————————————————————————

/page/article/fun.asp文件，查找以下二个函数，一个是上一页一个是下一页，红色部分是修改部分。

private function lastpage(l1,l2,l3,l4,l5,l6)'上一页
 if instr(lcase(l5),"{king:lastpage")>0 then
  dim rs,I1
  set rs=conn.execute("select top 1 arttitle,artgrade,artpath,artid,artdate from kingart where artshow=1 and listid="&l3&" and artorder<"&l2&" order by artorder desc,artid desc;")
   if not rs.eof and not rs.bof Then
    I1="<a href="""&getpath(rs(3),rs(1),king.inst&l4&"/"&rs(2))&""">"&htmlencode(rs(0))&"</a>"
   else'如果不存在，则输出js加载来验证
    'I1=art.lang("common/notart")&"<a href="""&king.inst&l4&"/"">["&art.lang("common/back")&"]</a>"
    'I1="<a href="""&king.inst&l4&"/"">["&htmlencode(l6)&"]</a>"
    I1="第一篇"
   end if
   rs.close
  set rs=nothing
  lastpage="<span id=""k_lastpage"">"&I1&"</span>"
 end if
end function

private function nextpage(l1,l2,l3,l4,l5)'artid,artorder,listid,listpath,tmphtm //下一页
 if instr(lcase(l5),"{king:nextpage")>0 then
  dim rs,I1
  set rs=conn.execute("select top 1 arttitle,artgrade,artpath,artid,artdate from kingart where artshow=1 and listid="&l3&" and artorder>"&l2&" order by artorder asc,artid asc;")
   if not rs.eof and not rs.bof then
     I1="<a href="""&getpath(rs(3),rs(1),king.inst&l4&"/"&rs(2))&""">"&htmlencode(rs(0))&"</a>"
'   out I1
   else'如果不存在，则输出js加载来验证
    'I1="<script type=""text/javascript"">posthtm('"&king.page&"article/page.asp?action=nextpage','k_nextpage','artid="&l1&"');" & "</" & "script>"
    I1="最后一篇"
   end if
   rs.close
  set rs=nothing
  nextpage="<span id=""k_nextpage"">"&I1&"</span>"
 end if
end function