asp如何分页显示

2024-12-18 00:48:50

推荐回答（4个）

回答1：

'楼主可以建立索引,查询速度就会提高
<% 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
%>

每日销售情况

<%
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
%>

<%
for i=1 to rs.pagesize%> '分页代码用这个循环

<%
rs.movenext
if rs.eof then exit for
next
%>

序号	日期	已售
<%=rs("ID")%>	<%=rs("data")%>	<%=rs("yishou")%>
<% if page=1 then response.write"首页 " end if if page<>1 then response.write"[首页] " response.write"[上一页] " end if if page<>rs.pagecount then response.write"[下一页] " response.write"[尾页] " end if if page=rs.pagecount then response.write"尾页 " end if %>

回答2：

用ASP内置的分页方法是返回所有数据,当然会慢了
要想快只有采用SQL存储过程的分页,这种存储过程网上就有很多

回答3：

<% Response.Buffer=False %>
<%
Dim connstr
set bb = server.CreateObject("ADODB.Connection")
bb.open"driver=driver do microsoft access (*.mdb);uid=;pwd=;dbq="&server.MapPath("mychanpin.mdb")
%>

每日销售情况

<% '=============分页定义开始，可放在数据库打开前或后
dim action
action=request.QueryString("action")
Const MaxPerPage=20 '定义每页显示记录数，可根据实际自定义
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if '=============分页定义结束
%>

<%
set rs = server.CreateObject ("adodb.recordset")
sql="select * from changpin"
rs.open sql,bb,1,1
%>

<%
'=============分页类代码开始，需放在数据库数据表打开后

if err.number<>0 then
response.write "

数据库中暂时无数据！

"
end if
if rs.eof And rs.bof then
Response.Write "

对不起，没有符合条件记录！

"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if

if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if

if currentPage=1 then
showContent

showpage totalput,MaxPerPage,""&request.ServerVariables("script_name")&""
else
if (currentPage-1)*MaxPerPagers.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent

showpage totalput,MaxPerPage,""&request.ServerVariables("script_name")&""
else
currentPage=1
showContent

showpage totalput,MaxPerPage,""&request.ServerVariables("script_name")&""
end if
end if
end if '=============分页类代码结束onmouseover="this.background=' /images/999999.jpg'" onmouseout="this.background=' /images/1w.jpg'"
%>
<% '=============循环体开始
sub showContent
dim i
i=0
i=1
do while not rs.eof
%>

<%
i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
%>

序号	日期	已售
<%=rs("ID")%>	<%=rs("data")%>	<%=rs("yishou")%>

<%'=============放置分页显示开始
rs.close '释放资源
set rs=nothing
End Sub '=============循环体结束
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If %>

<% End Function '=============放置分页显示结束%>

回答4：

if Rs.RecordCount>0 then
page=clng(request("page"))
rszs=rs.recordcount Rs.PageSize=15
if page=0 then page=1
pages=Rs.pagecount
if page > pages then page=pages
Rs.AbsolutePage=page
For i=1 to Rs.PageSize
循环数据
rs.movenext
j=j+i
if rs.eof then exit for
next
end if

分页代码在下：
<%
url=Request.ServerVariables("SCRIPT_NAME")
function fy()
dim temp
for each name1 in Request.form
if name1<>"page" then
temp=temp&"&"&name1&"="&Request.Form(name1)
end if
next

for each name1 in Request.QueryString
if name1<>"page" then
temp=temp&"&"&name1&"="&Request.QueryString(name1)
end if
next
fy=temp
end function
%>

首页上一页第 <%=page%> 页下一页尾页共 <%=pages%> 页