[سعود]

انظر للكود بالصفحة بشكل كامل وانظر للتعديل الذي اجريته حتى يتم رسم اداة هايبرلينك بعدد الصفحات ارجو لو وجدت خلل ان تقوم باصلاحه

كود :

Imports System.Data.OleDb

Partial Class _Default
    Inherits System.Web.UI.Page
    Dim page As Integer
    Dim lastpage As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim cm As New OleDbCommand("", conn)

        cm.CommandText = "select count (tid)  from tb"
        If conn.State = System.Data.ConnectionState.Closed Then
            conn.Open()
        End If
        Dim xcount As Integer = cm.ExecuteScalar

        Dim ItemsNumber As Integer = 5 'عدد العناصر في كل صفحة
        ' Dim All As Integer = 107 'العدد الكلي للعناصر
        Dim All As Integer = xcount  'العدد الكلي للعناصر
        '////////////////////////
        Dim Pages As Double = xcount / ItemsNumber 'الحصول على عدد الصفحات
        Dim Rounded As Integer = Math.Round(Pages) 'تحويل عدد الصفحات الى عدد صحيح
        If Rounded < Pages Then
            Pages = Rounded + 1
        Else
            Pages = Rounded
        End If
        For t = 1 To Pages
            Dim hyp As New HyperLink
            hyp.Text = t & "&nbsp;"
            hyp.NavigateUrl = "?page=" & t * 5 - 5
            zz.Controls.Add(hyp)

        Next
        '///////////////////////

        If IsNothing(Request.QueryString("page")) Or Request.QueryString("page") <= 0 Then
            cm.CommandText = "select top 5  * from tb"

            If conn.State = Data.ConnectionState.Closed Then
                conn.Open()
            End If

            Dim dr As OleDbDataReader = cm.ExecuteReader
            Do While dr.Read
                Dim hyp As New HyperLink
                hyp.Text = dr.Item("tname") & "<br />"
                hyp.NavigateUrl = "?tid=" & dr.Item("tid")
                tt.Controls.Add(hyp)
            Loop

        Else

            'SELECT TOP 10 * FROM [Transactions] WHERE [ID] NOT IN (SELECT TOP 10 [ID] FROM [Transactions] ORDER BY [CreatedDate] DESC) ORDER BY [CreatedDate](DESC)
            Dim p As String = Request.QueryString("page")
            cm.CommandText = "SELECT TOP 5 * FROM [tb] WHERE [tid] NOT IN (SELECT TOP " & p & " [tid] FROM [tb])"



            ' cm.CommandText = "select top 5 not in (select top 5  * from tb) * from tb"
            If conn.State = Data.ConnectionState.Closed Then
                conn.Open()
            End If

            Dim dr As OleDbDataReader = cm.ExecuteReader
            Do While dr.Read
                Dim hyp As New HyperLink
                hyp.Text = dr.Item("tname") & "<br />"
                hyp.NavigateUrl = "?tid=" & dr.Item("tid")
                Me.Controls.Add(hyp)
            Loop

        End If
    End Sub
End Class