<% Set rs = Server.CreateObject("ADODB.Recordset") sql="select Title,ID,AddDate,titleen,DefaultPicUrl from News where SmallClassName='企业新闻' order by AddDate desc" rs.open sql,conn,1,1 rs.PageSize =6 Page = CLng(Request("Page")) '分页显示 If not Page >1 Then Page = 1 If Page > rs.PageCount Then Page = rs.PageCount j=page+(page-1)*9 rs.AbsolutePage = Page if not rs.eof then For i=1 To rs.PageSize if rs.eof then exit for %>
<%rs.movenext next else response.Write("对不起,暂无相关新闻!") end if %>
<%=Page%>/<%=rs.PageCount%>
    <%a=6 '要显示的页码数 page 当前页码 pagecount 总页码数 if page>a-1 and rs.PageCount >a Then '如果当前页大于 要显示的页数 或 记录总数 大于 要显示的页数. if (page+int((a-1)/2))>rs.PageCount then pagenow = rs.PageCount - a+1 else pagenow = page - int((a-1)/2) end if for i = 1 to a If pagenow=page Then response.write "
  • "&pagenow&"
  • " Else response.write "
  • "&pagenow&" 
  • " End If pagenow = pagenow + 1 next else if rs.PageCount < a then for i = 1 to rs.PageCount If i=page Then response.write "
  • "&i&"
  • " '当前页码显示 Else response.write "
  • "&i&" 
  • " End If next else for i = 1 to a If i=page Then response.write "
  • "&i&" 
  • " '当前页码显示 Else response.write "
  • "&i&" 
  • " End If next end if end if %>