<% set rs=server.createobject("adodb.recordset")
sql="select top 1 * from web where
id<"&request("id")&" and parent='"&request("parent")&"' order by id desc"
rs.open sql,conn,1,1
if rs.eof then
Response.Write"<tr bgcolor=""#eeeeee""><td height=""20px"">
上一篇:◎已经没有了◎</td></tr>"
else
Response.Write"<tr bgcolor=""#eeeeee""><td height=""20px"">
上一篇:◎<a href='show.asp?id="&rs("id")&"'>"&rs("title")&"</a>◎</td></tr>"
end if
rs.Close
set rs=nothing
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from web where id>"&request("id")&" and parent='"&request("parent")&"' order by id "
rs.open sql,conn,1,1
if rs.eof then
Response.Write"<tr bgcolor=""#eeeeee""><td height=""20px"">
下一篇:◎已经没有了◎</td></tr>"
else
Response.Write"<tr bgcolor=""#eeeeee""><td height=""20px"">
下一篇:◎<a href='show.asp?id="&rs("id")&"'>"&rs("title")&"</a>◎</td></tr>"
end if
rs.Close
set rs=nothing
%>