ASP 빠른 페이지 매김 코드

저자：Eve Cole 업데이트 시간：2025-08-15 18:16:02

권장 : ASP 파일 작동 함수 세트
% '=================================================================================================================== Zhang Hui'프로그래머 코드 : wj008 '컴파일 된 시간 : 2008 년 6 월 1 일 : www.wj008.net'www.wj008.net 'www.wj008.net을 사용합니다. 주소 '========================================================================================= ======================================================================================

<%@ language = vbscript codepage = 936%>

옵션 명시 적 '변수의 강제 정의

DIM IDCOUNT'TOTAL 레코드 수

DIM 페이지 당 페이지 당시

Dim Pagec'total 페이지 수

희미한 페이지 '페이지 번호

Dim Pagenc '페이지 당 표시되는 페이지 번호 = pagenc*2+1

pagenc = 2

Dim PagenMax '페이지 당 표시되는 최대 페이지 수

Dim Pagenmin '페이지 당 표시되는 최소 페이지 수

page = clng (요청 (페이지))

프로그램 시작의 시작 시간

Dim Endt 'Ending Program의 시간

Dim Datafrom 'Datatable Name

DataFrrom = 표 1

Dim Conn, Rs

DIM DATAPATH '데이터베이스 패스

이 페이지에 필요한 dim sqlid 'id

이 페이지의 드러스를 어둡게합니다

나 자신 = request.servervariables (path_info)

Dim SQL'SQL 문

Dim Taxis의 정렬 진술

'택시 = Id asc'긍정적 인 정렬

택시 = id desc 'ververted 정렬에 의한 주문

Loop에 사용되는 Dim I 'Integer

start = timer ()

datapath = db.mdb '데이터베이스

페이지 = 30

'데이터베이스를 열기위한 연결

희미한 DB

db = db.mdb '데이터베이스 경로와 이름을 정의합니다

set conn = server.createobject (adodb.connection)

conn.open 제공자 = microsoft.jet.oledb.4.0; data source = & server.mappath (db)

err.number <> 0 인 경우

응답. 데이터베이스 링크 오류!

응답 ()

끝 If

'총 레코드 수를 얻으십시오

sql = [& datafrom &]에서 idcount로 count (id)를 선택하십시오.

set rs = server.createobject (adodb.recordset)

Rs. Open SQL, Conn, 0,1

idcount = rs (idcount) '총 레코드 수를 얻으십시오

if (idcount> 0) 그런 다음 총 레코드 수 = 0이면 처리되지 않습니다.

if (idcount mod pages = 0)이면 총 레코드 수가 각 페이지의 나머지 수로 나누어지면 = 각 페이지의 총 레코드 수/ + 1

pagec = int (idcount/pages) '총 페이지 수를 얻습니다

또 다른

pagec = int (idcount/pages)+1 '총 페이지 수를 얻습니다

끝 If

'이 페이지에 필요한 ID를 얻으십시오 ======================================================================

'모든 레코드 읽기'ID 값은 ID 만 있으므로 속도가 매우 빠르기 때문입니다.

SQL = [& datafrom &] 및 택시에서 ID를 선택하십시오

set rs = server.createobject (adodb.recordset)

Rs. Open SQL, Conn, 1,1

rs.pagesize = pages '페이지 당 표시되는 레코드 수

Page <1 인 경우 페이지 = 1입니다

page> pagec 인 경우 page = pagec

pagec> 0이면 rs.AbsolutePage = page

i = 1 ~ rs.pagesize의 경우

rs.eof라면 종료하십시오

if (i = 1) 그러면

sqlid = rs (id)

또 다른

sqlid = sqlid &, & rs (id)

끝 If

rs.movenext

'이 페이지를 얻는 데 필요한 ID가 필요합니다

끝 If

<! doctype html public- // w3c // dtd html 4.01 Transitional // en>

<html>

<헤드>

</head>

<테이블 폭 = 100% 높이 = 100% 테두리 = 0 CellPadding = 20 CellPacing = 0>

<tr>

<tr>

<tr>

</tr>

</테이블>

<테이블 너비 = 90% 테두리 = 0 Align = Center CellPadding = 3 CellPacing = 1 BGCOLOR = CCCCCCCC Class = ZW>

</tr>

if (idcount> 0 및 sqlid <>) 그러면 총 레코드 수 = 0이면 처리되지 않습니다.

