ASP文章系统解决方案

首先感谢V37斑竹对我的帮助,这个方案解决了显示“上一篇下一篇”和相关文章的问题,

贴出来让大家分享。

以前看到一个帖子讲用ID+1和ID-1的办法判断“上一篇下一篇”,

在用的过程中发现一个问题:当删除数据库中的一篇文章时,就会造成ID不连续,

如果用ID+1和ID-1来判断就会出现找不到记录的问题,在这个程序里,

通过查询大于当前ID的第一条记录来找出下一篇的ID,

查询小于当前ID的第一条记录来找出上一篇的ID,这样就算ID不连续也可以正常显示了。

至于相关文章的显示则是在数据表里添加一个boardid字段来区分不同的文章栏目,

在每次添加一篇新文章时加上boardid号就可以了,

显示一篇文章时根据boardid来查询数据库就能显示出相关文章。

数据表articles中的字段有id,boardid,title,content,author,addtime。

<!--程序开始-->
'定义一个thenext函数来找出下一篇的ID,如果当前记录已经是最后一条记录,则输出文字“没有了”
<%
function thenext
newrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from articles where id>"&a1&" order by id"
set newrs=conn.execute(sql)
if newrs.eof then
response.Write("没有了")
else
a2=newrs("id")
response.Write("<a href='view.asp?id="&a2&"'>下一篇</a>")
end if
end function
%>
'定义一个thehead函数来找出下一篇的ID,如果当前记录已经是最前面的一条记录,则输出文字“没有了”
<%
function thehead
headrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from articles where id<"&a1&" order by id desc"
set headrs=conn.execute(sql)
if headrs.eof then
response.Write("没有了")
else
a0=headrs("id")
response.Write("<a href='view.asp?id="&a0&"'>上一篇</a>")
end if
end function
%>
'数据库连接文件
<!--#include file="conn.asp"-->
'取得传递过来的ID,显示文章标题作者和内容
<%
id=request("id")
sql="select * from articles where id="&id
set rs=conn.execute(sql)
%>
<%
boardid=rs("boardid")
%>
<title>文章系统-<% =rs("title") %></title>
<body leftmargin="0" topmargin="0">
<!--#include file="top.asp" -->
<%Do While Not rs.EOF%>
<table width="773" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td width="576" align="left"><table width="557" border="0" cellspacing="5" cellpadding="4" align="left"> <tr> <td colspan="2" align="center">
<span style="font-size:9pt color:#efefef"><%= rs("title") %><br> <div align="right">
<span style="font-size:9pt color:#efefef">作者:<%= rs("author") %></span></div> </span></td></tr><tr><td colspan="2" >
<span style="font-size:9pt color:#efefef">
<!--将数据库的资料取出,经过编码后输出,保持输入时的格式不变-->
<%= replace(server.HTMLEncode(rs("content")),chr(13),"<br>") %></span></td></tr><% a1=rs("id") %><tr><td width="269" align="right">
<!--调用前面定义的显示上一篇的函数-->
<% thehead %>
</td>
<td width="257" align="right">
<!--调用前面定义的显示下一篇的函数-->
<% thenext %></td></tr>
<% rs.MoveNext
Loop
%></table></td><td width="217" valign="top" align="left">相关文章:
'根据当前文章的栏目号,找出同一栏目的文章
<%sql="select * from articles where boardid="&boardid&""
set rs=conn.execute(sql)%>
<%Do While Not rs.EOF %>
<table width="207" border="0" cellspacing="2" cellpadding="2">
<tr>
<td height="20">
<a href="view.asp?id=<%=rs("id")%>">
<%= rs("title") %>
</a></td></tr></table>
<% rs.MoveNext%><%Loop%></td>
</tr>
</table>
<!--#include file="copyright.asp" -->
</body>
<!--程序结束-->

时间: 2024-10-03 18:53:55

ASP文章系统解决方案的相关文章

ASP文章系统解决方案实现上一页下一页第1/2页_ASP基础

首先感谢V37斑竹对我的帮助,这个方案解决了显示"上一篇下一篇"和相关文章的问题,贴出来让大家分享. 以前看到一个帖子讲用ID+1和ID-1的办法判断"上一篇下一篇",在用的过程中发现一个问题:当删除数据库中的一篇文章时,就会造成ID不连续,如果用ID+1和ID-1来判断就会出现找不到记录的问题,在这个程序里,通过查询大于当前ID的第一条记录来找出下一篇的ID,查询小于当前ID的第一条记录来找出上一篇的ID,这样就算ID不连续也可以正常显示了. 至于相关文章的显示则

ASP文章系统解决方案实现上一页下一页第1/2页

