루프 TR 내에 TD를 루핑하는 일반적인 방법은 없으므로 마지막 페이지의 레코드 세트 수는 계산되지 않습니다.
그러나 레코드 세트가 충분하지 않으면 빈 행과 열을 자동으로 채울 수도 있습니다. 결함이 있다면, 감사합니다. 감사합니다.
사용 방법은 매우 간단합니다.
코드 사본은 다음과 같습니다.
<%
showdata ( "쿼리 이름")
CallPagehead (행 번호, 열)
'---------------------------------------------------------------------------------------------
'다음 응답을 작성하여 기능에 다음 응답을 작성하여 개인 취미를 볼 수 있습니다.
response.write (Formatcrtable (테이블 너비, 테이블 높이))
response.write (pagefoot ())
callclosedata ()
%>
함수는 다음과 같습니다.
코드 사본은 다음과 같습니다.
<%
'---------------------------------------------------------------------------------------------
'Copyright2005byjorkin.allrightsreserved
'---------------------------------------------------------------------------------------------
publicrs
publicpageno, cols, 행, maxpageno, maxredcount, maxpagesize
'---------------------------------------------------------------------------------------------
PublicFunctionShowData (sqlstrings)
setrs = server.createobject ( "adodb.recordset")
Rs.Opensqlstrings, OCONN, 1,3
최종 기능 장애
PublicFunctionClosedata ()
Rs.Close
setrs = 아무것도
최종 기능 장애
'페이지 매김 초기화
'maxrows = 최대 행 수
'maxcols = 최대 열 수
'---------------------------------------------------------------------------------------------
PublicFunctionPagehead (Maxrows, Maxcols)
'---------------------------------------------------------------------------------------------
행 = 맥아우
cols = maxcols
maxpagesize = 1
maxredcount = 0
maxpageno = 0
pageno = 0
'---------------------------------------------------------------------------------------------
maxRedCount = rs.RecordCount
ifmaxRedCount> 0then
maxpagesize = 행*cols
maxpageno = cint ((maxredcount+maxpagesize-1)/maxpagesize)
rs.pagesize = maxpagesize
pageno = 요청 ( "pageno")
ifisempty (pageno) Ornotisnumeric (pageno) orcint (pageno) <1orcint (pageno)> rs.pagecountthen
pageno = 1
endif
rs.AbsolutePage = pageno
endif
onerrorresumenext
최종 기능 장애
'페이지 기능의 끝
'매개 변수 없음
'---------------------------------------------------------------------------------------------
publicfunctionpagefoot ()