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