求大神，ASP的这个程序怎么添加分页显示

<html><body><h2align="center">我的通讯录</h2><%'以下连接数据库，建立一个Connection对象实例connDimconnSetco... <html>
<body>
<h2 align="center">我的通讯录</h2>
<%
'以下连接数据库，建立一个Connection对象实例conn
Dim conn
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "address" '利用数据源连接数据库
'以下建立记录集，建立一个Recordset对象实例rs
Dim rs
Set rs=conn.Execute("Select * From tbAddress") '返回整个数据表
'以下利用表格显示记录集中的记录
%>
<table border="1" width="100%" align="center">
<tr bgcolor="#E0E0E0">
<th>姓名</th><th>性别</th><th>年龄</th><th>电话</th><th>E-mail</th>
<th>简介</th><th>添加日期</th>
</tr>
<%
Do While Not rs.Eof '只要不是结尾就执行循环
%>
<tr>
<td><%=rs("strName")%></td>
<td><%=rs("strSex")%></td>
<td><%=rs("intAge")%></td>
<td><%=rs("strTel")%></td>
<td><a href="mailto:<%=rs("strEmail")%>"><%=rs("strEmail")%></a> </td>
<td><%=rs("strIntro")%></td>
<td><%=rs("dtmSubmit")%></td>
</tr>
<%
rs.MoveNext '将记录指针移动到下一条记录
Loop
%>
</table>
</body>
</html> 展开

 我来答

3个回答

#热议# 海关有哪些禁运商品？查到后怎么办？

zanghonghuacc
2015-06-30 · 超过11用户采纳过TA的回答

知道答主

回答量：38

采纳率：0%

帮助的人：9.1万

我也去答题访问个人页

关注

展开全部

<html>
<body>
	<h2 align="center">我的通讯录</h2>
	<% 
	'以下连接数据库，建立一个Connection对象实例conn
	Dim conn 
	Set conn=Server.CreateObject("ADODB.Connection") 
	conn.Open "address"									'利用数据源连接数据库
	'以下建立记录集，建立一个Recordset对象实例rs
	Dim rs											 
	Set rs=conn.Execute("Select * From tbAddress")			'返回整个数据表
	'以下利用表格显示记录集中的记录
	%>
	<table border="1" width="100%" align="center">
		<tr bgcolor="#E0E0E0">
			<th>姓名</th><th>性别</th><th>年龄</th><th>电话</th><th>E-mail</th>
			<th>简介</th><th>添加日期</th>
		</tr>
		<% 
   If Not rs.Bof And Not rs.Eof Then	
   Dim page_no,num,pagenum,I
   If Request.Querystring("page_no")="" Then
   page_no=1
   Else
   page_no=Cint(Request.QueryString("page_no"))
   End If
   num=rs.recordcount ' 记录总数
   rs.PageSize=10     '每页显示10条记录
   pagenum=rs.PageCount '页总数
   rs.AbsolutePage=page_no
   I=rs.PageSize
   Do While Not rs.Eof And I>0
   I=I-1
		%>
			<tr>
				<td><%=rs("strName")%></td>
				<td><%=rs("strSex")%></td>
				<td><%=rs("intAge")%></td>
				<td><%=rs("strTel")%></td>
				<td><a href="mailto:<%=rs("strEmail")%>"><%=rs("strEmail")%></a> </td>
				<td><%=rs("strIntro")%></td>
				<td><%=rs("dtmSubmit")%></td>
			</tr>
		<% 
			rs.MoveNext										'将记录指针移动到下一条记录
		Loop
		end if
		%>
	</table>
第<%=page_no%>页 共<%=pagenum%>页 | <a href=当前页面.asp?page_no=1>首页</a> | <%if page_no>1 then%><a href=当前页面.asp?page_no=<%=page_no-1%>>上一页</a> <%end if%>
<%if page_no<pagenum then%><a href=当前页面.asp?page_no=<%=page_no+1%>>下一页</a> <%end if%>
</body> 
</html>


本回答被提问者和网友采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起

揭戈雅s2
2015-06-17 · TA获得超过514个赞

知道小有建树答主

回答量：8621

采纳率：0%

帮助的人：2309万

我也去答题访问个人页

关注

展开全部

asp分页帮实现

已赞过 已踩过<

评论收起

名字太过于显眼f5fcc
2015-06-22 · 超过12用户采纳过TA的回答

知道答主

回答量：56

采纳率：0%

帮助的人：7.7万

我也去答题访问个人页

关注

展开全部

这个简单啊百度有实例。。。

已赞过 已踩过<

评论收起

更多回答（1）

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

求大神，ASP的这个程序怎么添加分页显示

为你推荐：