Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Обсуждение нашего сайта (архив) [закрыт] [закрыт для гостей] / Неверное отображение ссылок при 8 страницах / 2 сообщений из 2, страница 1 из 1
31.07.2005, 17:34
    #1750391
Sergey Ch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неверное отображение ссылок при 8 страницах
Не знаю, был ли докалад уже об этом. В принципе, это не мешает работать :)))
bug.gif
...
Рейтинг: 0 / 0
31.07.2005, 17:48
    #1750405
Sergey Ch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Неверное отображение ссылок при 8 страницах
На всякий случай приведу код со своего сайта, может поможет:
Код
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
    '*** function which creates pagers navigation
    ' it returns table in HTML
    Private Function BuidPageNavigation(ByVal URL1 As String, ByVal numPages As Integer, ByVal ActualPage As Integer)   ' , ByVal AllReplies as Integer

      Dim intMaxURLLinks As Integer = _
  Configuration.ModuleConfig.GetSettings().QtyUrlTopics

      Dim tmpstring As String
      tmpstring = "<table width=100% cellspacing=1 cellpadding=0 border=0 height=12>"
      tmpstring = tmpstring + "<tr><td align='left' valign='baseline'>"

      Dim i, intstart, intfinish As Integer
      Select Case numPages

        Case Is <= 1
          Return " "

        Case Is >= (ActualPage - intMaxURLLinks / 2), Is <= (ActualPage + intMaxURLLinks / 2)

          If (ActualPage - intMaxURLLinks / 2) <= 2 Then
            intstart = 1
          Else
            intstart = (ActualPage - intMaxURLLinks / 2)
            tmpstring = tmpstring + "<a href=" + URL1 + "&pgf=1" + ">1</a> ... " ' this is as usual the first page
          End If

          If (ActualPage + intMaxURLLinks / 2) >= numPages - 1 Then
            intfinish = numPages
          Else
            intfinish = (ActualPage + intMaxURLLinks / 2)
          End If
          For i = intstart To intfinish
            If i = ActualPage Then
              tmpstring = tmpstring + "[" + Convert.ToString(i) + "] "
            Else
              tmpstring = tmpstring + "<a href=" + URL1 + "&pgf=" + Convert.ToString(i) + ">" + Convert.ToString(i) + "</a>" + " "
            End If
          Next
          If (ActualPage + intMaxURLLinks / 2) >= (numPages - 1) Then
          Else
            tmpstring = tmpstring + " ... <a href=" + URL1 + "&pgf=" + Convert.ToString(numPages) + ">" + Convert.ToString(numPages) + "</a> " ' this is as usual the last page
          End If
        Case Else
      End Select
      tmpstring = tmpstring + "</td></tr></table>"
      Return tmpstring
    End Function
...
Рейтинг: 0 / 0
Форумы / Обсуждение нашего сайта (архив) [закрыт] [закрыт для гостей] / Неверное отображение ссылок при 8 страницах / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]