<%
sql = "Select newstype from news01 where id = "& id-1
Set Rs = conn.execute(sql)
if Rs.eof and Rs.bof then
Response.write "上一篇:已经没有了。"
else
Response.write "上一篇:<a href=intro-news.asp?id="& request.QueryString("id") &">"& Qcdn.HTMLcode(request.QueryString("id")+1) &"</a>"
end if
%><br>
<%
rs.close
sql = "Select newstype from news01 where id = "& id+1
Set Rs = conn.execute(sql)
if Rs.eof and Rs.bof then
Response.write "下一篇:已经没有了。"
else
Response.write "下一篇:<a href=intro-news.asp?id="& request.QueryString("id") &">"& Qcdn.HTMLcode(request.QueryString("id")+1) &"</a>"
end if
rs.close
%>
我想显示下一页的代码,可是不能正确显示,但也不提示任何出错信息!
第1个回答 2007-06-25
你的查询语句有问题,如果ID不是连续的时候网页就会出错,你仔细看看我写的SQL语句就会明白了。
这个是最简短的代码了用到了过程
其中nextnew(id,1)中的id是用到你当前页的id.
<div>上一篇:<%=nextnew(id,1)%><br>下一篇:<%=nextnew(id,2)%> </div>
<%
function nextnew(id2,o)
if o=1 then
sql="select top 1 id,title from news where id>"&id2&" order by id"
end if
if o=2 then
sql="select top 1 id,title from news where id<"&id2&" order by id desc"
end if
set rss=conn.execute(sql)
if rss.eof then
response.Write("没有了")
else
response.Write("<a href=news_show.asp?id="&rss("id")&">"&rss("title")&"</a>")
end if
end function
%>本回答被提问者采纳
这个是最简短的代码了用到了过程
其中nextnew(id,1)中的id是用到你当前页的id.
<div>上一篇:<%=nextnew(id,1)%><br>下一篇:<%=nextnew(id,2)%> </div>
<%
function nextnew(id2,o)
if o=1 then
sql="select top 1 id,title from news where id>"&id2&" order by id"
end if
if o=2 then
sql="select top 1 id,title from news where id<"&id2&" order by id desc"
end if
set rss=conn.execute(sql)
if rss.eof then
response.Write("没有了")
else
response.Write("<a href=news_show.asp?id="&rss("id")&">"&rss("title")&"</a>")
end if
end function
%>本回答被提问者采纳