星展测控 规模:asp分页显示问题?

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/01 10:32:14
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

<td bgcolor="#E3E3E3" align="center" colspan="8" height="20" width="622">
<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 %>

request("page"))是asp里一方法吗?
request("page"))是asp里一方法吗, Rs.recordcount也是一方法吗?
pagecount=cint(request("page")) ,cint是什么函数?

是里面的一种方法cint是一个把page这个字符型的转化 成整型的,如果你对这些属性不知道的话我推荐一个网站那里有所有的vb的属性方法和函数,地址是:
http://www.chinavb.net/vbs/?url=/vbs/html/vbsobjs.htm