Access数据库分页语句怎么写呢。

2025-04-28 01:34:19
推荐回答(3个)
回答1:

set rs2=server.createobject("adodb.recordset")
sqltext2 ="SELECT * FROM news order by id desc"
rs2.open sqltext2,conn,3,3

dim MaxPerPage
MaxPerPage=7
'取得页数,并判断用户输入的是否数字类型的数据,如不是将以第一页显示
dim text,checkpage
text="0123456789"
rs2.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > rs2.PageCount Then CurrentPage = rs2.PageCount
Else
CurrentPage= 1
End If
If not rs2.eof Then rs2.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if

%>
<%if row_count mod 1=0 then%>


<%end if %>
<%
i=i+1
if i >= MaxPerpage then exit do
rs2.MoveNext
row_count=row_count+1
Loop
end Sub
end if
call list %>

<%If Rs2.recordcount > MaxPerPage then %>

<%
Response.write "
"
call showpages

%>
<%end if %>


<%
sub showpages()%>


<%
If currentpage > 1 Then
response.write "首页>>"
Response.write "前页>>"
Else
Response.write "首页>>"
Response.write "前页>>"
End if

If currentpage < Rs2.PageCount Then
Response.write "后页>>"
Response.write "尾页  "
Else
Response.write "后页>>"
Response.write "尾页  "
End if
Response.write " 页次:" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(rs2.pagecount) & ""
Response.write " " & Cstr(MaxPerPage) & "" & "条/页 " & " 共" & "" & Cstr(Rs2.RecordCount) & "" & "条."

response.write "
"
%>

<%end sub%>

回答2:

那你就把第一条语句滞空不就好了 让数据库本身就从第二条开始

回答3:

top 20 好像是前20条数据把。。不是从第20条开始 access 数据库我不知道。。我用的是SQL