ASP程序设计培训_共11章.ppt

第11章 网络程序开发实例书店BBS论坛 11.1 11.1 书店书店BBSBBS论坛设计论坛设计 11.2 11.2 书店书店BBSBBS论坛的实现论坛的实现 本章主要介绍网络程序开发实例书 店BBS论坛。通过本章的学习，读者应该 掌握以下内容： 书店BBS论坛设计 书店BBS论坛的实现 11.1 书店BBS论坛设计 本章通过一个简单的BBS例子，完成 的主要功能包括发表新文章、回复文章， 并且可以统计单击次数和回复文章次数。 通过学习读者主要应体会BBS的设计思想 。 11.2 书店BBS论坛的实现 BBS论坛实现主要包括8个文件， 它们分别如下。 bbs.mdb：数据库文件，用来 存储文章信息。 index.asp：BBS首页，分页显 示文章信息。 odbc_conn.asp：连接数据文件。 function.asp：子程序文件。 count_hit.asp：计算单击次数的文件。 part.asp：显示文章的具体内容文件。 announce.asp：发表新文章文件。 re_announce.asp：发表回复文章文件。 1数据库文件bbs.mdb 为了保存信息，就要建立数据库，在 Access建立数据库文件bbs.mdb，并建立一 个表bbs，数据结构如图11-1所示。 图11-1 bbs数据结构 2BBS首页文件index.asp 首页的任务是显示数据库中的文章， 并提供发表新文章的超链接。 0 循环知道当前页结束或文件结尾 i=i+1 j=j-1 % 3数据库连接文件odbc_conn.asp 数据库连接文件的任务是完成连接数据库 的操作。 4自定义函数文件function.asp “ & i & “ “ end if next end sub % 5计算单击次数文件count_hits.asp 6显示具体内容文件part.asp 以下显示当前记录内容 dim sql,rs sql=“select * from bbs where bbs_id =“ & bbs_id set rs=db.execute(sql) % 以下显示所有回复文章内容 sql=“select title,body,user_name,submit_date from bbs where“ sql=sql & “ parent_id=“ & bbs_id 这个条件是为了显示所有回复的文章 sql=sql + “ order by submit_date desc“ set rs=db.execute(sql) dim I 这个变量是为了给回复的文章编号 I=0 DO WHILE NOT RS.EOF I=I+1 % 7发表新文章文件announce.asp 发表新文章 发表新文章 “ and request(“user_name“)“ then 如果有内容，则添加body字段 sql = sql & “,body“ svalues = svalues & “,“ & “ & body & “ end if sql = sql & “) “ & svalues & “)“ db.execute(sql) db.close 关闭connection对象 保存完毕，重定向回首页 response.redirect “index.asp?page_no=“ & session(“page_no“) end if % 8回复文章文件re_announce.asp 回复文章 “ and request(“user_name“)“ then sql = sql & “,body“ svalues = svalues & “,“ & “ & body & “ end if sql = sql & “) “ & svalues & “)“ db.execute(sql) 下面两句将原文章的回复数加1 sql=“update bbs set child=child+1 where bbs_id=“ & bbs_id