��

nothing4u · 13-12-2007, 01:54 PM

��

�� html ��

��

�� 10 ��

�� 10
�� 10 ��

��:

Dim RequestNumberInOnePageV As Integer = 8

��

��:

Dim PnIdV As Integer = Request.QueryString("pid")

�� 1 ��

��:

        If PnIdV = 0 Then
            PnIdV = 1
        End If

�� DataSet �� dsMatch
�� sql

�� (�� )

��

��:

Dim RecordsNumberV As Integer = dsMatch.Tables(0).Rows.Count

�� 10 �� 12 �� 12 �� 10 �� 1 �� 1 �� 2

��

��:

'����� ��� ������� ���� ��� ��� ����� ������� �����
        Dim RecordsNumberV As Integer = dsMatch.Tables(0).Rows.Count
        Dim PagesNumberV As Integer = 0
        If RecordsNumberV <= RequestNumberInOnePageV Then
            PagesNumberV = 1
        Else
            PagesNumberV = Math.Round(RecordsNumberV / RequestNumberInOnePageV) + 1
        End If

        '��� ������� ���� ��� ��� ����� ������� ����
        Dim ALLPageNumber As Integer = PagesNumberV

��

��

��:

If PnIdV > PagesNumberV Then
            Response.Redirect("aggnews.aspx?pid=" & PagesNumberV)
            Exit Sub
        End If

�� (�� ) ��

��:

If Page.IsPostBack = False Then
            '����� ��� ������� �� ����� �������
            Dim Ir As Integer = 0
            For Ir = PagesList.Items.Count - 1 To 0 Step -1
                PagesList.Items.RemoveAt(Ir)
            Next
            Dim Il As Integer = 0
            For Il = 1 To PagesNumberV
                PagesList.Items.Add(New ListItem("Page: " & Il, Il))
            Next
            PagesList.SelectedValue = PnIdV
        End If

��

��:

'����� ����� ������ ������� ���� ���� ����� �� ��� ������
        Dim StartReV As Integer = RecordsNumberV - ((PnIdV * RequestNumberInOnePageV) - RequestNumberInOnePageV)
        Dim EndReV As Integer = 0
        If StartReV > RequestNumberInOnePageV Then
            EndReV = StartReV - RequestNumberInOnePageV
        Else
            EndReV = 0
        End If

�� StartReV ��
� EndReV ��

��

�� 0 ��

��

��:

Dim Ip As Integer = 0
For Ip = StartReV - 1 To EndReV Step -1
��� ������� �������� �������
Next

��

��:

Dim PageIdV As Long = PagesList.SelectedItem.Value
        Response.Redirect("aggnews.aspx?pid=" & PageIdV)

��

��

�� · 13-12-2007, 07:20 PM

��

��

�� · 13-12-2007, 07:32 PM

��

��:

�� 10 ��

��
��
��
��

nothing4u · 22-12-2007, 06:27 PM

��:

��

��

��

��

nothing4u · 22-12-2007, 06:30 PM

��:

��

��

��
��
��
��

��
��

��