<a href="show.asp?up=ok&id=<%=id%>">上一篇</a> show.asp : up=request("up") id=request("id") if up=ok then sql="select * from guestbook where id<"&id '我想问一下通过这一个怎么判断是下一篇，小于ID的可以是很多个。 rs.open sql,conn,3,3 if rs.recordcount=0 then rs.close end if rs.movenext else rs.open "select * from guestbook where id="&id,conn,3,3 end if

sql="select top 1 * from guestbook where id<"&id

sql="select * from guestbook where id="&amp;id-1
这样也可以吧

如果ID有删除过了?

sql="select * from guestbook where id<"&id 我看到别人用的是这个也可以用,就是不理解.

最好用select top 1 id from ……order by id desc
Oracle里用select id from ……where id&lt;"&amp;id&amp;" and rownum&lt;=1 order by id desc

我感觉这样速度快一点

以前写过类似的,PP吧~
'显示上一篇下一篇文章
function show_next(id)
 dim sql
  sql="select top 1 id,title from news where id&lt;"&amp;id&amp;" and isurlnews=0 order by id desc"
  loaddb2(sql)
if not(rs2.eof and rs2.bof) then
 response.write "上一篇：&lt;a href=read.asp?id=" &amp; rs2("id") &amp; " target=_self&gt;" &amp; rs2("title") &amp; "&lt;/a&gt;&lt;br&gt;"
else
 response.write "上一篇：&lt;font color=#999999&gt;已经没有了&lt;/font&gt;&lt;br&gt;"
end if
rs2.close:set rs2=nothing
sql="select top 1 id,title from news where id&gt;"&amp;id&amp;" and isurlnews=0 order by id"
loaddb2(sql)  
if not(rs2.eof and rs2.bof) then
 response.write "下一篇：&lt;a href=read.asp?id=" &amp; rs2("id") &amp; " target=_self&gt;" &amp; rs2("title") &amp; "&lt;/a&gt;&lt;br&gt;"
else
  response.write "下一篇：&lt;font color=#999999&gt;已经没有了&lt;/font&gt;&lt;br&gt;"
end if
rs2.close:set rs2=nothing
end function

错误类型：
Microsoft JET Database Engine (0x80040E14)
语法错误 (操作符丢失) 在查询表达式 'shopid<' 中。
/list.asp, 第 19 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Poco 0.31; GOSURF; .NET CLR 1.1.4322)

网页：
GET /list.asp

代码如下：
<%
function thenext
newrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from shop_snsn where shopid>"&a1&" order by shopid"
set newrs=conn.execute(sql)
if newrs.eof then
response.Write("没有了")
else
a2=newrs("shopid")
response.Write("<a href='list.asp?shopid="&a2&"'>下一篇</a>")
end if
end function
%>

<%
function thehead
headrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from shop_snsn where shopid<"&a1&" order by shopid desc"
set headrs=conn.execute(sql)
if headrs.eof then
response.Write("没有了")
else
a0=headrs("shopid")
response.Write("<a href='list.asp?shopid="&a0&"'>上一篇</a>")
end if
end function
%>

[此贴子已经被作者于2006-5-10 3:16:28编辑过]

a1没有值

能详细说明点吗，不是很明白啊！！！