Posted on 2006-09-14 16:21
小傻 閱讀(178)
評論(0) 編輯 收藏 所屬分類:
asp
<!-- #include file="conn.asp" -->
<%
dim strsql,rs
set rs=Server.CreateObject("ADODB.RecordSet")
strsql="select * from t_url "
rs.open strsql,conn,1,1
%>
<%
page=request.querystring("page")?
rs.PageSize = 15
if Not IsEmpty(page) then
?? if Not IsNumeric(page) then
????? page=1
?? else
?? Page = cint(page)
?? end if??
?? if Page > rs.PageCount then
?????? rs.AbsolutePage = rs.PageCount
?? elseif Page <= 0 then
?????? rs.AbsolutePage = 1
?? else
?????? rs.AbsolutePage = Page
?? end if
else
rs.AbsolutePage=1
end if
%>
<%
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if
%>
<tr>
<td>
<%=rs("id")%></td>
<td><%=rs("c_name")%></td>
</tr>
<%
rs.MoveNext
Next
%>
<form action="<%=filepath%>" method="get">
<!--首先保證總頁數(shù)不為1、不為0-->
<%if rs.pagecount<>1 and rs.pagecount<>0 then%>
<!--如果當(dāng)前頁數(shù)大于1，無論何時都應(yīng)顯示首頁和上一頁的連接-->
<%if page>1 then%>
?? [<a Href="<%=filepath%>?Page=<% = 1%>">首頁</a>]
?? [<a Href="<%=filepath%>?Page=<% = page -1 %>">上一頁</a>]
<!--如果當(dāng)前頁數(shù)大于1并且小于總頁面數(shù)時，顯示出尾頁和下一頁的連接-->
?? <%if page<rs.pagecount then %>
?? [<a Href="<%=filepath%>?Page=<% = page + 1%>">下一頁</a>]
?? [<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾頁</a>]
<!--如果當(dāng)前頁數(shù)大于1并且仍大于或等于總頁面數(shù)時，不顯示出尾頁和下一頁的連接-->
?? <%else%>
?? [下一頁] [尾頁]
?? <%end if%>
<!--否則，當(dāng)前頁數(shù)不大于1，則只顯示尾頁和下一頁的連接-->
<%else%>
[首頁] [上一頁]
[<a Href="<%=filepath%>?Page=<% = page + 1%>">下一頁</a>]
[<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾頁</a>]
<%end if %>
<!--最終，總頁數(shù)若為1、為0則沒有任何連接-->
<%else%>
[首頁] [上一頁] [下一頁] [尾頁]
<%end if%>
[頁次:<font color=red><b><%=page%></b></font>/<%=rs.PageCount%>]
[共<%=rs.RecordCount%>篇 <font color=red><b><%=rs.PageSize%></b></font>篇/頁]
轉(zhuǎn)到<input name="page" size=5 value="<%=page%>">頁
<input type="submit" value="Enter">
</form>
<%
rs.close
Set rs = Nothing
conn.close
set conn=Nothing
%>