新闻动态

   

您现在的位置是:首页 » 新闻动态 » 网站技术


ASP实现上一篇下一篇文章


人气: 1684  日期: 2011-12-16  作者: 大向网络  [打印本文]

简单介绍方法:

数据表articles中有id(文章ID)、title(文章标题)、content(文章内容)、addtime(文章发布时间)等其它各相关字段。

<!--数据库连接文件-->

<!--#include file="conn.asp"-->

<%

‘定义一个nextrs函数来找出下一篇的ID

function nextrs

nextrsd=server.CreateObject("adodb.recordset")

sql="select top 1 * from articles where id>"&a1&" order by id"

set nextrsd=conn.execute(sql)

if nextrsd.eof then

response.Write "下一篇:这是本分类下的最后一篇文章"

else

a2=nextrsd("id")

response.Write "下一篇:<a href='article.asp?id="&a2&"'>"&nextrsd("title")&"</a>"

end if

end function

’定义一个backrs函数来找出上一篇的ID

function backrs

backrsd=server.CreateObject("adodb.recordset")

sql="select top 1 * from articles where id<"&a1&" order by id desc"

set backrsd=conn.execute(sql)

if backrsd.eof then

response.Write "上一篇:这是本分类下的第一篇文章"

else

a0=backrsd("id")

response.Write "上一篇:<a href='article.asp?id="&a0&"'>"&backrsd("title")&"</a>"

end if

end function

‘取得传递过来的文章ID

ID=request("id")

sql="select * from articles where id="&id

set rs=conn.execute(sql)

a1=rs("id")

%>

<!--显示文章内容..............................-->

<!--调用前面定义的显示上一篇文章的函数--><% backrs %><br>

<!--调用前面定义的显示下一篇文章的函数--><% nextrs %>

<!--程序结束-->


  上一篇:前端开发小工具集合
  下一篇:html5自带得表单验证代码 做验证再也不用那么复杂了
相关文章(Tags:ASP)