<% '参数设置 pagesize=21 '每页显示的文章数量 %> <% classid=request.QueryString("classid") sql="select * from articleclass " classname="最新内容" if classid<>"" then if instr(classid,",") then sql=sql&" where classid in ("&classid&")" else sql=sql&" where classid="&classid end if rs.open sql,conn,1,1 if not (rs.eof or rs.bof) then classname=rs("classname") else classname="最新内容" end if rs.close end if ac=request.QueryString("ac") if ac="pic" then classname="图片新闻" end if %> <% sql="select * from article where passed=true " if ac="pic" then sql=sql&" and includepic=true" end if if classid<>"" then if instr(classid,",") then sql=sql&" and classid in ("&classid&")" else sql=sql&" and classid="&classid end if end if sql=sql&" order by ontop,updatetime desc,articleid desc,hits desc" set mypg=new jcpageclass mypg.getsql=sql mypg.getconn=conn mypg.pagesize=pagesize set rs=mypg.getrs() i=0 while not (rs.eof or rs.bof) and i·"&rs("title")&" ") i=i+1 rs.movenext wend %> <%call mypg.showpage %>