ASP 프로젝트의 공개 페이지 회전 모듈

저자：Eve Cole 업데이트 시간：2025-04-03 23:00:03

대규모 ASP 프로젝트에서 많은 페이지에는 페이지 회전 기능이 포함됩니다. 각 페이지가 페이지 전환 프로그램을 작성하는 경우, 이러한 작업은 작업 효율성을 줄이고 프로젝트의 모듈화에 도움이되지 않으며 코드를 재사용 할 수 없습니다. 따라서 페이지 회전과 같은 함수를 모듈화해야합니다.

디자인 방법 :

1.이 모듈을 호출 할 때는 레코드 세트와 각 페이지에 표시된 레코드 수만 전달하면됩니다.

2. 링크를 클릭하여 페이지를 돌리거나 페이지 번호를 직접 입력하고 누른 후 페이지를 돌릴 수 있습니다.

3. 파일 이름을 고려하지 마십시오. 프로그램은 회전 할 때마다 현재 페이지에있을 수 있습니다.

위의 세 가지 질문을 통해 공개 페이지 회전 모듈을 시작할 수 있습니다.

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'◆ 모듈 이름 : 공개 페이지 회전 모듈

'◆ 파일 이름 : Turnpage.asp

'◆ 들어오는 매개 변수 : RS_TMP (레코드 세트), 페이지 규모 (페이지 당 표시되는 레코드 수)

'◆ 출력 : 레코드 세트 페이지 회전 디스플레이 기능

subturnpage (byrefrs_tmp, pagesize) 'rs_tmp 레코드 세트; 페이지 당 페이지 당 표시되는 레코드 수를 페이지 화하십시오.

dimtotalpage'total 페이지

Dimpageno '현재 어떤 페이지가 표시되는지

DimRecordCount'ToTal 레코드 수

rs_tmp.pagesize = pagesize

recordCount = rs_tmp.recordCount

TotalPage = int (RecordCount/Pagesize*-1)*-1

pageno = request.querystring ( "pageno")

'점프 할 페이지 수를 직접 입력하십시오.

ifrequest.form ( "pageno") <> ""thenpageno = request.form ( "pageno")

'페이지가 선택되지 않으면 첫 페이지가 기본적으로 표시됩니다.

ifpageno = ""thenpageno = 1

ifrecordCount <> 0then

rs_tmp.absolutepage = pageno

endif

'모든 페이지가 현재 페이지에서 수행되도록 현재 파일 이름을 가져옵니다.

Dimfilename, 위치

filename = request.servervariables ( "script_name")

Postion = Instrev (filename, "/")+1

'페이지 전환 링크가 현재 파일을 가리 키도록 현재 파일 이름을 가져옵니다.

filename = mid (filename, postion)

<tr>

<tdalign = 왼쪽> 총 페이지 수 : <fontColor =#ff3333> <%= TotalPage%> </font> 페이지

현재 페이지 <fontcolor =#ff3333> <%= pageno%> </font>

<%ifrecordCount = 0ortotalPage = 1then

응답. "홈 | 이전 페이지 | 다음 페이지 | 마지막 페이지"

다른%>

<ahref = "<%= filename%>? pageno = 1"> home | </a>