This article has been fully tested and supports ASP+ACCESS and ASP+SQL. Please modify the relevant parts.
Note that I refuse to answer basic questions in a hurry. This code is already very simple. If you still don’t understand it, you can refer to other columns on this site.
<!--#include file="conn.asp"-->
<% 'The above contains database connection files
'----------------------------------------------Query start database
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from books where order by id desc",conn,1,1
if err.number<>0 then
response.write "No data in database"
end if
'---------------------------------------------Paging starts
if rs.recordcount=0 then
respose.write "No data"
else
rs.PageSize =10 'Number of records per page
iCount=rs.RecordCount 'Total number of records
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
For i=1 To x
Articles that may interest you:
Current page 1/2