ASP 分页显示数据的问题
它总是提示我page,pagecount类型不匹配，怎么办啊？用int（page），cint（page）都不行啊...
它总是提示我page,pagecount类型不匹配，怎么办啊？用int（page），cint（page）都不行啊
展开
1个回答
展开全部
<!--#include file="conn.asp"--> '此为连接数据库页面
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>信息管理</title>
<style type="text/css">
<!--
body,td,th {
font-size: 9pt;
}
-->
</style></head>
<body>
<%
Page=clng(request("page")) '接收page变量
'============以下三行,需要修改=============
page_n="admin_news.asp" '当前需分页的页面
num=15 '每页显示5条
sql="select * from news_table order by id desc" '要进行分页的数据表
'==========================================================
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.Write("<div align='center'>暂时没有信息!</div>")
response.end()
else
rs.PageSize=num '1 第页显示的条数
Pages=rs.Pagecount '2 得到最大分页数
if Page<=0 then Page=1 '如果值为0,就是第一页
if Page > Pages then Page=Pages '控制最后一页,不得大于最大分页数
rs.AbsolutePage=Page '用来确认每页的开始指针位置
for i=1 to rs.PageSize
%>
'下面这个表格为内容显示页 自己根据需要进行修改
<table width="80%" height="25" border="0" cellpadding="0" cellspacing="2">
<tr>
<td width="13%"><%=rs("id")%></td>
<td width="73%"><a href="list.asp?id=<%=rs("id")%>" target="_blank"><%=rs("news_title")%></a></td>
<td width="14%"><a href="Edit_news.asp?id=<%=rs("id")%>" >修改</a> | <a href="delete_news.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
</table>
<%
rs.movenext
if rs.eof then exit for
next
%>
<table width="80%" height="66" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><%
if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href="&page_n&"?page=1>首页</a> "
response.write "<a href="&page_n&"?page="&Page-1&">上一页</a> "
end if
if Pages-Page<1 then
response.write "下一页 尾页"
else
response.write "<a href="&page_n&"?page="&page+1& ">"
response.write "下一页</a> <a href="&page_n&"?page="&rs.pagecount&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " </span></p>"
end if '结束不是空表的IF语句
rs.close
set rs=nothing
%></td>
</tr>
</table>
</body>
</html>
希望能帮你解决问题
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>信息管理</title>
<style type="text/css">
<!--
body,td,th {
font-size: 9pt;
}
-->
</style></head>
<body>
<%
Page=clng(request("page")) '接收page变量
'============以下三行,需要修改=============
page_n="admin_news.asp" '当前需分页的页面
num=15 '每页显示5条
sql="select * from news_table order by id desc" '要进行分页的数据表
'==========================================================
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.Write("<div align='center'>暂时没有信息!</div>")
response.end()
else
rs.PageSize=num '1 第页显示的条数
Pages=rs.Pagecount '2 得到最大分页数
if Page<=0 then Page=1 '如果值为0,就是第一页
if Page > Pages then Page=Pages '控制最后一页,不得大于最大分页数
rs.AbsolutePage=Page '用来确认每页的开始指针位置
for i=1 to rs.PageSize
%>
'下面这个表格为内容显示页 自己根据需要进行修改
<table width="80%" height="25" border="0" cellpadding="0" cellspacing="2">
<tr>
<td width="13%"><%=rs("id")%></td>
<td width="73%"><a href="list.asp?id=<%=rs("id")%>" target="_blank"><%=rs("news_title")%></a></td>
<td width="14%"><a href="Edit_news.asp?id=<%=rs("id")%>" >修改</a> | <a href="delete_news.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
</table>
<%
rs.movenext
if rs.eof then exit for
next
%>
<table width="80%" height="66" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><%
if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href="&page_n&"?page=1>首页</a> "
response.write "<a href="&page_n&"?page="&Page-1&">上一页</a> "
end if
if Pages-Page<1 then
response.write "下一页 尾页"
else
response.write "<a href="&page_n&"?page="&page+1& ">"
response.write "下一页</a> <a href="&page_n&"?page="&rs.pagecount&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " </span></p>"
end if '结束不是空表的IF语句
rs.close
set rs=nothing
%></td>
</tr>
</table>
</body>
</html>
希望能帮你解决问题
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
