www.gusucode.com > 芝麻屋小小留言本 2.0码程序 > page.asp

    	   
<%
rs.pagesize=5
pagecount=rs.pagecount
page=int(request.QueryString("page"))

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=?page=1>首页</a> "
			response.write "<a href=?page="+cstr(Page-1)+">上一页</a> "
		  else
			Response.Write "首页 上一页 "
			
		end if
		
		if Page<>pagecount then
			response.write "<a href=?page="+cstr(Page+1)+">下一页</a> "
			response.write "<a href=?page="+cstr(pagecount)+">尾页</a> "
		  else
			Response.Write "下一页 尾页 "
		end if
	%>