|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp是基于web的一种编程技术,可以说是cgi的一种。它可以完成以往cgi程序的所有功能,如计数器、留言簿、公告板、聊天室等等。 之前已经参考过一个网站的源码,是利用ID+1和ID-1的举措来判别高低篇的。在实践利用过程当中,发明一个成绩:当删除数据库中的一篇文章时,就会形成ID不一连,假如用ID+1和ID-1来判别就会呈现找不到纪录。以是程序并非十分的完善。
在我们所先容的ASP代码中,是经由过程查询年夜于以后ID的第一笔记录来找出下一篇的ID,查询小于以后ID的第一笔记录来找出上一篇的ID,如许就算ID不一连也能够一般显现了。(程序代码也是参阅过典范论坛相干贴子提醒所制造的)
复杂先容办法:
数据表articles中有id(文章ID)、title(文章题目)、content(文章内容)、addtime(文章公布工夫)等别的各相干字段。
<!--数据库毗连文件-->
<!--#includefile="conn.asp"-->
<%
`界说一个nextrs函数来找出下一篇的ID
functionnextrs
nextrsd=server.CreateObject("adodb.recordset")
sql="selecttop1*fromarticleswhereid>"&a1&"orderbyid"
setnextrsd=conn.execute(sql)
ifnextrsd.eofthen
response.Write"下一篇:这是天职类下的最初一篇文章"
else
a2=nextrsd("id")
response.Write"下一篇:<ahref=article.asp?id="&a2&">"&nextrsd("title")&"</a>"
endif
endfunction
`界说一个backrs函数来找出上一篇的ID
functionbackrs
backrsd=server.CreateObject("adodb.recordset")
sql="selecttop1*fromarticleswhereid<"&a1&"orderbyiddesc"
setbackrsd=conn.execute(sql)
ifbackrsd.eofthen
response.Write"上一篇:这是天职类下的第一篇文章"
else
a0=backrsd("id")
response.Write"上一篇:<ahref=article.asp?id="&a0&">"&backrsd("title")&"</a>"
endif
endfunction
`获得传送过去的文章ID
ID=request("id")
sql="select*fromarticleswhereid="&id
setrs=conn.execute(sql)
a1=rs("id")
%>
<!--显现文章内容..............................-->
<!--挪用后面界说的显现上一篇文章的函数--><%backrs%><br>
<!--挪用后面界说的显现下一篇文章的函数--><%nextrs%>
<!--程序停止-->
程度无限,大概在代码上另有些不敷的地方,如呈现Bug,请实时赐与斧正。若有疑问的地方,请登录http://www.webjx.com/bbs发贴扣问。由于ASP提供的是一对多的服务,所以用户的一些特殊需求很难得到满足。 |
|