Analisis singkat tentang tutorial efek pembalikan halaman code_ASP yang bagus

<%PageShowSize=5'Berapa banyak halaman yang ditampilkan per halaman?

MyPageSize=10'Berapa banyak artikel yang ditampilkan pada setiap halaman?

IfNotIsNumeric(Permintaan(halaman))OrIsEmpty(Permintaan(halaman))AtauPermintaan(halaman)<=0Kemudian

Halaman Saya=1

Kalau tidak

Halaman Saya=Int(Abs(Permintaan(halaman)))

Endif

setrs=server.CreateObject(ADODB.RecordSet)

rs.Source=pilih*dariNewsorderbyNewsIDdesc

rs.Openrs.Sumber, samb.,3,1

Jika Notrs.seringkali

rs.PageSize=UkuranPageSaya

MaxPages=rs.PageCount

rs.absolutepage=Halaman Saya

total=rs.RecordCount

%><bodylink=#000000vlink=#000000alink=#000000>

<tablewidth=100%border=0cellpadding=0cellspacing=1bgcolor=#000000style=border-collapse:collapse>

<%

fori=1tors.Ukuran Halaman

ifnotrs.EOFthen

%>

<trbgcolor=#FFFFFF>

<tdwidth=63%height=30><%=trim(rs(judul))%></td>

<%

rs.MoveNext

endif

Berikutnya

%>

</tr></tabel>

<tabel>

<tr>

<tdcolspan=2align=centerheight=30>Total <%=total%> item, nomor saat ini <%=Mypage%>/<%=Maxpages%>

Halaman

<%

url=indeks.asp?

PageNextSize=int((Halaman-1 Saya)/PageShowSize)+1

Halamanhalaman=int((total-1)/rs.UkuranPage)+1

jikaPageNextSize>1lalu

PagePrev=PageShowSize*(PageNextSize-1)

Response.write<aclass=blackhref='&Url&page=&PagePrev&'title='Pvious&PageShowSize&page'>Halaman sebelumnya</a>

Response.write<aclass=blackhref='&Url&page=1'title='Page 1'>Bagian atas halaman</a>

endif

ifMyPage-1>0then

Sebelumnya_Halaman=Halaman Saya-1

Response.write<aclass=blackhref='&Url&page=&Prev_Page&'title='&Prev_Page&page'>Halaman sebelumnya</a>

endif

ifMaxpages>=PageNextSize*PageShowSizethen

PageSizeShow=Ukuran PageShow

Kalau tidak

PageSizeShow=Maxpages-PageShowSize*(PageNextSize-1)

Endif

JikaPageSizeShow<1ThenPageSizeShow=1

forPageCounterSize=1toPageSizeShow

PageLink=(PageCounterSize+PageNextSize*PageShowSize)-PageShowSize

ifPageLink<>MyPageThen

Respon.tulis<aclass=blackhref='&Url&page=&PageLink&'>[&PageLink&]</a>

kalau tidak

Respons.Tulis<B>[&PageLink&]</B>

endif

IfPageLink=MaxPagesThenExitfor

Berikutnya