文章 下一篇 上一篇功能

文章 上一篇 下一篇功能

VB code

<% id=request.QueryString("id")set rs=server.CreateObject("adodb.recordset") sqlstr="select  * from shenbao where S_ID="&idrs.open sqlstr,conn,1,3%>    中间的内容省略这段内容没有问题 加了下面的上下篇功能出错求人帮忙看看<%rs.close%><%    sql="select top 1 * from shenbao where S_ID < "&id&" order by S_ID"                     rs.open sqlstr,conn,1,3                     if rs.eof then                     response.Write("")                    else                    id1=rs("S_ID")                                    response.Write("<a href='shgxx.asp?id="&id1&"'>上一篇</a>")                    end if    rs.close%><%    sql="select top 1 * from shenbao where S_ID > "&id&" order by S_ID"                     rs.open sqlstr,conn,1,3                     if rs.eof then                     response.Write("")                    else                    id1=rs("S_ID")                                    response.Write("<a href='shgxx.asp?id="&id1&"'>下一篇</a>")                    end if%><%rs.closeconn.closeset rs=nothingset conn=nothing%>    

VB code

set nRs=server.CreateObject("adodb.recordset")sql="select S_ID from [shenbao] order by S_ID"nRs.open sql,conn,1,1nRs.find str&"="&int(id)nRs.MovePreviousif nRs.bof then    Response.write "没有上一条"else    Response.write "<a href='shgxx.asp?id="&nRs(0)&"'>上一条</a> "end ifnRs.Move 2if nRs.eof then    Response.write "没有下一条"else    Response.write "<a href='shgxx.asp?id="&nRs(0)&"'>下一条</a>"end ifnRs.close:set nRs=Nothing