经常用到的分页源码

最新推荐文章于 2024-12-09 00:54:53 发布

aqandes

最新推荐文章于 2024-12-09 00:54:53 发布

阅读量329

点赞数

分类专栏： ASP 文章标签： function

本文链接：https://blog.youkuaiyun.com/aqandes/article/details/96640

版权

ASP 专栏收录该内容

12 篇文章

订阅专栏

<%
?page=clng(request.QueryString("page"))
???set rs=server.CreateObject("adodb.recordset")
???sql="select id,Guestname,Oicq,Email,Web,IP,update,repldate,Replay,Content,Pic,Validate,UserShow from GuestBook order by update desc"
???rs.open sql,conn,1,1
???if rs.eof then
????response.Redirect("GuestBook.asp?action=write")
????response.End()
???end if
???rs.PageSize=10
???pagecount=rs.PageCount
???if page<=0 then page=1
???if page>pagecount then page=pagecount
???if request.QueryString("page")="" then page=1
???rs.AbsolutePage=page
???CountPicNum=1
???do while (not (rs.eof or (CountPicNum>rs.PageSize)))
%>
.....................

???<%
CountPicNum=CountPicNum+1
???rs.movenext
???loop
%>

留言共 <%=rs.recordcount%> 条共分 <%=pagecount%> 页每页 <%=rs.PageSize%> 条首页　上一页　下一页　尾页　转到
???????????????????

????????????????????? <%for i=1 to pagecount?????if page=i then?????? %>???????

<%else%>???????

????????????????????? <%end if?????next?????%>???????????????????
??????????????????? 页

function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}