当前位置： 移动技术网 > IT编程>开发语言>.net > ASP程序新闻页上下篇功能实现

ASP程序新闻页上下篇功能实现

2018年04月10日  | 移动技术网IT编程  | 我要评论

华强北新亚洲张俊龙,雅虎站长天下,治理雾霾的上市公司

在ASP程序中新闻内页加上，上一篇，下一篇的功能实现介绍

在news.asp文件中添加如下代码：

<%
set backrsd=server.CreateObject("Adodb.recordset")
sql="select top 1 * from news where id<"&id&" order by id desc"
set backrsd=conn.execute(sql)
if backrsd.eof then
NewTitle4="已经是第一篇"
else
id2=backrsd("id")
NewTitle2=backrsd("title")
end If
backrsd.close

set nextrsd=server.CreateObject("adodb.recordset")
sql="select top 1 * from news where id>"&id&" order by id"
set nextrsd=conn.execute(sql)
if nextrsd.eof then

NewTitle3="已经是最后一篇 "
else
id1=nextrsd("id")
NewTitle1=nextrsd("title")
end If
nextrsd.close
%>

 

在<body>中加入如下代码
<br>上一篇：<%=NewTitle4%><a href='news.asp?newid=<%=id2%>'><%=NewTitle2%></a>
<br>下一篇：<%=NewTitle3%><a href='news.asp?newid=<%=id1%>'><%=NewTitle1%></a>
 


摘自 天天笑一下

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网