关于ASP+ACCESS中怎么分页的问题
我做了一个ASP页面，想让他实现分页的功能，各位高手帮帮忙完成给小弟？完整代码（index.asp)：<%@LANGUAGE="VBSCRIPT"CODEPAGE="93...
我做了一个ASP页面，想让他实现分页的功能，各位高手帮帮忙完成给小弟？
完整代码（index.asp)：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>学生资料</title>
</head>
<body background=background.GIF>
<p align=center><font face=华文彩云 size=6>学生资料</font><hr>
<a href="add.htm">添加</a> <a href="page.asp">查询</a>
<%
dim sql
dim rs
set conn=server.createobject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;" &_
"data source=" & server.mappath("CC.mdb")
conn.open
set rs=server.createobject("adodb.recordset")
sql="select * from classmate"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write"<p>数据库中暂无学生资料！"
else
%>
<table border=1 align=center cellspacing=0 cellpadding=2>
<tr align=center>
<td width=80>姓名<td>性别<td>生日<td>学号<td>手机<td>家庭住址<td>所在院系<td>电子邮箱<td>操作</td>
</tr>
<%
do while not rs.eof
t1=rs("姓名")
t2=rs("性别")
t3=rs("出生日期")
t4=rs("学号")
t5=rs("手机")
t6=rs("住址")
t7=rs("单位")
t8=rs("Email")
dd="<tr align=center><td>" &t1 &"<td>" &t2 &"<td>" &t3 &"<td>" &t4
dd=dd &"<td>" &t5 &"<td>" &t6 &"<td>" &t7 &"<td>" &t8
dd=dd &"<td><a href=delnew.asp?id=" &t1 &">删除</a>"
dd=dd &"<a href=modify.asp?id=" &t1 &">修改</a>"&"</tr>"
response.write dd
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<table>
</body>
</html> 展开
完整代码（index.asp)：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>学生资料</title>
</head>
<body background=background.GIF>
<p align=center><font face=华文彩云 size=6>学生资料</font><hr>
<a href="add.htm">添加</a> <a href="page.asp">查询</a>
<%
dim sql
dim rs
set conn=server.createobject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;" &_
"data source=" & server.mappath("CC.mdb")
conn.open
set rs=server.createobject("adodb.recordset")
sql="select * from classmate"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write"<p>数据库中暂无学生资料！"
else
%>
<table border=1 align=center cellspacing=0 cellpadding=2>
<tr align=center>
<td width=80>姓名<td>性别<td>生日<td>学号<td>手机<td>家庭住址<td>所在院系<td>电子邮箱<td>操作</td>
</tr>
<%
do while not rs.eof
t1=rs("姓名")
t2=rs("性别")
t3=rs("出生日期")
t4=rs("学号")
t5=rs("手机")
t6=rs("住址")
t7=rs("单位")
t8=rs("Email")
dd="<tr align=center><td>" &t1 &"<td>" &t2 &"<td>" &t3 &"<td>" &t4
dd=dd &"<td>" &t5 &"<td>" &t6 &"<td>" &t7 &"<td>" &t8
dd=dd &"<td><a href=delnew.asp?id=" &t1 &">删除</a>"
dd=dd &"<a href=modify.asp?id=" &t1 &">修改</a>"&"</tr>"
response.write dd
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<table>
</body>
</html> 展开
2个回答
展开全部
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>学生资料</title>
</head>
<body background=background.GIF>
<p align=center><font face=华文彩云 size=6>学生资料</font><hr>
<a href="add.htm">添加</a> <a href="page.asp">查询</a>
<%
dim sql
dim rs
set conn=server.createobject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;" &_
"data source=" & server.mappath("CC.mdb")
conn.open
set rs=server.createobject("adodb.recordset")
sql="select * from classmate"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write"<p>数据库中暂无学生资料！"
else
%>
<table border=1 align=center cellspacing=0 cellpadding=2>
<tr align=center>
<td width=80>姓名<td>性别<td>生日<td>学号<td>手机<td>家庭住址<td>所在院系<td>电子邮箱<td>操作</td>
</tr>
<%
'do while not rs.eof
page=clng(request("page"))
rs.PageSize=20
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
t1=rs("姓名")
t2=rs("性别")
t3=rs("出生日期")
t4=rs("学号")
t5=rs("手机")
t6=rs("住址")
t7=rs("单位")
t8=rs("Email")
dd="<tr align=center><td>" &t1 &"<td>" &t2 &"<td>" &t3 &"<td>" &t4
dd=dd &"<td>" &t5 &"<td>" &t6 &"<td>" &t7 &"<td>" &t8
dd=dd &"<td><a href=delnew.asp?id=" &t1 &">删除</a>"
dd=dd &"<a href=modify.asp?id=" &t1 &">修改</a>"&"</tr>"
response.write dd
rs.movenext
if rs.eof then exit for
next
end if
%>
<form method=Post action="">
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=?page=1>首页</a> "
response.write "<a href=?page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=?page=" & (page+1) & ">"
response.write "下一页</a> <a href=?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 " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span></p>"
%> </form><%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<table>
</body>
</html>
试试这个 QQ78276478
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>学生资料</title>
</head>
<body background=background.GIF>
<p align=center><font face=华文彩云 size=6>学生资料</font><hr>
<a href="add.htm">添加</a> <a href="page.asp">查询</a>
<%
dim sql
dim rs
set conn=server.createobject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;" &_
"data source=" & server.mappath("CC.mdb")
conn.open
set rs=server.createobject("adodb.recordset")
sql="select * from classmate"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write"<p>数据库中暂无学生资料！"
else
%>
<table border=1 align=center cellspacing=0 cellpadding=2>
<tr align=center>
<td width=80>姓名<td>性别<td>生日<td>学号<td>手机<td>家庭住址<td>所在院系<td>电子邮箱<td>操作</td>
</tr>
<%
'do while not rs.eof
page=clng(request("page"))
rs.PageSize=20
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
t1=rs("姓名")
t2=rs("性别")
t3=rs("出生日期")
t4=rs("学号")
t5=rs("手机")
t6=rs("住址")
t7=rs("单位")
t8=rs("Email")
dd="<tr align=center><td>" &t1 &"<td>" &t2 &"<td>" &t3 &"<td>" &t4
dd=dd &"<td>" &t5 &"<td>" &t6 &"<td>" &t7 &"<td>" &t8
dd=dd &"<td><a href=delnew.asp?id=" &t1 &">删除</a>"
dd=dd &"<a href=modify.asp?id=" &t1 &">修改</a>"&"</tr>"
response.write dd
rs.movenext
if rs.eof then exit for
next
end if
%>
<form method=Post action="">
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=?page=1>首页</a> "
response.write "<a href=?page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=?page=" & (page+1) & ">"
response.write "下一页</a> <a href=?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 " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span></p>"
%> </form><%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<table>
</body>
</html>
试试这个 QQ78276478
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
