非诉案例-大良专业律师网

	本网简介

	业务动态

	经典案例

	律师视界

您目前的位置：首页 >> 本网站介绍 >> 经典案例

<% sql="select newsid,newstitle,releasedate from ns_newscontent where nwtypeid=8 order by releasedate desc" set rsNews=fGetRsList(sql) currentPage=request("page") if currentpage="" then currentpage=1 else currentpage=clng(currentpage) end if MaxPerPage = 12 RecordCount = rsNews.RecordCount if not rsNews.RecordCount=0 then rsNews.MoveFirst end if do while pos<(currentPage-1)*12 pos=pos+1 rsNews.moveNext loop x=(currentPage-1)*12 i=0 do while x

	" class="a2"><%=rsNews("newstitle")%>	<%=rsNews("releasedate")%>

<% rsNews.movenext loop if RecordCount mod 12 =0 then n= RecordCount \ 12 else n= (RecordCount \ 12)+1 end if if currentpage-1 mod 12 =0 then p=(currentpage-1) \ 12 else p=(currentpage-1) \ 12 end if %> <%if n<>0 then%>

" rsNews.close set rsNews=nothing %>

页次： <%=currentPage%> / <%=n%> 页

分页： <% if currentPage=1 then response.write "9 " else response.write "9 " end if if p*12>0 then response.write "7 " end if response.write "" for ii=p*12+1 to P*12+12 if ii=currentPage then response.write ""+Cstr(ii)+" " else response.write ""+Cstr(ii)+" " end if if ii=n then exit for next response.write "" if ii8 " end if if currentPage=n then response.write ": " else response.write ": " end if response.write "

<%end if%>

关于我们 | 内部平台 | 联系方式 | 设为首页