Dim RS,strSQL
Dim intRecordPositionPageNum 'Holds the number of the page the user is on
Dim intTotalNumNewsEntries 'Holds the number of News Items there are in the database
Dim intTotalNumNewsPages 'Holds the number of pages the News Items cover
Dim intLinkPageNum 'Holds the number of the other pages of news itmes to link to
Dim intRecordsPerPage 'Hold the number of Records per each page
intRecordsPerPage = 20
Set RS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM table1 ;"
RS.Open strSQL,AdoCon_Sh ,1,1
RS.PageSize = intRecordsPerPage
If NOT RS.EOF Then RS.AbsolutePage = intRecordPositionPageNum
intTotalNumNewsEntries = RS.RecordCount
intTotalNumNewsPages = RS.PageCount
For intNumber = 1 to intRecordsPerPage
نوشتن تعداد ركوردهاي مورد نيازدر هر صفحه
در اين مثال 20 ركورد
Next
بعد هرجا كه خواستيد با استفاده از تابع زير شماره صفحات رو نمايش بديد.
(Sub_Write_Navigation)
Sub Sub_Write_Navigation
Response.Write("<Center>")
Response.Write "<span > Total Records: " & _
intTotalNumNewsEntries & _
"Record .:. Page " & intRecordPositionPageNum & " From " & intTotalNumNewsPages & "</span><BR>"
'If there are more pages to display then add a title to the other pages
If intRecordPositionPageNum > 1 or NOT RS.EOF Then
Response.Write vbCrLf & " <span >Page</span>: "
End If
'If the News Items page number is higher than page 1 then display a back link
If intRecordPositionPageNum > 1 Then
Response.Write vbCrLf & " <a href=""show.asp?PagePosition=" & intRecordPositionPageNum - 1 & """ ><< <span >Previous</span></a> "
End If
'If there are more pages to display then display links to all the pages
If intRecordPositionPageNum > 1 or NOT RS.EOF Then
'Display a link for each page in the News Items
For intLinkPageNum = 1 to intTotalNumNewsPages
'If the page to be linked to is the page displayed then don't make it a hyper-link
If intLinkPageNum = intRecordPositionPageNum Then
Response.Write vbCrLf & " <span > " & intLinkPageNum & " <span lang=""fa"" style=""font-size: 10px"">"
Else
Response.Write vbCrLf & " <a href=""show.asp?PagePosition=" & intLinkPageNum & """>" & intLinkPageNum & "</a> "
End If
Next
End If
'If it is Not the End of the News Items entries then display a next link for the next News Items page
If NOT RS.EOF then
Response.Write vbCrLf & " <a href=""show.asp?PagePosition=" & intRecordPositionPageNum + 1 & """><span >Next</span> >></a>"
End If
End sub