Custom Paging in ASP - Fast And Easy
by Scud Saturday, November 26, 2005
Rating:
Vote this news:
This source code displays results dividing to pages. Code provides Next Previous page links with numeric page numbers. You may modify source code to use with MS SQL or MS Access database. For this example, we have used MS SQL Server using sample database Northwind.
| <%@ LANGUAGE = "VBScript" %> <% Option Explicit Dim strCon, oCon, pages, Rec, DisplayNum, i, page, SQL, ipage, z strCon = "Provider=SQLOLEDB;Server=ASP;User ID=sa;Password=;Database=northwind;" Const adOpenForwardOnly = 0 Const adLockReadOnly = 1 Const adUseClient = 3 Const adCmdText = 1 page = request.querystring("page") If page = "" Then page = 1 else page = cint(page) End If DisplayNum = 0 Set oCon = Server.CreateObject ("ADODB.Connection") Set Rec = Server.CreateObject ("ADODB.Recordset") oCon.Open strCon Rec.PageSize = 10 Rec.CursorLocation = adUseClient SQL = "SELECT productID, productName FROM products" Rec.Open SQL, oCon if Rec.EOF OR Rec.BOF Then response.write "<br><br>" response.write "<p align=center><b>Sorry, There is no result ... </b></p>" else ipage = Rec.PageCount if page = 0 or page > ipage Then Rec.AbsolutePage = ipage else Rec.AbsolutePage = page end if Do While Not Rec.EOF AND DisplayNum < 10 response.write "<font style=""font-size=12px; font-family : verdana"">" & Rec("productID") &" " response.write Rec("productName") & "</font><br>" DisplayNum = DisplayNum + 1 Rec.MoveNext Loop end if If ipage > 1 Then response.write "<p align=center>" pages = "<b>Pages : " For z = 1 to ipage If z = page then pages = pages & page & " " Else pages = pages & " <a href=?page=" & z & ">" & z & "</a>" & " " End If Next response.write pages & " " End If if ipage > 1 And page > 1 Then response.write "<a href=?page="& page - 1 &">Previous</a>" end if response.write " " If ipage > 1 And page < ipage Then response.write "<a href=?page="& page + 1 &">Next Page</a>" end if response.write "</b></p>" Rec.Close oCon.Close set Rec = nothing set oCon = nothing %> |
