Create a paging program using ASP

Create a paging program using ASP
Wodeail · CPCW
    
Are you worried about the tedious work of repeatedly linking previous pages and next pages for the sake of too many articles on your site? Now with ASP, as long as your homepage Supports ASP, you can easily manage the articles. Sorting, linking, and displaying all these tasks can be done by ASP! Would you like to give it a try if it is so easy to maintain the home page?
    
See the following code for implementing the ASP paging program:
    
<Anguage = "vbscript"
    
Dim conn
    
Dim connstr
    
Dim totalPut
    
Dim CurrentPage
    
Dim TotalPages
    
Dim I, j
    
Dim SQL
    
Dim rs
    
On error resume next
    
'Open the database
    
Connstr = "DBQ =" + server. mappath ("book. mdb") + "; DefaultDir =; DRIVER = {Microsoft Access Driver (*. mdb )};"
    
Set conn = server. createobject ("ADODB. CONNECTION ")
    
Conn. open connstr
    
Set rs = server. createobject ("adodb. recordset ")
    
'Defines the number of entries displayed on each page
    
Const MaxPerPage = 18
    
If not isempty (request ("page") then