分頁的顯示-->前後翻滾10頁的實現

來源:互聯網
上載者:User
分頁|顯示 <%
set con=server.CreateObject("ADODB.Connection")
strConnection="Data Source=xxxxxxx;"
con.Open strConnection

set rs = Server.CreateObject("ADODB.Recordset")
chartSQL="select ID,name,category_one from goods "
rs.Open chartSQL,con,1,3
if rs.EOF or rs.BOF then '如果為空白
response.end
end if
pagesize=10 '每頁顯示10條記錄
pagecuont=rs.PageCount '總頁數
recordcount=rs.RecordCount
dim pagenum '當前頁碼
dim currentRecord '當前頁的記錄數,對於末頁其值不等於pagesize
if Request.QueryString ("pageNum")="" then
pageNum=1
else
pageNum=Request.QueryString ("pageNum")
rs.AbsolutePage =trim(Request.QueryString ("pageNum"))
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
<SCRIPT LANGUAGE=javascript>
<!--
function openwindow(url){
window.open(url,'','resizable=no,width=240,height=160,fullscreen=yes')
}
//-->
</SCRIPT>
<link rel="stylesheet" href="file:///F|/mysourceof17560/CSS.CSS" type="text/css">
</head>
<body bgcolor=#999999>
<p align="center">商品修改頁面</p>
<table border="1" width="100%" cellpadding="0" cellspacing="0" bordercolordark="#999999" bordercolorlight="#000000">
<tr>
<td width="10%">
<div align="center">編號 </div>
</td>
<td width="63%">
<div align="center">商品名 </div>
</td>
<td width="14%"> 
<div align="center">主分類</div>
</td>
<td width="13%">
<div align="center">操作 </div>
</td>
</tr>
<%
for i=1 to rs.PageSize
if rs.EOF or rs.BOF then '本條件判斷是否到了盡頭
exit for
end if
%>
<tr>
<td width="10%" align=center><%=rs("ID")%></td>
<td width="63%" align=center><%=rs("name")%> </td>
<td width="14%" align=center><%=rs("category_one")%> </td>
<td width="13%">
<div align="center">
<INPUT type="button" value="Button" id=button1 name=button1
ID")%>&zfenlei=<%=rs("category_one")%>','','resizable=no,width=240,height=160')">
 </div>
</td>
</tr>
<%
currentRecord=currentRecord+1 '取的當前頁的記錄數
rs.MoveNext
next
rs.Close
%>
</table>
<div align="center" class="bfont">合計<%=recordCount%> 條記錄 | 第
<%
pageNum_record=(pageNum-1)*pageSize+1 '初始記錄位置
pageNum_record_=pageNum_record+currentRecord-1 '末記錄位置
Response.Write pageNum_record
%>
-<%=pageNum_record_%>條 | 第<%=pageNum%>頁 |共<%=pagecuont%>頁
<%
if pagecuont >0 then '防止當前返回的為空白記錄,即資料庫中該資料集為空白
if pageNum > 1 then %>
<a href="modifychart.asp?pageNum=1"> <font color="#FFFFFF">首頁</font></a>
<%
else Response.Write "首頁"
end if
if pageNum > 10 then
'如有需要,請在這裡添上如果不足10頁時該實現前n頁的代碼,
'請參考下面的如果後面不足10頁時該怎麼樣處理的代碼和思路
%>
<a href="modifychart.asp?pageNum=<%=(pageNum-10)%>"> <font color="#FFFFFF">前10頁</font></a>
<%
end if
if (pageNum+10) < pagecuont then
'這裡也相同參考下面的思路
%>
<a href="modifychart.asp?pageNum=<%=(pageNum+10)%>"> <font color="#FFFFFF">下10頁</font></a>
<%
end if
if (pageNum+10) < pagecuont then
'這裡判斷後面是否還有10頁
endpage=pageNum+9
else
endpage=pageCount
end if
for i=pageNum to endPage
%>
<a href="modifychart.asp?pageNum=<%=i%>">第<%=i%>頁</a>
<%
next
if pageNum <> pageCount then
%>
<a href="modifychart.asp?pageNum=<%=pagecuont%>"> <font color="#FFFFFF">末頁</font></a>
<%
end if
end if 'end of --->if pageCount >0 then
%>
</div>
</body>
</html>

相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。