新闻内页 “上一篇”“下一篇”

< font  class ="font12D" > 首篇： <% = nextnew(id, 3 ) %>  上一篇： <% = nextnew(id, 1 ) %>  下一篇： <% = nextnew(id, 2 ) %>  尾篇  <% = nextnew(id, 4 ) %> </ font >
<%  
function nextnew(id2,o) 
if o=1 then 
sql="select top 1 * from news where id>"&id2&" order by id" 
end if 
if o=2 then 
sql="select top 1 * from news where id<"&id2&" order by id desc" 
end if 
if o=3 then 
sql="select top 1 * from news" 
end if
if o=4 then 
sql="select top 1 * from news order by id desc" 
end if  


set rss=conn.execute(sql) 
if rss.eof then 
response.Write("没有了") 
else 
response.Write("<a href=syjwread.asp?id="&rss("id")&">"&rss("newsname")&"</a>") 
end if 
end function 
%>     

转载于:https://www.cnblogs.com/tjsquall/archive/2008/03/26/1122410.html