性功能检查 需要射精吗:分页查询,没有看太懂,能帮解释下吗?

Set rs = Server.CreateObject("ADODB.RecordSet")
Sql = "select * from YuQaIFS_Hotel"
Rs.Open sql,conn,1,3
If not rs.eof then
If not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
Rs.pagesize=15
Rs.AbsolutePage=pagecount
do while not Rs.eof
i=i+1

If i>=Rs.pagesize Then exit do
Rs.movenext
loop
Else

<%
End If
%>
<tr>
<td bgcolor="#E3E3E3" align="center" colspan="8" height="20">
<p>每页显示 <font color="#FF0000"><b><%=Rs.pagesize%></b></font> 条纪录 共有 <font color="#FF0000"><b><%=Rs.recordcount%></b></font> 条纪录 目前在第 <font color="#FF0000"><b><%=CINT(pagecount)%></b></font> 页
<% if pagecount=1 and Rs.pagecount<>pagecount and Rs.pagecount<>0 then%>
<a href="?page=<%=cstr(pagecount+1)%>">下一页</a>
<% end if %>
<% if Rs.pagecount>1 and Rs.pagecount=pagecount then %>
<a href="?page=<%=cstr(pagecount-1)%>">上一页</a>
<%end if%>
<% if pagecount<>1 and Rs.pagecount<>pagecount then%>
<a href="?page=<%=cstr(pagecount-1)%>">上一页</a> <a href="?page=<%=cstr(pagecount+1)%>">下一页</a>
<% end if %>
cint()是四舍五入变为偶数,cstr是转化为string吧.