厦门团购,闪团网,拉手网,日团网,厦团网,E团网,零点团,易购乐

ASP产品或新闻中显示上一条下一条

<%

   Set rs=Server.CreateObject("Adodb.RecordSet")
 rs.Open "Select top 1 * from products where ID>"&ID&" order by id asc",conn,1,1
 IF not rs.eof and not rs.bof Then
 response.write" <a href='?id="&rs("id")&"'>[page down]</a>"
 else
 response.write" No page down"
 end if
 rs.close
 set rs=nothing
   Set rs=Server.CreateObject("Adodb.RecordSet")
 rs.Open "Select top 1 * from products where ID<"&ID&" order by id desc",conn,1,1
 IF not rs.eof and not rs.bof Then
 response.write"<a href='?id="&rs("id")&"'>[page up]</a>"
 else
 response.write" No page up"
 end if
 rs.close
 set rs=nothing
%>