浅析一个不错的翻页效果代码

ASP教程 2025-08-29

推荐:解读一个图形化输入日期的方法代码
结果: !doctypehtmlpublic-//W3C//DTDHTML4.0 html head titleNewDocument/title metaname=Generatorcontent=EditPlus metaname=Authorcontent= metaname=Keywordscontent= metaname=Descriptioncontent= /head body !--

<%

rs.MoveNext

endif

next

%>

<%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

%>

<%

fori=1tors.PageSize

ifnotrs.EOFthen

%>

<%=trim(rs(title))%>

共<%=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上一翻页

Response.write页首

endif

ifMyPage-1>0then

Prev_Page=MyPage-1

Response.write上一页

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[&PageLink&]

else

Response.Write[&PageLink&]

endif

IfPageLink=MaxPagesThenExitfor

Next

分享:解读ASP常用函数列表
1数学函数 1.1 取整函数 int(x) 取不大于x的最大整数。 fix(x) 舍去x的小数部分。 1.2 绝对值函数 abs(x) 求x的绝对值。 1.3 符号函数 sgn(x) 求x的符号代码,x为负数时函数值为-1 。 1.4 平方根函数 sqr(x) 求x的算术平方根,x必须大于0 。 1.5 指数函数 ex

共2页上一页12下一页