把下面的代码 换成你的表试试
<% 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>