注册 登录
编程论坛 ASP技术论坛

asp如何实现文章例表上一篇下一篇标题形式出现的,求帮助

gzcmzs 发布于 2012-03-26 11:54, 483 次点击
<%
pid1=rs("n_id")
function Getpre
sql="select top 1 * from news where id>"&pid1&" order by n_id"
set rs=conn.execute(sql)
if rs.eof or rs.bof then
response.Write("没有新闻了")
else
pid2=rs("n_id")
response.Write("<a href='news.asp?id="&pid2&"'>"&rs("n_title")&"</a>")
end if
end function

function Getnext
sql="select top 1 * from news where id<"&pid1&" order by n_id desc"
set rs=conn.execute(sql)
if rs.eof then
response.Write("没有新闻了")
else
pid3=rs("n_id")
response.Write("<a href='news.asp?id="&pid3&"'>"&rs("n_title")&"</a>")
end if
end function
%>
上一篇:<% Getpre %>
下一篇:<% Getnext %>
access数据库列表为
只有本站会员才能查看附件,请 登录
4 回复
#2
gzcmzs2012-03-26 11:55
实现效果为
只有本站会员才能查看附件,请 登录

文章列表就是不出来,有高手帮助一下的吗
#3
wangjy5002012-03-26 20:49
function改成sub
#4
gzcmzs2012-03-31 16:02
回复 3楼 wangjy500
还是不可以的哦,
都是老样子
我找了好久了,都找不到方法
#5
gzcmzs2012-03-31 17:49
搞定了,代码如下,如果有需要的,可以照一下,
<%
id=request("id")
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from news where n_id="&request("id")-1
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<b>上一篇:</b>已经没有了
<%else%>
<b>上一篇:</b><a href="news.asp?id=<%=rs("n_id")%>"><%=rs("n_title")%></a>
<%end if%>
<%
id=request("id")
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from news where n_id="&request("id")+1
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<b>下一篇:</b>已经没有了
<%else%>
&nbsp;&nbsp;&nbsp;<b>下一篇:</b><a href="news.asp?id=<%=rs("n_id")%>"><%=rs("n_title")%></a>
<%end if%>

实现例子番禺创美装饰:http://www.
1