谁能给我查询后记录分页显示的asp代码？？

如题所述

举报该文章

相关建议 2009-01-06

建立access的数据库news,还有表news,表的字段(id,title),id唯一,输入数据保存,用下面代码可查询,可分页
-----------------------下面保存为search.asp--------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文件</title>
</head>
<body bgcolor="#ffffff">
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<script>
function btn_ck_bh_Click()
{
var cx = document.form1.cxsj.value;
form1.action ="search.asp?cx="+cx;
}
</script>
<table border="1" cellspacing="0" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" width="88%" style="word-break:break-all">
<tr>
<td width="778" align="center" colspan="7">
<form method="POST" name="form1" action=search.asp>
<p>输入搜索内容:<input type="text" name="cxsj" size="20"><input type="submit" value="提交" name="B1" LANGUAGE="javascript" onclick="btn_ck_bh_Click()">
<input type="reset" value="重写" name="B2"></p>
</form>
</td>
</tr>
</table>
<table border="1" cellspacing="0" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" width="88%" style="word-break:break-all">
<tr>
<td width="8%" align="center"><strong><font color="#0080C0">ID 号</font></strong></td>
<td width="58%" align="center"><strong><font color="#0080C0">标题</font></strong></td>
<td width="8%" align="center"><strong><font color="#0080C0">修改</font></strong></td>
<td width="8%" align="center"><strong><font color="#0080C0">删除</font></strong></td>
</tr>
<%
'数据库查询
'获得搜索内容
cx = request("cx")
dim pageCount
'把page转换成整数
page = cint(request("page"))
set conn=server.createobject("adodb.connection")'
set rs=server.createobject("adodb.recordset")
conn.open "DBQ=" & server.mappath("./news.mdb") & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

' 获取产品的名字记录集（从 news表中）
if cx <> "" then
sql = "select * from news where title like '%"&cx& "%' order by id desc"
else
sql ="select * from news order by id desc"
end if
rs.open sql,conn,3,3
'如果没有数据记录
if rs.bof then
errmsg=errmsg+"<br>"+"<li>"+keyword+"没有记录,请返回!!"
response.write errmsg
response.end
end if

' 设置记录集在每页的总行数，也就是 PageSize属性
RS.PageSize=40
'把rs.pageCount转换成整数和page才能作比较
pageCount = cint(rs.pageCount)
' 设置当前的页号（ AbsolutePage属性）
if page = 0 then
page =1
end if
RS.AbsolutePage = page
x=1
' 显示当前页中的所有记录（ PageSize中设置的行数）

WHILE NOT RS.EOF AND NumRows<RS.PageSize
%>
<tr onmouseover="this.bgColor='#99ccff'" onmouseout="this.bgColor=''">
<td width="8%"><p align="center"><%=rs("id")%></td>
<td width="58%"><a href="view.asp?id=<%=rs("id")%>" target="_blank"><%=rs("title")%></a></td>
<td width="8%" align="center"><a href="edit.asp?id="<%=rs("id")%>>修改</a></td>
<td width="8%" align="center"><a href="delet.asp?id="<%=rs("id")%>>删除</a></td>
</tr>
<%RS.MoveNext
NumRows=NumRows+1
WEND%>
<tr onmouseover="this.bgColor='#99ccff'" onmouseout="this.bgColor=''">
<td width="105%" align="center" colspan="6"> </td> </tr>
<tr>
<td width="105%" align="center" colspan="6">
<p align="center"><FONT color=#333333>共<%=PageCount%>页第<%=page%>页★
<%if page=1 then%>首页<%end if%>
<%if page>1 then%>
<A HREF="search.asp?page=1&cx=<%=cx%>"> 首页</A>
<%end if%>★
<%if page>1 then%><A HREF="search.asp?page=<%=page-1%>&cx=<%=cx%>"><%end if%>上一页</a>
<%
dim pagewhere
dim p
p = 1
'把pagewhere转换成整数
'pagewhere = cint(request("pagewhere"))
pagewhere = pageCount
if pagewhere>0 then
for p=1 to pagewhere
if p <> page then%>
<A HREF="search.asp?page=<%=p%>&cx=<%=cx%>"><%=p%></a>
<%end if
if p =page then%>
<%=p%>
<% end if
next
end if%>
<%if page < PageCount then%>
<A HREF="search.asp?page=<%=page+1%>&cx=<%=cx%>">
<%end if %>下一页</A>★
<%if page=PageCount then%>尾页
<%end if%>
<%if page<PageCount then%>
<A HREF="search.asp?page=<%=PageCount%>&cx=<%=cx%>"> 尾页</A>
<%end if%>
</p></FONT></td> </tr> <tr>
<td width="105%" align="center" colspan="6">搜索内容:<%=cx%></td>
</tr>
</table></center></div>
</body></html>
<%
rs.close
Set rs=nothing
conn.close
set conn=nothing
%>

