asp搜索mdb数据库
分页显示表中所有记录，底部有一个按关键字搜索表中记录。并分页显示出来结果最好给教程我看。谢啦。...
分页显示表中所有记录，底部有一个按关键字搜索表中记录。并分页显示出来结果
最好给教程我看。谢啦。 展开
最好给教程我看。谢啦。 展开
展开全部
你是不是想要个分页显示的代码啊，我这有个最简单的，应该一看就明白
<!-- #include file="conn.asp"-->
<% Response.Buffer = TRUE %>
<%
if session("name_mtp")="" then
response.Redirect "index.asp"
end if
%>
<html>
<title>
</title>
<head>
</head>
<body background="images/3.jpg">
<script language="vbscript">
<!--
sub setbgcolor(bcolor)
document.bgcolor=bcolor
end sub
-->
</script>
<tr>
<td>
<a href="admin.asp">管理员登陆</a>
</td>
</tr>
<%
dim m,n
sql="select * from db order by id desc"
rs.open sql,conn,3,3
rs.pagesize=5 ''定义一页显示的记录数目
tatalrecord=rs.recordcount ''获取记录总数目
tatalpages=rs.pagecount ''获取分页的数目
rs.movefirst
nowpage=request("page") ''用request获取当前页数，注意page是自己定义的变量并非函数
if nowpage&"x"="x" then ''处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) ''将页码转换成数字型
end if
rs.absolutepage=nowpage ''将指针移动到当前显示页的第一条记录
%>
<%
n=1
while not rs.eof and n<=rs.pagesize
%>
<table align="center" width="550" cellpadding="1" border="1" cellspacing="1">
<tr>
<td width="65">姓名：</td><td width="131"><%=rs("name")%></td><td width="49">题目：</td><td width="212"><%=rs("title")%></td>
</tr>
<tr>
<td>内容：</td><td colspan="3"><textarea wrap="hard" cols="50" rows="5"><%=rs("content")%></textarea></td>
</tr>
<tr>
<td>提交时间：</td><td colspan="3"><%=rs("nowtime")%></td>
</tr>
</table>
<td> <br></td>
<%n=n+1
rs.movenext ''显示页面的数据
wend
%>
<form name="form1" method="post" onSubmit="return form1_onsubmit()" action="login1.asp">
<table bord="0" cellpadding="1" align="center">
<tr><td colspan="2">填写留言</td></tr>
<tr>
<td>
用户名：
</td>
<td><input type="text" name="name" value="<%=session("name_mtp")%>"></td>
</tr>
<tr>
<td>
题目：
</td>
<td><input type="text" name="title"></td>
</tr>
<tr>
<td>
内容：
</td>
<td><textarea wrap="hard" name="content" cols="70" rows="5"></textarea></td>
<tr>
<td colspan="2"><input type="hidden" name="nowtime" value="<%=now()%>"></td>
</tr>
</tr>
<tr>
<td></td>
<td>
<input type="submit" value="提交" title="ren shi ren ta ma de">
<input type="reset" value="重填"></td>
</tr>
</table>
</form>
<table align="center" border="0"><tr><td>
共:<%=tatalpages%>页 当前为:<%=nowpage%>页
<%if nowpage>1 then%>
<a href="login.asp?page=<%=nowpage-1%>">上一页</a>
<%else%>
上一页
<%end if%>
<%for k=1 to tatalpages%>
<%if k<>nowpage then %>
<a href="login.asp?page=<%=k%>"><%=k%></a>
<%else%>
<%=k%>
<%end if%>
<%next%>
<%if nowpage < tatalpages then%>
<a href="login.asp?page=<%=nowpage+1%>">下一页</a>
<%else%>
下一页
<%end if%>
<%if nowpage<>1 then%>
<a href="login.asp?page=<%=1%>"> 首页</a>
<%else%>
首页
<%end if%>
<%if nowpage<>tatalpages then %>
<a href="login.asp?page=<%=tatalpages%>">末页</a>
<%else%>
末页
<%end if%>
</td></tr></table>
</body>
</html>
<!-- #include file="conn.asp"-->
<% Response.Buffer = TRUE %>
<%
if session("name_mtp")="" then
response.Redirect "index.asp"
end if
%>
<html>
<title>
</title>
<head>
</head>
<body background="images/3.jpg">
<script language="vbscript">
<!--
sub setbgcolor(bcolor)
document.bgcolor=bcolor
end sub
-->
</script>
<tr>
<td>
<a href="admin.asp">管理员登陆</a>
</td>
</tr>
<%
dim m,n
sql="select * from db order by id desc"
rs.open sql,conn,3,3
rs.pagesize=5 ''定义一页显示的记录数目
tatalrecord=rs.recordcount ''获取记录总数目
tatalpages=rs.pagecount ''获取分页的数目
rs.movefirst
nowpage=request("page") ''用request获取当前页数，注意page是自己定义的变量并非函数
if nowpage&"x"="x" then ''处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) ''将页码转换成数字型
end if
rs.absolutepage=nowpage ''将指针移动到当前显示页的第一条记录
%>
<%
n=1
while not rs.eof and n<=rs.pagesize
%>
<table align="center" width="550" cellpadding="1" border="1" cellspacing="1">
<tr>
<td width="65">姓名：</td><td width="131"><%=rs("name")%></td><td width="49">题目：</td><td width="212"><%=rs("title")%></td>
</tr>
<tr>
<td>内容：</td><td colspan="3"><textarea wrap="hard" cols="50" rows="5"><%=rs("content")%></textarea></td>
</tr>
<tr>
<td>提交时间：</td><td colspan="3"><%=rs("nowtime")%></td>
</tr>
</table>
<td> <br></td>
<%n=n+1
rs.movenext ''显示页面的数据
wend
%>
<form name="form1" method="post" onSubmit="return form1_onsubmit()" action="login1.asp">
<table bord="0" cellpadding="1" align="center">
<tr><td colspan="2">填写留言</td></tr>
<tr>
<td>
用户名：
</td>
<td><input type="text" name="name" value="<%=session("name_mtp")%>"></td>
</tr>
<tr>
<td>
题目：
</td>
<td><input type="text" name="title"></td>
</tr>
<tr>
<td>
内容：
</td>
<td><textarea wrap="hard" name="content" cols="70" rows="5"></textarea></td>
<tr>
<td colspan="2"><input type="hidden" name="nowtime" value="<%=now()%>"></td>
</tr>
</tr>
<tr>
<td></td>
<td>
<input type="submit" value="提交" title="ren shi ren ta ma de">
<input type="reset" value="重填"></td>
</tr>
</table>
</form>
<table align="center" border="0"><tr><td>
共:<%=tatalpages%>页 当前为:<%=nowpage%>页
<%if nowpage>1 then%>
<a href="login.asp?page=<%=nowpage-1%>">上一页</a>
<%else%>
上一页
<%end if%>
<%for k=1 to tatalpages%>
<%if k<>nowpage then %>
<a href="login.asp?page=<%=k%>"><%=k%></a>
<%else%>
<%=k%>
<%end if%>
<%next%>
<%if nowpage < tatalpages then%>
<a href="login.asp?page=<%=nowpage+1%>">下一页</a>
<%else%>
下一页
<%end if%>
<%if nowpage<>1 then%>
<a href="login.asp?page=<%=1%>"> 首页</a>
<%else%>
首页
<%end if%>
<%if nowpage<>tatalpages then %>
<a href="login.asp?page=<%=tatalpages%>">末页</a>
<%else%>
末页
<%end if%>
</td></tr></table>
</body>
</html>
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
快又稳
2024-10-28 广告
广州快又稳网络科技有限公司是一家集技术研发、产品创新、服务优化于一体的高新技术企业。公司自成立以来，始终秉承“网络使人类缩进距离，我们让网络快又稳”的核心理念，致力于为全球客户提供高效、安全、易用的互联网解决方案及信息技术服务。在数字时代，...
点击进入详情页
本回答由快又稳提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
