
关于ASP分页问题:怎么在我这个程序中实现显示共有几条记录
<%rs.pagesize=10page1=clng(request("page1"))ifpage1<1thenpage1=1rs.absolutepage=page1...
<% rs.pagesize=10
page1=clng(request("page1"))
if page1<1 then page1=1
rs.absolutepage=page1
for i=1 to rs.pagesize
%>
<tr>
<td width="71" align="center"><%=rs("user_number")%></td>
<td width="78" align="center"><a href=viewuser.asp?id=<%=rs("id")%>><%=rs("user_name")%></a></td>
<td width="65" align="center"><%=rs("user_sex")%></td>
<td width="78" align="center"><%=rs("user_class")%></td>
<td width="110" align="center"><%=rs("user_time")%></td>
<td width="110" align="center"><%=rs("user_bedroomphone")%></td>
<td width="71" align="center"><a href=mod_info.asp?id=<%=rs("id")%>>修改</a></td>
<td width="71" align="center"><a href=delete_info.asp?id=<%=rs("id")%>>删除</a></td>
</tr>
<% rs.movenext
if rs.eof then exit for
next
%>
</table>
</table>
</div>
<table width="748" border="0" align="center">
<tr>
<td height="17">
<div align="right">
<input type="hidden" name="page1" value="<%=NoncePage%>">
<%
if pages<>1 then
response.Write(" <a href="&path&"?page1=1>首页</a>")
response.Write(" <a href="&path&"?page1="&(page1-1)&" >上一页</a>")
end if
if page1<>rs.pagecount then
response.Write(" <a href="&path&"?page1="&(page1+1)&">下一页</a>")
response.Write(" <a href="&path&"?page1="&rs.pagecount&">尾页</a>")
end if
response.Write(" 当前 <font color='#FF0000'>"&page1&"/"&rs.pagecount&"</font> 页")
rs.close
Set rs=Nothing
%>
</table>
</center>
</body>
</html> 展开
page1=clng(request("page1"))
if page1<1 then page1=1
rs.absolutepage=page1
for i=1 to rs.pagesize
%>
<tr>
<td width="71" align="center"><%=rs("user_number")%></td>
<td width="78" align="center"><a href=viewuser.asp?id=<%=rs("id")%>><%=rs("user_name")%></a></td>
<td width="65" align="center"><%=rs("user_sex")%></td>
<td width="78" align="center"><%=rs("user_class")%></td>
<td width="110" align="center"><%=rs("user_time")%></td>
<td width="110" align="center"><%=rs("user_bedroomphone")%></td>
<td width="71" align="center"><a href=mod_info.asp?id=<%=rs("id")%>>修改</a></td>
<td width="71" align="center"><a href=delete_info.asp?id=<%=rs("id")%>>删除</a></td>
</tr>
<% rs.movenext
if rs.eof then exit for
next
%>
</table>
</table>
</div>
<table width="748" border="0" align="center">
<tr>
<td height="17">
<div align="right">
<input type="hidden" name="page1" value="<%=NoncePage%>">
<%
if pages<>1 then
response.Write(" <a href="&path&"?page1=1>首页</a>")
response.Write(" <a href="&path&"?page1="&(page1-1)&" >上一页</a>")
end if
if page1<>rs.pagecount then
response.Write(" <a href="&path&"?page1="&(page1+1)&">下一页</a>")
response.Write(" <a href="&path&"?page1="&rs.pagecount&">尾页</a>")
end if
response.Write(" 当前 <font color='#FF0000'>"&page1&"/"&rs.pagecount&"</font> 页")
rs.close
Set rs=Nothing
%>
</table>
</center>
</body>
</html> 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询