UC知道ASP分页代码小问题急请高手解决?在线等待!
来源：百度知道 编辑：UC知道 时间：2024/06/19 03:19:24
问题:想让显示的记录按年份的查询结果分页,分页的该怎么改?
现在的分页代码只能按数据表的所有记录分页!
以下是代码--------------------------------------------
提交查询部分:
<%
dim sql1
dim sql6
dim sql7
dim yearA '按年份查询
dim menu1
yearA=trim(request("menu1"))
on error resume next
set conn1=server.createobject("adodb.connection")
conn1.Open "DBQ="& Server.MapPath("fpdb/netdb.mdb") &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
sql6="select * from 表 where id<>null order by [编号] desc"
sql7="select * from bad_sample where id<>null and year([修改日期])="&yearA&" order by [编号] desc"
if yearA="" then
sql1=sql6
else
sql1=sql7
end if
set rs1=server.createobject("adodb.recordset")
rs1.open sql1, conn1,1,3
%>
<form name="form2" action="bad_all.asp&qu
现在的分页代码只能按数据表的所有记录分页!
以下是代码--------------------------------------------
提交查询部分:
<%
dim sql1
dim sql6
dim sql7
dim yearA '按年份查询
dim menu1
yearA=trim(request("menu1"))
on error resume next
set conn1=server.createobject("adodb.connection")
conn1.Open "DBQ="& Server.MapPath("fpdb/netdb.mdb") &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
sql6="select * from 表 where id<>null order by [编号] desc"
sql7="select * from bad_sample where id<>null and year([修改日期])="&yearA&" order by [编号] desc"
if yearA="" then
sql1=sql6
else
sql1=sql7
end if
set rs1=server.createobject("adodb.recordset")
rs1.open sql1, conn1,1,3
%>
<form name="form2" action="bad_all.asp&qu
response.write "<a class=b2 href='bad_all.asp?page=1&menu1="&request("menu1")&"'>首页 </a>"
response.write "<a class=b2 href='bad_all.asp?page="&(page-1)&"&menu1="&request("menu1")&"' >上一页 </a>"
response.write "<a class=b2 href='bad_all.asp?page="&(page+1)&"&menu1="&request("menu1")&"'>下一页 </a>"
response.write "<a class=b2 href='bad_all.asp?page="&rs1.pagecount&"&menu1="&request("menu1")&"'>尾页</a>"
把这4段代码换了久行了