asp + Access简单翻页代码

最新推荐文章于 2024-09-10 09:34:46 发布

lsl861107

最新推荐文章于 2024-09-10 09:34:46 发布

阅读量1.1k

点赞数

分类专栏： ASP相关文章标签： access asp class microsoft vbscript border

本文链接：https://blog.csdn.net/lsl861107/article/details/6674967

版权

ASP相关专栏收录该内容

10 篇文章 0 订阅

订阅专栏

本页面演示了两种翻页样式，页面文件名为Page.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>分页显示</title>
<style type="text/css">

</style>
</head>
<body>
<table width="600px" cellpadding="2" cellspacing="2" border="1" height="30">
<tr>
    <td class="titleCss">宝宝姓名</td>
    <td class="titleCss">电话号码</td>
    <td class="titleCss">邮箱地址</td>
</tr>
</table>
<%
Dim db
Set db = Server.CreateObject("Adodb.Connection")
db.Open"Driver={Microsoft Access Driver (*.mdb)};Dbq="&Server.MapPath("register.mdb")
Dim rs,str
Dim pSize,pNum,pCount
Dim flag,k
Set rs = Server.CreateObject("ADODB.Recordset")
str = "select * from registerTable"
rs.open str,db,1
pSize = 10
If request.QueryString("pNum") = "" Then
pNum = 1
Else
pNum = Cint(request.QueryString("pNum"))
End If
Session("pNum") = pNum
rs.pagesize = pSize
pCount = rs.pagecount
rs.absolutepage = pNum
flag = pSize
Do while not rs.eof and flag > 0
flag = flag - 1
%>
<table width="600px" cellpadding="2" cellspacing="2" border="1" height="30">
<tr>
    <td class="conentCss"><%=rs("BabyName") %></td>
    <td class="conentCss"><%=rs("Telephone") %></td>
    <td class="conentCss"><%=rs("Email") %></td>
</tr>
</table>
<%
rs.movenext
Loop
For k = 1 to pCount
If k = Session("pNum") then
   response.Write(k & " ")
Else
   response.Write("[<a href='Page.asp?pNum=" & k & "'>" & k & "</a>] ")
End If
Next
%>

</body>
</html>

将以下代码拷贝到想翻页的地方即可

<%
if page<>1 then
response.write("<a href=?page=1>[第一页]</a>")
response.write("<a href=?page="&page-1&">[上一页]</a>")
else
response.write("[第一页]")
response.write("[上一页]")
end if

for i = 1 to rs.pagecount
    if (i>page-5 and i<page+5) then
      if Cint(request.QueryString("page"))<>i then
         response.Write(" <a href='?page="&i&"'>["&i&"]</a> ")
           else
           response.Write("<font color='red'> "&i&" </font>")
      end if
         end if
     next

if page<>rs.pagecount then
response.write("<a href=?page="&page+1&">[下一页]</a>")
response.write("<a href=?page="&rs.pagecount&">[最后一页]</a>")
else
response.write("[下一页]")
response.write("[最后一页]")
end if
response.write("共"&rs.pagecount&"页,"&"共"&rs.recordcount&"条记录")
response.write(" 当前页码"&page)
%>