asp类似百度分页

发布时间:2009-02-26 11:13:00 阅读:1339次

<!--#include file="conn.asp"-->
<%
'内容循环前
SET RS=SERVER.CREATEOBJECT("ADODB.RECORDSET")
SQL="SELECT * FROM info"
RS.OPEN SQL,cn,1,3
PAGE=1    ' 设置变量PAGE=1
RS.PAGESIZE = 10 '每页显示记录数
IF NOT ISEMPTY(REQUEST("PAGE")) THEN '如果PAGE已经初始化...
PAGE = CINT(REQUEST("PAGE")) '接收PAGE并化为数字型赋给PAGE变量
   IF PAGE > RS.PAGECOUNT THEN '如果接收的页数大于总页数
       RS.ABSOLUTEPAGE = RS.PAGECOUNT '设置当前显示页等于最后页
   ELSEIF PAGE <= 0 THEN '如果PAGE小于等于0
       PAGE = 1 '设置PAGE等于第一页
   ELSE
       RS.ABSOLUTEPAGE = PAGE '如果大于零,显示当前页等于接收的页数
   END IF
END IF
PAGE = RS.ABSOLUTEPAGE
%>
<table width="40%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="66%">
标题</td>
<td width="34%">
日期时间</td>
</tr>
<%
FOR I = 1 TO RS.PAGESIZE
IF RS.EOF THEN    
EXIT FOR
END IF '利用FOR NEXT 循环依次读出记录
%>
  <tr>
    <td><%=RS("title")%></td>
    <td><%=RS("datetime")%></td>
  </tr>
<%
RS.MOVENEXT
NEXT '循环结束
%>
</table>
<TABLE width="396" height="24" BORDER="0" align="center" CELLPADDING="0" CELLSPACING="0">
<TR ALIGN="CENTER" VALIGN="TOP">
<!--控制第一张图片,有没有上一页-->
<TD WIDTH="137" ALIGN="CENTER" valign="middle">
<%IF PAGE=1 OR PAGE<1 THEN%>
第一页

上一页
<%END IF%>
<%IF PAGE>1 THEN%>
<A HREF="baidu.ASP?PAGE=1">
第一页</A>
<A HREF="baidu.ASP?PAGE=<%=PAGE-1%>">
上一页</A>
<%END IF%>
</TD>
<!--//-->
<!--当前页面前,循环显示4页-->
<%
Ƈ-4页要特殊对待
IF PAGE>1 THEN A=1
IF PAGE>2 THEN A=2
IF PAGE>3 THEN A=3
IF PAGE>4 THEN A=4
'当前页面前,循环显示4页
FOR I=PAGE-A TO PAGE-1 %>
<TD WIDTH="19" ALIGN="CENTER" valign="middle">
<A HREF="baidu.ASP?PAGE=<%=I%>">
<%=I%>
</A>
</TD>
<% NEXT %>
<!--当前所在页面-->
<TD WIDTH="19" ALIGN="CENTER" valign="middle">
  <FONT COLOR="#FF0000"><%=PAGE%></FONT>
</TD>
<!--//-->
<!--当前页面后,循环显示4页-->
<%
FOR I=PAGE+1 TO PAGE+4
IF I>RS.PAGECOUNT THEN EXIT FOR
%>
<TD WIDTH="19" ALIGN="CENTER" valign="middle">
<A HREF="baidu.ASP?PAGE=<%=I%>">
<%=I%>
</A>
</TD>
<%
NEXT
%>
<!--//-->
<!--控制最后一张图片,有没有下一页-->
<TD WIDTH="165" ALIGN="CENTER" valign="middle">
<% IF PAGE=RS.PAGECOUNT OR PAGE>RS.PAGECOUNT THEN %>
下一页

最后一页
<% ELSE %>
<A HREF="baidu.ASP?PAGE=<%=PAGE+1%>">
下一页
</A>
<A HREF="baidu.ASP?PAGE=<%=RS.PAGECOUNT%>">
最后一页
</A>
<% END IF %>
</TD>
<!--//-->
</TR>
</TABLE>
<!--//分页程序-->

如有问题,可以QQ搜索群1028468525加入群聊,欢迎一起研究技术

支付宝 微信

有疑问联系站长,请联系QQ:QQ咨询

转载请注明:asp类似百度分页 出自老鄢博客 | 欢迎分享