asp实现 上一条 下一条 实例代码！

dim showprev
     set showprev=conn.execute("select top 1 * from jcl_photo where id > "&id&" order by id asc;")
     if showprev.eof then
     response.Write "上条没有了"
     else
     response.Write "<a href=""sub.asp?id="&showprev("id")&""">上一条</a>|||||"
     end if
     showprev.close
     set showprev=nothing
    dim shownext
     set shownext=conn.execute("select top 1 * from jcl_photo where id < "&id&" order by id DESC;")
     if shownext.eof then
     response.Write "下条没有了"
     else
     response.Write "<a href=""sub.asp?id="&shownext("id")&""">下一条</a>"
     end if
     shownext.close
     set shownext=nothing