最簡單查詢帶分頁功能的代碼

最後更新：2018-12-03 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

晚上，應一位網友的求助,偶寫了個最簡單的查詢帶分頁功能的頁面(跳轉分頁時查詢條件不丟失),希望對大家有所協助.
先建立一個Access的資料庫Db1.mdb,裡面有一個資料表Dicky,共4個欄位:
欄位名資料類型
ID         AutoNumber
Name    Text
Sex        Text
Age        Number
QQ        Number
建立完庫後請自行添加幾條資料作為測試.

Page.asp代碼如下:
<html>
<head>
<title>分頁測試</title>
<script language="javascript">

</script>
</head>
<body>
<table align=center>
<form name=form1 method=post>
<input type=hidden name=GotoPage>
<tr><td>
<input type=checkbox name=Sex value="男"<%If Instr(Replace(Request("Sex")," ",""),"男") <> 0 Then Response.Write " checked"%>>男<input type=checkbox name=Sex value="女"<%If Instr(Replace(Request("Sex")," ",""),"女") <> 0 Then Response.Write " checked"%>>女
<input type=submit name=search value=搜尋>
</td>
</tr>
</form>
</table>
<table width=100% align=center>
<%
Dim Db,ConnStr,Conn,Rs,Sql
Set Conn = Server.CreateObject("ADODB.Connection")
Db = "db1.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Db)

Conn.Open ConnStr
If Trim(Request("Sex")) = "" Or Trim(Request("Sex")) = "男, 女" Then
Sql = "Select * From Dicky"
Else
Sql = "Select * From Dicky Where Sex='"&Trim(Request("Sex"))&"'"
End If
'Response.Write Sql
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,Conn,1,1
'Set Rs = Conn.Execute(Sql)
If Rs.Eof Then
Response.Write "<tr align=center><td>對不起，尚無記錄！</td></tr>"
Else%>
<tr><th>姓名</th><th>性別</th><th>QQ</th></tr>
<% '*************分頁處理部分By Dicky 2004-12-10 10:49:32**************
Dim Page,Page_Number,TotalRec,MaxPerPage,MM
'Page(當前頁),Page_Number(縂頁數),TotalRec(縂記錄數),MaxPerPage(每頁顯示條數)
MM = 0
If Trim(Request.Form("GotoPage")) <> "" Then
  If Not IsNumeric(Trim(Request.Form("GotoPage"))) Then
   Page = 1
  Else
   Page = CLng(Trim(Request.Form("GotoPage")))
  End If
Else
  Page = 1
End If

Rs.PageSize = 1
MaxPerPage = Rs.pageSize
TotalRec = Rs.RecordCount
Page_Number = Rs.PageCount
If Page_Number = 0 Then Page_Number = 1
If CLng(Page) < 1 Then Page = 1
If Page > Page_Number Then Page = Page_Number
Rs.AbsolutePage = Page
'*************分頁處理部分By Dicky 2004-12-10 10:49:32**************
Do While Not Rs.Eof And MM < MaxPerPage
  Response.Write "<tr align=center><td>"&Rs("Name")&"</td><td>"&Rs("Sex")&"</td><td>"&Rs("QQ")&"</td></tr>"
  MM = MM + 1
Rs.MoveNext:Loop
End If
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>
</table>

<%
'If Page_Number > 1 Then%>
<table width="100%" style="font-size: 9pt; margin-top: 4px">
<form method="post" name="form2">
<tr align="center"><td>
<%
   Response.Write "共<b><font color=red>"&TotalRec&"</font></b>條"
   Response.Write " 頁次:<b><font color=red>"&Page&"</font></b>/<b>"&Page_Number&"</b>頁"
   Response.Write " 每頁<b><font color=red>"&MaxPerPage&"</font></b>條"
%>

分頁:<%  If Page = 1 Then
    Response.Write "[首頁]"
    Response.Write "[上一頁]"
   Else
    Response.Write "[<a href='javascript:GotoPageSubmit(1);'><font color=blue>首頁</font></a>]"
    Response.Write "[<a href='javascript:GotoPageSubmit("&Page-1&");'><font color=blue>上一頁</font></a>]"
   End If

   If Page_Number - Page >= 1 Then
    Response.Write "[<a href='javascript:GotoPageSubmit("&Page+1&");'><font color=blue>下一頁</font></a>]"
    Response.Write "[<a href='javascript:GotoPageSubmit("&Page_Number&");'><font color=blue>尾頁</font></a>]"
   Else
    Response.Write "[下一頁]"
    Response.Write "[尾頁]"
   End If%>
轉到第 <input name="GotoPage" type=text size="3" maxlength="3" style="text-align:center;color:#FF0000;" value="<%=Page%>" onmouseover="this.select();"> 頁 <input name=goto type=button onClick="javascript:GotoPageSubmit(form2.GotoPage.value);" value=" Go ">
</td></tr>
</form>
</table>
<%
'End If%>
</body>
</html>

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More

最簡單查詢帶分頁功能的代碼

聯繫我們

A Free Trial That Lets You Build Big!

Sales Support

After-Sales Support