文章系统中“上篇、下篇”的制作

字体大小: 小中大

作者: dscao | 分类: 经典转载 | 浏览: | 评论: 0

文章系统中“上篇、下篇”效果的制作
作者:Hmily

<!--数据库连接文件-->
<!--#i nclude 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 %>
<!--程序结束-->

大胜博客

保持微笑，快乐每一天！珍爱生命，珍惜现在！

关于博主

订阅本博客

搜索博客文章

博客文章: 文章系统中“上篇、下篇”的制作

文章编辑: 可视编辑
UBB编辑

Tags:

文章系统中“上篇、下篇”的制作

字体大小: 小 中 大

作者: dscao | 分类: 经典转载 | 浏览: | 评论: 0

最近发表

热门文章

随机文章

Copyright DSCAO.COM . Some Rights Reserved.

Powered By Z-Blog 1.8 Walle Build 91204 Theme: DeepEyes Designed By esloy.haphic [Login]

大胜博客

保持微笑，快乐每一天！珍爱生命，珍惜现在！

关于博主

订阅本博客

搜索博客文章

博客文章: 文章系统中“上篇、下篇”的制作

文章编辑: 可视编辑 UBB编辑

Tags:

文章系统中“上篇、下篇”的制作

字体大小: 小 中 大

作者: dscao | 分类: 经典转载 | 浏览: strBatchCount+="spn178=178," | 评论: 0

最近发表

热门文章

随机文章

Copyright DSCAO.COM . Some Rights Reserved.

Powered By Z-Blog 1.8 Walle Build 91204 Theme: DeepEyes Designed By esloy.haphic [Login]

文章编辑: 可视编辑
UBB编辑

字体大小: 小中大

作者: dscao | 分类: 经典转载 | 浏览: | 评论: 0