Question

asp中的“上一篇”“下一篇”是怎样做出来的

我的网页想有“上一篇”“下一篇”的功能~~~ 网页头如下: <!--#include file="conn.asp"--> <% set rs=server.CreateObject("adodb.recordset") sql="select * from news where id ="&request("id") rs.open sql,conn,1,3 if rs.eof then error("<p><span lang=zh-cn>无此文章</span></p>") rs("hit")=rs("hit")+1 rs.update %> <%=rs("title")%>是标题名字 分别把上下俩篇的标题显示出来再加上链接。我是新手，请高手指教！

Answer 1

<div>上一篇：<%=nextnew(request("id"),1)%><br>下一篇：<%=nextnew(request("id"),2)%> </div> <% function nextnew(nowid,i) if i=1 then sql="select top 1 * from news where id>"&nowid&" order by id asc" end if if i=2 then sql="select top 1 * from news where id<"&nowid&" order by id desc" end if set next_rs=conn.execute(sql) if next_rs.eof then response.Write("没有了") else response.Write("<a href=本地.asp?id="&next_rs("id")&">"&next_rs("title")&"</a>") end if end function %>