ASP另类方法实现上一条下一条的代码

ASP另类方法实现上一条下一条的代码

<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 id from news where id < "&Cint(request("id"))&" order by id"
rs.Open sql,conn,1,1
if not rs.eof then
%>
<a href="news.asp?id=<%=Rs("id")%>">上一页</a>
<%
end if
rs.close
set rs=nothing
%>
-------------------------
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 id from news where id > "&Cint(request("id"))&" order by id"
rs.Open sql,conn,1,1
if not rs.eof then
%>
<a href="news.asp?id=<%=Rs("id")%>">下一页</a>
<%
end if
rs.close
set rs=nothing
%>


引用通告: 查看所有引用 | 我要引用此文章
Tags: ASP上一条下一条的代码
收藏到网摘:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.