温馨提示：内容为网友见解，仅供参考

当前网址：https://aolonic.com/aa/4an151dn.html

其他看法

第1个回答 2009-01-06

id +1
id -1

asp内容分页代码
rs.PageSize = 8 '每页显示记录数 if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量 if Page > rs.PageCount then '如果接收的页数大于总页数 rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页 else...

求一个asp分页显示得代码!!!
 '数据库路径，应用本分页程序所在文件已有的不用加 <%'===分页定义开始，可放在数据库打开前或后 dim action action=request.QueryString("action")Const MaxPerPage=10 '定义每页显示记录数，可根据实际自定义 dim totalPut dim CurrentPage dim TotalPages dim ...

asp.net如何实现gridview控件进行分页并带有查询的代码
<asp:LinkButton ID="lnkbtnNext" runat="server" OnClick="lnkbtnNext_Click">下一页<\/asp:LinkButton> <asp:LinkButton ID="lnkbtnLast" runat="server" OnClick="lnkbtnLast_Click">尾页<\/asp:LinkButton> 跳转到第<asp:DropDownList ID="ddlCurrentPage" runat="server" AutoPostBack="True...

asp 分页显示代码?
<a href="getupdate.asp?ID=<%=rs("ID")%>">更新<a href="Delete.asp?ID=<%=rs("ID")%>" onClick="return confirm('您确定要删除此项目吗?')">删除 < rs.movenext loop rs.close set rs=nothing > < if Page > 1 Then%> <a href="?page=1&keyword=<...

asp分页代码
pagecount等等。。第一步： ts.pagesize=3 '设置每页显示3条记录第二步：for i=1 to ts.pagesize ...数据库内容...next 第三步：for i=1 to ts.pagecount ‘这里是把页码循环出来 response.write ""&i&"|"next

ASP多个条件查询并且分页显示
1=1"if t="t" then sql=sql&" and xxx='"&request("筛选条件")&"'"end if 这样就可以一出来是全部，，在筛选的form里的action=加上t=t 然后在分页里 if t="t" then <a href="?page=<%=page+1%>&t=t&各个条件">下一页 else <a href="?page=<%=page+1%>"> end if ...

asp 网页设计中分页显示代码
设置页大小为2 === 我帮你改一下加入了翻页等!<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>  < Dim strSql,rs strSql ="Select * From rbook Order By rbook_register_date Desc"if Request.QueryString("pageNo")="" then PageNo=1...

asp内容分页代码
我是这样分页的，确定能用，给你看看，看能否帮上你的忙 < Dim currentpage,page_count,Pcount dim totalrec,endpage currentPage=request("page")if currentpage="" then currentpage=1 else currentpage=clng(currentpage)if err then currentpage=1 err.clear end if end if > 一下是连接...

谁能帮我的asp页面数据显示实现分页啊!
i=1 '记录页数 for m=1 to endpage > <%=rs("txt")%> <%=rs("AA")%> <a href="?action=del&id=<%=rs("id")%>" title="删除">删除 < if m mod 5=0 then '每行显示5条记录 response.write("") '如果有5条记录了，就换行 end if rs.movenext if rs.eof then...

ASP内容分页代码
id=<%=request("id")%>&Page=<%= page-1%>>上一页 <%end ifif pagecount-page<1 then %>下一页末页<%else%><a href=fenye.asp?id=<%=request("id")%>&Page=<%= page+1%>>下一页<a href=fenye.asp?id=<%=request("id")%>&Page=<%=pagecount%>>末页<%end if%> ...

相似回答

大家正在搜