asppaginationcodecommonlyused.txt

ASP常用分页代码,可以让初学者和新手快速了解ASP实现分页的功能

Rs1=conn.execute(sql) 
Rs1.PageSize = 16'一页的条数 
RsCount = Rs1.RecordCount 
PageCount = Rs1.PageCount 
If Page = "" Then 
Page = 1 
End If 
If IsNumeric(Page) Then 
Page = int(Page) 
End If 
If Page < 1 Then 
Page = 1 
End If 
If Page > Rs1.PageCount Then 
Page = Rs1.PageCount 
End If 
If Page <= Rs1.PageCount AND Rs1.PageCount > 0 Then 
Rs1.AbsolutePage = Page 
End If 
If Rs1.RecordCount > 0 Then 
For i = 1 To 16 
If Rs1.EOF Then 
Exit For 
End If

%> 
数据输出部分 
<form action="页面.asp?Page=<%=Page%>"> 
共<%=RsCount%>个记录,第<%=Page%>页/共<%=PageCount%>页 
<%If PageCount>1 Then%> 
<% If Page > 1 Then %> 
<a href="页面.asp?Page=1">首页</a> <a href="页面.asp?Page=<%=Page-1%>">上一页</a> 
<% Else %> 
首页 上一页 
<% End If %> 
<% If Page < PageCount Then %> 
<a href="页面.asp?Page=<%=Page%+1>>下一页</a> <a href="页面.asp?Page=<%=PageCount%>">尾页</a> 
<% Else %> 
下一页 尾页 
<% End If %> 
<%End If%> 
转到： 
<input name="page" type="text" id="page" size="4">页 
<input type="submit" name="Submit22" value="go"> 
<input type="hidden" name="Site_ID2" value="<%=Site_ID%>"> 
<input type="hidden" name="SearchText2" value="<%=Server.URLEncode(SearchText)%>"> 
<input type="hidden" name="msgtype" value="<%=msgtype%>">

</div> 
</form>