우리는 이미 이전에 Pagination Program에 대해 이야기했습니다. 여기서 우리는 당신에게 하나를 제공하고 그것을 분석하면 새로운 이익을 얻을 수 있습니다.
코드 사본은 다음과 같습니다.
<%
'다음 프로그램은 내 웹 사이트의 프로그래밍 기술 기사 시스템 코드의 일부이며, 페이지 매김 강조에 중점을 두므로 다른 쓸모없는 코드가 지워지면 수정하여 적용 할 수 있습니다.
OnErrorResumenext '사용자는 사용자가 URL을 의지하여 오류를 일으키는 것을 방지합니다.
ifrequest.querystring ( "page") = "" "thepage = 1 : else : page = cint (request.querystring ("page ")) ''URL 페이지에 대한 페이지 수 =?
setlink1 = server.createobject ( "adodb.connection") '연결 데이터베이스
Link1. "제공자 = microsoft.jet.oledb.4.0; dataSource ="& server.mappath ( "database 1.mdb")
setrs = server.createobject ( "adodb.recordset")
Rs. "Table 1에서 선택*", Link1,1,1 '이 문장은 레코드 세트의 커서, 페이지 당 저장된 레코드 수 및 현재 페이지 설정을 정의합니다.
Rs.Pagesize = 13
rs.AbsolutePage = 페이지
iferr.number <> 0then ''레코드 오류없이 URL 및 데이터베이스를 악의적으로 수정하는 것을 방지합니다.
"예외 오류가 발생했습니다"응답
응답. 엔드
endif
%>
<basetarget = '_ blank'> <!-새 창에서 콘텐츠가 팝업되도록합니다
<TableBorder = 1>
<%
fori = 0tors.pagesize-1 '특정 데이터 컨텐츠를 표시합니다. I+(페이지*13-13) +1이 솔루션은 페이징 후 특정 번호를 보여줍니다.
ifrs.eofthenexitfor
response.write "<tr> <td>"& i+(페이지*13-13) +1 & ": <ahref = '"& rs ( "connect") & "'> & rs ("저자 ") &"</a> </td> </tr> "
rs.movenext
다음
%>
<tr> <tdalign = right>
<basetarget = '_ top'> <!-새 창에서 페이징 연결이 팝업되지 않도록합니다. 다음은 제가 집중하고 싶은 완벽한 페이징 프로그램의 완전한 프로그램입니다. 필요에 따라 수정할 수 있습니다
<%
pagelen = split (request.servervariables ( "query_string"), "&") 'URL 이후에 매개 변수 URL을 얻습니까? 숫자
ifubound (pagelen) <1then'1 xxx.asp? page = 1 또는 xxx.asp 인 경우 표준 페이지 매김 방법을 사용하십시오.
ifpage> 1thenResponse.write "<ahref = 'A.asp? page = 1'> home </a> <ahref = 'A.asp? page ="& page-1 & "'> 이전 페이지 </a>": else.write "homepage"
ifpage <rs.pagecountThenResponse.write "<ahref = 'A.asp? page ="& page+1 & "'> 다음 페이지 </a> <ahref = 'A.asp? page ="& rs.pagecount & "'> 마지막 페이지 </a>": else : respone.write "next page"
fori = 1tors.pagecount
ifi = pagethenresponse.writei & "": else : response.write "<ahref = 'a.asp? page ="& i & "'>"& i & "</a>"