文章 上一篇 下一篇功能
- 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