asp分页简单使用
ASP
2025-01-05 09:41
60
0
<% Response.Buffer=False %>
<%
Dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mychanpin.mdb")
set bb = server.CreateObject("ADODB.Connection")
bb.Open connstr
%>
<html>
<head>
<title>每日销售情况</title>
</head>
<body>
<%
set rs = server.CreateObject ("adodb.recordset")
rs.open "select * from changpin order by data desc",bb,1,1 '注意这裏是按日期查询
if request("page")="" then
page=1
else
page=cint(request("page"))
end if
rs.pagesize=12
if page=0 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
%>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center">序号</div></td>
<td><div align="center">日期</div></td>
<td><div align="center">已售</div></td>
</tr> <%
for i=1 to rs.pagesize%> '分页代码用这个循环
<tr>
<td><div align="center"><%=rs("ID")%></div></td>
<td><div align="center"><%=rs("data")%></div></td>
<td><div align="center"><%=rs("yishou")%></div></td>
</tr><%
rs.movenext
if rs.eof then exit for
next
%>
<tr>
<td colspan=3 height=25>
<!--分页代码开始-->
<%
if page=1 then
response.write"首页 "
end if
if page<>1 then
response.write"<a href=?page=1>[首页]</a> "
response.write"<a href=?page="&(page-1)&">[上一页]</a> "
end if
if page<>rs.pagecount then
response.write"<a href=?page="&(page+1)&">[下一页]</a> "
response.write"<a href=?page="&rs.pagecount&">[尾页]</a> "
end if
if page=rs.pagecount then
response.write"尾页 "
end if
<!--分页代码结束-->
%>
</td>
</tr>
</table>
</body>
</html>
