การวิเคราะห์โดยย่อเกี่ยวกับบทช่วยสอนเอฟเฟกต์การเปลี่ยนหน้าที่ดี code_ASP

<%PageShowSize=5'มีกี่หน้าที่แสดงต่อหน้า?

MyPageSize=10'มีกี่บทความที่แสดงในแต่ละหน้า?

IfNotIsNumeric(คำขอ(หน้า))OrIsEmpty(คำขอ(หน้า))OrRequest(หน้า)<=0แล้ว

หน้าของฉัน=1

อื่น

MyPage=Int(Abs(คำขอ(หน้า)))

เอนดิฟ

setrs=server.CreateObject (ADODB.RecordSet)

rs.Source=select*fromNewsorderbyNewsIDdesc

rs.Openrs.Source,conn,3,1

IfNotrs.eofthen

rs.PageSize=MyPageSize

MaxPages=rs.PageCount

rs.absolutepage=หน้าของฉัน

รวม=rs.RecordCount

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

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

-

fori=1tors.PageSize

ifnotrs.EOFแล้ว

-

<trbgcolor=#FFFFFF>

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

-

rs.MoveNext

สิ้นสุด

ต่อไป

-

</tr></table>

<ตาราง>

<tr>

<tdcolspan=2align=centerheight=30>ทั้งหมด <%=total%> รายการ จำนวนปัจจุบัน <%=Mypage%>/<%=Maxpages%>

หน้าหนังสือ

-

url=index.asp?

PageNextSize=int((MyPage-1)/PageShowSize)+1

Pagetpage=int((total-1)/rs.PageSize)+1

ifPageNextSize>1จากนั้น

PagePrev=PageShowSize*(PageNextSize-1)

Response.write<aclass=blackhref='&Url&page=&PagePrev&'title='Previous&PageShowSize&page'>หน้าก่อนหน้า</a>

Response.write<aclass=blackhref='&Url&page=1'title='Page 1'>ด้านบนของหน้า</a>

สิ้นสุด

ifMyPage-1>0แล้ว

Prev_Page=หน้าของฉัน-1

Response.write<aclass=blackhref='&Url&page=&Prev_Page&'title='&Prev_Page&page'>หน้าก่อนหน้า</a>

สิ้นสุด

ifMaxpages>=PageNextSize*PageShowSizethen

PageSizeShow=ขนาดเพจโชว์

อื่น

PageSizeShow=Maxpages-PageShowSize*(PageNextSize-1)

เอนดิฟ

IfPageSizeShow<1ThenPageSizeShow=1

forPageCounterSize=1toPageSizeShow

PageLink=(PageCounterSize+PageNextSize*PageShowSize)-PageShowSize

ifPageLink<>MyPageThen

Response.write<aclass=blackhref='&Url&page=&PageLink&'>[&PageLink&]</a>

อื่น

การตอบกลับเขียน<B>[&PageLink&]</B>

สิ้นสุด

IfPageLink=MaxPagesThenExitfor

ต่อไป