www.gusucode.com > 芝麻屋小小留言本 2.0码程序 > admin/pgso.asp
<% rs.pagesize=10 pagecount=rs.pagecount page=int(request.QueryString("page")) bt=session("bt") if page<1 then page=1 if request.QueryString("page")="" then page=1 end if rs.AbsolutePage=page %> <% if Page<>1 then response.write "<a href=?so="+cstr(bt)+"&page=1>首页</a> " response.write "<a href=?so="+cstr(bt)+"&page="+cstr(Page-1)+">上一页</a> " '******** else Response.Write "首页 上一页 " end if if Page<>pagecount then response.write "<a href=?so="+cstr(bt)+"&page="+cstr(Page+1)+">下一页</a> " response.write "<a href=?so="+cstr(bt)+"&page="+cstr(pagecount)+">尾页</a> " else Response.Write "下一页 尾页 " end if %> <% for i=1 to pagecount %> <% if cstr(i)=request.querystring("page") then response.write(cstr(i)) else response.write" <a href=?so="+cstr(bt)+"&page="+cstr(i)+">"+cstr(i)+"</a> " end if %> <% next %>