跪求一段ASP分页显示记录的代码，要精简易懂的
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><!--#includefile="conn.asp"--><%setrs=server.Cr...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select user,password,username from main "
rs.open sql,conn,1,3
%>
<%do while not rs.eof%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<table width="622" height="89" border="1" align="center">
<tr>
<td width="45">用户名</td>
<td width="230"><%=rs("user")%> </td>
<td width="48">密码</td>
<td width="271"><%=rs("password")%> </td>
</tr>
<tr>
<td>昵称</td>
<td colspan="3"><%=rs("username")%> </td>
</tr>
</table>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</body>
</html>
帮我加到这里面下 展开
<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select user,password,username from main "
rs.open sql,conn,1,3
%>
<%do while not rs.eof%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<table width="622" height="89" border="1" align="center">
<tr>
<td width="45">用户名</td>
<td width="230"><%=rs("user")%> </td>
<td width="48">密码</td>
<td width="271"><%=rs("password")%> </td>
</tr>
<tr>
<td>昵称</td>
<td colspan="3"><%=rs("username")%> </td>
</tr>
</table>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</body>
</html>
帮我加到这里面下 展开
展开全部
给你一个小例子看一下
<%
'连接数据库
'执行sql 改你要的sql
set rs=server.CreateObject("adodb.recordset")%>
rs.open "select * from news order by id desc ",conn,1,3
下面的代码就复制用可以了
'分页
i=50
rs.pagesize=i
pu=request("pu")
if pu="" then pu=1
if cint(pu)<="0" then pu=1
if cint(pu)>rs.pagecount then pu=rs.pagecount
if not rs.eof then rs.absolutepage=cint(pu)
'显示记录
if not rs.eof then
do while not rs.eof and i=>1
response.write rs("字段")'显示字段
'就这里改你要的，其它复制用就可以
rs.movenext
i=i-1
loop
end if
%>
当前第 <%=pu%> 页；分
<%=rs.pagecount%> 页；
共 <%=rs.recordcount%> 条记录；
每页<%=i%>条记录
<a href="?pu=1">首 页</a>
<a href="?pu=<%=cint(PU)-1%>">上一页</a>
<a href="?pu=<%=cint(PU)+1%>">下一页</a>
<a href="?pu=<%=rs.pagecount%>">末 页</a>
<%
'连接数据库
'执行sql 改你要的sql
set rs=server.CreateObject("adodb.recordset")%>
rs.open "select * from news order by id desc ",conn,1,3
下面的代码就复制用可以了
'分页
i=50
rs.pagesize=i
pu=request("pu")
if pu="" then pu=1
if cint(pu)<="0" then pu=1
if cint(pu)>rs.pagecount then pu=rs.pagecount
if not rs.eof then rs.absolutepage=cint(pu)
'显示记录
if not rs.eof then
do while not rs.eof and i=>1
response.write rs("字段")'显示字段
'就这里改你要的，其它复制用就可以
rs.movenext
i=i-1
loop
end if
%>
当前第 <%=pu%> 页；分
<%=rs.pagecount%> 页；
共 <%=rs.recordcount%> 条记录；
每页<%=i%>条记录
<a href="?pu=1">首 页</a>
<a href="?pu=<%=cint(PU)-1%>">上一页</a>
<a href="?pu=<%=cint(PU)+1%>">下一页</a>
<a href="?pu=<%=rs.pagecount%>">末 页</a>
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
'分页开始
'rs.open sql,conn,1,1这段代码放在这条后观
rs.pagesize=20 '每页显示20条
page=request("page")
page=cint(page)
if page<=0 then
page=1
else
if page>rs.pagecount then
page=rs.pagecount
end if
end if
if not rs.eof then
rs.absolutepage=page
end if
showpage="<table align=center border='0' width='100%'><tr><td align='center' class='text'>共"&rs.pagecount&"页 | "&rs.recordcount&"条案例 | 每页显示"&rs.pagesize&"条 | 当前第"&page&"页 <a href='?page=1&lb1="&lb1&"&lb2="&lb2&"' >[首页]</a> <a href='?page="&page-1&"&lb1="&lb1&"&lb2="&lb2&"'>[上页]</a> <a href='?page="&page+1&"&lb1="&lb1&"&lb2="&lb2&"' >[下页]</a> <a href='?page="&rs.pagecount&"&lb1="&lb1&"&lb2="&lb2&"' >[尾页]</a></td></tr></table>"
'分页结束
'在任何位置使下面变量分页显示调用
<%=showpage%>
'rs.open sql,conn,1,1这段代码放在这条后观
rs.pagesize=20 '每页显示20条
page=request("page")
page=cint(page)
if page<=0 then
page=1
else
if page>rs.pagecount then
page=rs.pagecount
end if
end if
if not rs.eof then
rs.absolutepage=page
end if
showpage="<table align=center border='0' width='100%'><tr><td align='center' class='text'>共"&rs.pagecount&"页 | "&rs.recordcount&"条案例 | 每页显示"&rs.pagesize&"条 | 当前第"&page&"页 <a href='?page=1&lb1="&lb1&"&lb2="&lb2&"' >[首页]</a> <a href='?page="&page-1&"&lb1="&lb1&"&lb2="&lb2&"'>[上页]</a> <a href='?page="&page+1&"&lb1="&lb1&"&lb2="&lb2&"' >[下页]</a> <a href='?page="&rs.pagecount&"&lb1="&lb1&"&lb2="&lb2&"' >[尾页]</a></td></tr></table>"
'分页结束
'在任何位置使下面变量分页显示调用
<%=showpage%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
