湖北人才中心上班时间:在线等“怎么查询符合条件的当前条记录和他后面的记录”

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/29 08:50:36
asp 中按条件进行查询
1、查询的是符合条件的所有记录 或 查询符合条件的一条记录
但我想
查询符合条件的一条记录和他后面的记录

代码如下:
<html>
<head>

<title>012</title>
</head>

<body>
<% dim conn
dim connstr

on error resume next
connstr="DBQ="+server.mappath("cpdata.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
if err then
err.clear
end if
end if
Dim cpclass,datac,kjnumber
cpclass=Request.QueryString("cpclass")
datac=Request.QueryString("datac")
set rs=server.createobject("adodb.recordset")
'do while not rs.eof
sqltext="select * from cp3d Where datac="& datac &" and cpclass="& cpclass &" "
rs.open sqltext,conn,1,1
%>
<%
' do while not rs.eof
%>
<%=rs("datac")%>  <%=rs("kjnumber")%><br>
<%
'do while not rs.eof
dim i
for i=1 to rs.eof
datac=datac+1
set rs=server.createobject("adodb.recordset")
sqltext="select * from cp3d Where datac="& datac &" and cpclass="& cpclass &" "
rs.open sqltext,conn,1,1
Response.Write datac
Response.Write"  " %>
<%=rs("kjnumber")%><br>
<%
' rs.movenext
'loop
next
%>
</body>
</html>