exec="Select top 1 id,topic,content from photo where 分类="" and  ID<"&id&" order by id desc"
set rs=server.reateobject("adodb.recordset")
rs.open exec,conn,1,1

if rs.Recordcount>0 then
Response.write "<a href="/blog/?id="&rs("id")&"'>[" & rs("topic") & "]</a>"
else
Response.write "没有了"
End if

rs.close
set rs=nothing



exec="Select top 1 id,topic,content from photo where 分类="" and  ID>"&id&" order by id asc"
set rs=server.reateobject("adodb.recordset")
rs.open exec,conn,1,1

if rs.Recordcount>0 then
Response.write "<a href="/blog/?id="&rs("id")&"'>[" & rs("topic") & "]</a>"
else
Response.write "没有了"
End if

rs.close
set rs=nothing