一个关于数据读取的问题

[wfjxx]

我现在读取了一个表
用asp如何写一个读取前一条数据
和如何读取下一条数据
请大家指点
谢谢

[liuyingzi]

把下面的代码 换成你的表试试
<% sql="select * from adInfo where adId=" & Cint(adId)
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>找不到有关图书</li>"
end if
%>
<tr class="tdbg" align="center" ><td colspan="2"><font size='2'>
<li>上一本图书 ：
<%
dim rsPrev
sql="Select * From adInfo Where adId<" & rs("adId") & " order by adId desc"
Set rsPrev= Server.CreateObject("ADODB.Recordset")
rsPrev.open sql,conn,1,1
if rsPrev.Eof then
response.write "没有了"
else
response.write "<a href='editAd.asp?adId=" & rsPrev("adId") & "'>" & rsPrev("magName") & "</a>"
end if
rsPrev.close
set rsPrev=nothing
%>
</li>
<br>
<li> 下一本图书 ：
<%
dim rsNext
sql="Select * From adInfo Where adId>" & rs("adId") & " order by adId asc"
Set rsNext= Server.CreateObject("ADODB.Recordset")
rsNext.open sql,conn,1,1
if rsNext.Eof then
response.write "没有了"
else
response.write "<a href='editAd.asp?adId=" & rsNext("adId") & "'>" & rsNext("magName") & "</a>"
end if
rsNext.close
set rsNext=nothing
%>
</li></font></td>
</tr>

• 打赏
• 举报

回复 赞

[QQgenie]

定位一条数据,再用rs.movenext下一条,rs.movenext -1 上一条(rs.movePrev).

• 打赏
• 举报

回复 赞

[chuanyuan88]

你需要这个：
http://foxer.vsky.net/softs/down/soft.asp?id=17

• 打赏
• 举报

回复 赞