Не существует нормального метода цикла TD в цикле TR, поэтому количество наборов записей на последней странице не рассчитано.
Однако, когда набор записей недостаточен, он также может автоматически заполнять пустые строки и столбцы. Если есть недостаток, пожалуйста, укажите его, спасибо.
Как использовать очень просто:
Кода -копия выглядит следующим образом:
<%
ShowData ("имя запроса")
Callpagehead (количество рядов, столбцы)
'-------------------------------------------------------------------------------
«Вы можете написать следующий ответ.write () в функцию, чтобы увидеть ваши личные хобби.
Response.write (formatcrtable (ширина таблицы, высота таблицы))
Response.write (pagefoot ())
Callclosedata ()
%>
Функция заключается в следующем:
Кода -копия выглядит следующим образом:
<%
'-------------------------------------------------------------------------------
'Copyright2005byjorkin.llrightSreserved
'-------------------------------------------------------------------------------
Государства
PublicPageno, Cols, Rows, MaxPageno, MaxredCount, MaxPagesize
'-------------------------------------------------------------------------------
Publicfunctionshowdata (sqlstrings)
Setrs = server.createObject ("adodb.recordset")
rs.opensqlstrings, oconn, 1,3
Конечная функция
PublicfunctionClosedata ()
Rs.close
Setrs = ничего
Конечная функция
'Инициализируйте страницу
'Maxrows = максимальное количество строк
'Maxcols = максимальное количество столбцов
'-------------------------------------------------------------------------------
PublicfunctionPageHead (MaxRows, MaxCols)
'-------------------------------------------------------------------------------
Ряды = maxrows
Cols = maxcols
MAXPAGESIZE = 1
maxredcount = 0
maxpageno = 0
pageno = 0
'-------------------------------------------------------------------------------
maxredcount = rs.recordcount
Ifmaxredcount> 0then
maxPagesize = Rows*Cols
maxpageno = cint ((maxredcount+maxpagesize-1)/maxpagesize)
rs.pearsize = maxPagesize
pageno = запрос ("pageno")
Ifisempty (pageno) Ornotisnumeric (pageno) orcint (pageno) <1orcint (pageno)> Rs.pagecountthen
Pageno = 1
Эндиф
rs.absolutepage = pageno
Эндиф
OnerRorResumenext
Конечная функция
'Конец функции страницы
'Нет параметров
'-------------------------------------------------------------------------------
PublicFunctionPagefoot ()