ASP编程：文章体系中“上篇、下篇”效果的制造
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提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。 Session:这个存储跟客户端会话过程的数据，默认20分钟失效 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组
页:
[1]