UC知道asp分页显示问题?
来源：百度知道 编辑：UC知道 时间：2024/05/06 07:01:20
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> 页
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> 页
是里面的一种方法cint是一个把page这个字符型的转化 成整型的,如果你对这些属性不知道的话我推荐一个网站那里有所有的vb的属性方法和函数,地址是:
http://www.chinavb.net/vbs/?url=/vbs/html/vbsobjs.htm