'이 페이지의 언어로 데이터를 선택 하고이 페이지에 필요한 데이터 만 읽으려면 속도가 빠릅니다.

SQL = [id], [aaaa], [bbbb], [cccc]에서 [& datafrom &] id in (& sqlid &) 및 택시에서 선택

set rs = server.createobject (adodb.recordset)

Rs. Open SQL, Conn, 0,1

(rs.eof가 아님) '데이터를 테이블에 채 웁니다

</tr>

rs.movenext

향하게 하다

</테이블>

<테이블 너비 = 90% 테두리 = 0 ALIGN = CENTRE CELLPADDING = 2 CellPacing = 0 Class = ZW>

<td align = 왼쪽> 총 <%= idcount%> 레코드, <%= page%> /<%= pagec%>. color =#ff6600> <%= pages%> 레코드. </td>

</tr>

</테이블>

<테이블 너비 = 90% 테두리 = 0 ALIGN = CENTRE CELLPADDING = 2 CellPacing = 0 Class = ZW>

'시작하도록 페이지 번호를 설정합니다 =================================================================

pagenmin = page-pagenc '페이지 번호 시작 값을 계산합니다

pagenmax = page+pagenc '페이지 번호의 최종 값을 계산합니다

if (pagenmin <1) 페이지 번호 시작 값이 1보다 작은 경우 = 1

pagenmin = 1

끝 If

if (page> 1) 그러면 페이지 번호가 1보다 크면 (첫 번째 페이지) 표시됩니다.

response.write (<a href = '& conly &? page = 1'> Page 1 </a>)

끝 If

if (pagenmin> 1) 그러면 페이지 번호 시작 값이 1보다 크면 표시됩니다 (업데이트)

response.write (<a href = '& conly &? page = & page- (pagenc*2+1) &'> Advance </a>)

끝 If

if (pagenmax> pagec) 그러면 페이지 번호의 최종 값이 총 페이지 수보다 큰 경우 = 총 페이지 수입니다.

pagenmax = pagec

끝 If

i = pagenmin to pagenmax '루프 출력 페이지 번호

if (i = page) 그러면

response.write ( & i & )

또 다른

response.write ([<a href = & 나 자신 &? page = & i &> & i & </a>])).

끝 If

if (pagenmax <pagec) 그러면 페이지 번호의 최종 값이 총 페이지 수보다 작 으면 표시됩니다 (이후)

response.write (<a href = '& 나 자신 &? page = & page+(pagenc*2+1) &'> 이후 </a>)

끝 If

if (page <pagec) 그런 다음 '페이지 번호가 총 페이지 수보다 낮 으면 마지막 페이지가 표시됩니다 (마지막 페이지)

response.write (<a href = '& conly &? page = & pagec &'> 마지막 페이지 </a>)

끝 If

'페이지 번호를 끝으로 설정하십시오 =========================================================

%> <스크립트 언어 = JavaScript>

<!-

함수 gopage () {

Window.location.href = <%= 나 자신의%>? page =+ page.value;

}

//->

</스크립트>

가십시오

<입력 이름 = 페이지 유형 = 텍스트 값 = <%= page%> size = 5> 페이지

<입력 유형 = 버튼 이름 = 제출 값 = 점프> </td>

</tr>

</테이블>

끝 If

<테이블 너비 = 90% 테두리 = 0 ALIGN = CENTRE CELLPADDING = 2 CellPacing = 0 Class = ZW>

<tr>

endt = 타이머 ()

Rs.Close

RS = 아무것도 설정하지 않습니다

conn.close

Conn = 아무것도 설정하지 않습니다

<%= FormatNumber ((Endt-Start)*1000,3)%> MS

</tr>

</테이블>

</td>

</tr>

</테이블> </td>

</tr>

</테이블>

</body>

</html>

공유 : Fckeditor 사용을위한 ASP의 설정 팁
1. 기본 언어로 fckconfig.js 파일을 엽니 다 (아래 Fckeditor 폴더와 관련하여 아래 동일)를 열고 자동 감지 언어를 감지하지 않고 기본 언어를 단순화 된 중국어로 변경하십시오. fckconfig.defaultlanguage = 'zh-cn'; 2. 글꼴 목록에서 FCKCONFIG.JS 파일을 엽니 다.