<% const MaxPerPage=30 dim totalPut dim CurrentPage dim TotalPages dim i,j dim sql dim rs dim rstype dim typesql dim cateID,typename1 if not isEmpty(request("cateID")) then cateID=request("cateID") else cateID=1 end if if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if %> <% select case cateID case "1" response.write "统计数据" case "2" response.write "综合类排行" case "3" response.write "社会类排行" case "4" response.write "经济类排行" case "5" response.write "人物类排行" case else response.write "更多新闻" end select %>∥统计排行∥中国国际战略研究网

首页 >> 统计排行 >> <% select case cateID case "1" response.write "统计数据" case "2" response.write "综合类排行" case "3" response.write "社会类排行" case "4" response.write "经济类排行" case "5" response.write "人物类排行" case else response.write "更多新闻" end select %>

  新闻类别： 统计数据 · 综合类排行 · 社会类排行 · 经济类排行 · 人物类排行
<% sql="select * from news where cateID="+cstr(cateID)+" order by newsid desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "

还 没 有 任 何 新 闻

" else totalPut=rs.recordcount totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then 'showpage totalput,MaxPerPage,"news_more.asp" showContent showpage totalput,MaxPerPage,"news_more.asp" else if (currentPage-1)*MaxPerPage <%do while not rs.eof%> <% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %>
·" target="_blank"><%=rs("title")%> <%=rs("pubdate")%> <%=rs("clicks")%>
<% end sub function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "
" response.write "

" if CurrentPage<2 then response.write "首页 上一页 " else response.write "首页 " response.write "上一页 " end if if n-currentpage<1 then response.write "下一页 尾页" else response.write "" response.write "下一页 尾页" end if response.write " 页次："&CurrentPage&"/"&n&"页 " response.write " 共"&totalnumber&"篇 "&maxperpage&"篇/页 " response.write " 转到：" response.write "

" end function %>