求asp +MySQL 分页显示的代码

发布网友发布时间：2022-05-05 11:16

共2个回答

热心网友时间：2022-05-05 12:46

要把connection设置为使用本地游标定位方式，mysql的server端不支持recordset的recordcount属性。
connstr="****"
set conn=server.createibject("ADODB.Connection")
conn.Open connstr
conn.CursorLocation=3 'adUseClient=3，而默认为adUseServer(=2)

set rs=server.createobject("ADODB.recordset")
sql="select ....."
rs.open sql,conn,1,1
'这时候就可以用recordcount pagecount了
rs.pagesize=10
rs.absolutepage=cint(strpage)
select_count=rs.recordcount
select_pagecount=rs.pagecount

热心网友时间：2022-05-05 14:04

答复:如果非要用limit的话,试试下面的吧~

<%
const MaxPerPage=10
records=200
pages=records/maxperpage
if pages<1 then pages=1 end if
currentpage=cint(request("currentpage"))
if currentpage="" or currentpage<1 then
currentpage=1
if currentpage>pages then currentpage=pages
end if

set rs=server.createobject("adodb.recordset")
sql="select * from view_procts order by procts_id desc limit "&(currentpage-1)*MaxPerPage&","&MaxPerPage
Rs.CursorLocation = 3
rs.open sql,conn
%>

<%
j=1
do while (not rs.eof) and j<=MaxPerPage
%>
<a href="proctlist.asp?procts_id=<%=rs("procts_id")%>"><%=((currentpage-1)*10+j)%>.<%=rs("procts_name")%></a> 
<%
rs.movenext
j=j+1
loop
%>
第<%=currentpage%>页共<%=Records%>条记录共<%=Pages%>页
'以下部分固定套用，显示当前页前后5页的连接
<%
ii=currentpage-5
iii=currentpage+5
if ii < 1 then
ii=1
end if
if iii > pages then
iii=pages
end if
if currentpage > 6 then
%><a href="index0.asp?currentpage=1">1</a> ...<%
end if
for i=ii to iii
If i<>currentpage then
%><a href="index0.asp?currentpage=<%=i%>"><%=i%></a><%
else
%> <%=i%> <%
end if
next
if pages > currentpage+5 then
%>... <a href="index0.asp?currentpage=<%=pages%>"><%=pages%></a><%
end if
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>