다음 단락은 기본 페이징 코드입니다.
＜% sql = "select …………………………… SQL 문을 생략하십시오 SET RS = server.createObject ("adodb.recordset ") rs. open sql, conn, 1, 1 pages pages rs.eof rs.eof rs.eof rs.pages rsectine rs. 전체 페이지 = requestring ( "page") '브라우저를 통해 전달 된 페이지의 수' 'If isempty (page) 또는 cint (page) ＜ 1 elseif cint (page)에 속한 경우 브라우저를 통해 전달 된 페이지의 수는'elseif cint (page) ＞ allpages = allpages = page reof and page in the page in the the page in the page in the page in the page in the page in the page. rs.close set rs = nothing % %> 인 경우 여기 ……………시스템은 이미 데이터를 페이지에 빠뜨 렸습니다. 이번에 논의 된 페이지 매김 기능의 정의를 살펴 보겠습니다.
＜ ＜% sub pageurl (purl) dim eurl txts = request.servervariables ( "url") txts = left (txts, instrev (txts, "/", len (txts)) -1) Eurl = "http : //"; & request.servervariables ( "server_name") & i = 1 to allpages txt = ""txt = "＜ strong>. cint (page) 그런 다음 txt = txt & "＜/font>"txt = txt & "＜ ＜ ＜ ∥ ∥/strong>"response.write (txt) 다음 끝 sub %>
위의 페이지 매김 함수 코드 복사를 ASP 파일에 저장하십시오. Call ( "/호출 된 파일 이름")이 괜찮을 때마다 호출하는 데 사용하는 페이지에 소개하는 데 사용하려면 사용합니다. 예를 들어, 내 뉴스 페이지에서 호출하려면 <%call ( "/news.asp?")%>입니다.
우리가 방금 본 것은 제한적이며, 이는 첫 번째 코드에서 SQL 쿼리 컨텐츠 및 출력 컨텐츠를 제외하고 레코드 세트를 선언하는 다른 변수를 변경할 수 없음을 의미합니다. 그렇지 않으면 실행할 수 없습니다. 실제로이 프로그램은 관련이 없습니다. 가장 중요한 것은이 페이지 매김 기능을 ASP 잎에서 호출 할 수 있다는 것입니다.