淺析一個不錯的翻頁效果程式碼_ASP教程

<%PageShowSize=5'每頁顯示多少頁

MyPageSize=10'每頁顯示幾篇文章

IfNotIsNumeric(Request(page))OrIsEmpty(Request(page))OrRequest(page)<=0Then

MyPage=1

Else

MyPage=Int(Abs(Request(page)))

Endif

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=MyPage

total=rs.RecordCount

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

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

<%

fori=1tors.PageSize

ifnotrs.EOFthen

%>

<trbgcolor=#FFFFFF>

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

<%

rs.MoveNext

endif

next

%>

</tr></table>

<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>1then

PagePrev=PageShowSize*(PageNextSize-1)

Response.write<aclass=blackhref='&Url&page=&PagePrev&'title='上&PageShowSize&頁'>上一翻頁</a>

Response.write<aclass=blackhref='&Url&page=1'title='第1頁'>頁首</a>

endif

ifMyPage-1>0then

Prev_Page=MyPage-1

Response.write<aclass=blackhref='&Url&page=&Prev_Page&'title='第&Prev_Page&頁'>上一頁</a>

endif

ifMaxpages>=PageNextSize*PageShowSizethen

PageSizeShow=PageShowSize

Else

PageSizeShow=Maxpages-PageShowSize*(PageNextSize-1)

Endif

IfPageSizeShow<1ThenPageSizeShow=1

forPageCounterSize=1toPageSizeShow

PageLink=(PageCounterSize+PageNextSize*PageShowSize)-PageShowSize

ifPageLink<>MyPageThen

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

else

Response.Write<B>[&PageLink&]</B>

endif

IfPageLink=MaxPagesThenExitfor

Next