一个关于数据读取的问题

wfjxx 2004-04-10 04:15:13
我现在读取了一个表
用asp如何写一个读取前一条数据
和如何读取下一条数据
请大家指点
谢谢
...全文
27 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
chuanyuan88 2004-04-10
你需要这个:
http://foxer.vsky.net/softs/down/soft.asp?id=17
回复
QQgenie 2004-04-10
定位一条数据,再用rs.movenext下一条,rs.movenext -1 上一条(rs.movePrev).
回复
liuyingzi 2004-04-10
把下面的代码 换成你的表试试
<% 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>
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告