page1.asp

后台管理系统

 <%
 '===========================================================
	'useage:结合head.asp使用
	'Attention:包含后加上for i=0 to x
	'Copyright:	蔡志云
	'UpDateTime:	20:43 2006-9-15
'=============================================================
 if rs.recordcount=0 then 
 %>
 <table cellpadding="2" cellspacing="1" border="0" width="96%" class="tableBorder" align=center>
		<tr>
		<td height="80" align=center bgcolor="#eeeee6" class="tdbg">暂无记录</td>
		</tr>
</table><br /><br /><br /><br />
		 <% else
		 if request("pagesizeme")="" then
		 rs.pagesize=15
		 else
	  		 rs.pagesize=request("pagesizeme")
			 end if
'每页记录条数
			iCount=rs.RecordCount'记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	%>