首先感谢V37斑竹对我的帮助,这个方案解决了显示"上一篇下一篇"和相关文章的问题,贴出来让大家分享. 以前看到一个帖子讲用ID+1和ID-1的办法判断"上一篇下一篇",在用的过程中发现一个问题:当删除数据库中的一篇文章时,就会造成ID不连续,如果用ID+1和ID-1来判断就会出现找不到记录的问题,在这个程序里,通过查询大于当前ID的第一条记录来找出下一篇的ID,查询小于当前ID的第一条记录来找出上一篇的ID,这样就算ID不连续也可以正常显示了. 至于相关文章的显示则

asp文章系统的一个小问题

最近,帮忙学院整一个网站,准备将以前自己写的东西更改一下,使之更能符合学院要求,所以就测试了一下,发现一个问题,就是用session存储数据时,如果是同一个人在同一台机器上开两个Ie登陆的话,就有可能出现用户刷新页面不正常的情况,以前发现过这样的问题,今天测试的时候还有,不知道老师们又没有发现,以前的伙计说老师永远不可能发现,他们只管好不好使,不管它时候又bug,不过为了负责的态度一定的好好修改一下,毕竟是为了自己发展阿!

创想商务B2C建站系统解决方案

我们针对产品在线直销方面构建了一个优秀的建站系统平台,这就是网亚NET!B2C商店系统解决方案,在这个平台上把产品全方位展示与用户在线购买支付上作了一个有机的整合:针对个人网店创业方面,能够以低成本投入最快的实现网上开店做生意盈利的愿望:在针对企业网店方面,企业直接把商品放在自己的网店销售,能够降低产品运输或推广过程中产生的成本,降低产品最终销售价格,从而给消费者的购买减轻负担,产品信息传递更快更直接,企业网店,帮助企业有效降低成本,是企业抢占市场与消费者的强大利器.网亚NET!B2C网店系统采

另一种显示文章系统的思路-1

显示 现在很多人用Access数据库实现文章显示系统,由于Access数据库本身的缺陷,用一个字段存放文章内容,我以为对于访问量大,文章数目多的网站,很容易产生错误,此举是极不明智的,经过实际比较,笔者得出另一种实现文章系统的方法,那就是采用Access+文本文件 的模式.其中Access数据库用来存每篇文章的一般信息,而文本文件用来存放具体文章内容.具体实现方法实现如下:先用Access建立一个数据库wzozg,里面只有一个表ozg,存放文章一般信息,字段如下:字段名 类型 含义wid 自动编

如何采集静态文章系统_小偷/采集

目前网站基本上都生成静态的了,对于那些技术不是很高深的小偷来说,去偷一个文件名是以时间加随机数来命名的文章系统,有点困难,而目前的大多数静态的系统都是以这样的方式命名的,这个不像有asp?id=1 to asp?id=100这样好这个命名是没规律的,那么,这种文章系统怎么样采呢,以下就以自已的站www.asp315.com这例来写一篇关于采集静态文章系统的教程吧!  首先,我们打开www.asp315.com你会发现教程很多,我们随便点一个进去吧,就点JSP教程吧,里面还分了子类,这个不管我们就

认知科学的全球领导者在云端构建在线记忆评估系统解决方案

作为现实世界中的Windows Azure系列的一部分,我联系了Cogniciti公司总裁Michael Meagher,来了解该公司是如何运用Windows Azure来建立它的在线大脑健康评估系统解决方案的.点击这里了解Cogniciti公司的成功案例.接下来我们看Michael Meagher总裁是怎么说的. Himanshu Kumar Singh(以下简称HKS):请简介一下您的公司.Michael Meagher(以下简称MM): Cogniciti是一家位于加拿大的营利性合资企业,

如何采集静态文章系统

目前网站基本上都生成静态的了,对于那些技术不是很高深的小偷来说,去偷一个文件名是以时间加随机数来命名的 文章系统,有点困难,而目前的大多数静态的系统都是以这样的方式命名的,这个不像有asp?id=1 to asp?id=100这样好 这个命名是没规律的,那么,这种文章系统怎么样采呢,以下就以自已的站www.asp315.com这例来写一篇关于采集静态文 章系统的教程吧!   首先,我们打开www.asp315.com你会发现教程很多,我们随便点一个进去吧,就点JSP教程吧,里面还分了子类,这个不

公安110接处警GIS系统解决方案

解决 公安110接处警GIS系统解决方案    对执行任务的巡警车辆进行监控.指挥.调度以及交通事故和110报警处警的辅助处理.监控中心可以实时地掌握车辆的动态.迅速.及时地做出指挥决策,从而大大提高处警的效率. 1.轮询监控功能     系统按照一定的周期将被监控车辆的信息轮流显示在监视终端上,可以从屏幕上直观地看到被控车辆的位置在不停地实时变化. 2.点名监控系统 系统根据指挥人员的特别要求,向指定的车辆发布指令,使其按照较短的时间周期向监控中心发送信息.点名方式为:     ◆从表格中点名