Custom Paging in ASP Fast And Easy
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.
Sorry, There is no result ...
"
<%@ 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 "
"
response.write "
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 "" & Rec("productID") &" "
response.write Rec("productName") & "
"
DisplayNum = DisplayNum + 1
Rec.MoveNext
Loop
end if
If ipage > 1 Then
response.write "
pages = "Pages : "
For z = 1 to ipage
If z = page then
pages = pages & page & " "
Else
pages = pages & " " & z & "" & " "
End If
Next
response.write pages & " "
End If
if ipage > 1 And page > 1 Then
response.write "Previous"
end if
response.write " "
If ipage > 1 And page < ipage Then
response.write "Next Page"
end if
response.write "
Rec.Close
oCon.Close
set Rec = nothing
set oCon = nothing
%>
Comments:
Only members can write comments.Please, login / register to write comment.
