ASP程序设计培训共11章

1、 本章主要介绍网络程序开发实例本章主要介绍网络程序开发实例书书 店店BBS论坛。通过本章的学习，读者应该论坛。通过本章的学习，读者应该 掌握以下内容：掌握以下内容： 书店书店BBS论坛设计论坛设计 书店书店BBS论坛的实现论坛的实现 本章通过一个简单的本章通过一个简单的BBS例子，完成例子，完成 的主要功能包括发表新文章、回复文章，的主要功能包括发表新文章、回复文章， 并且可以统计单击次数和回复文章次数。并且可以统计单击次数和回复文章次数。 通过学习读者主要应体会通过学习读者主要应体会BBS的设计思想。的设计思想。 BBS论坛实现主要包括论坛实现主要包括8个文件，个文件， 它们分别如下。它们分

2、别如下。 bbs.mdb：数据库文件，用来数据库文件，用来 存储文章信息。存储文章信息。 index.asp：BBS首页，分页显首页，分页显 示文章信息。示文章信息。 odbc_conn.asp：连接数据文件。连接数据文件。 function.asp：子程序文件。子程序文件。 count_hit.asp：计算单击次数的文件。计算单击次数的文件。 part.asp：显示文章的具体内容文件。显示文章的具体内容文件。 announce.asp：发表新文章文件。发表新文章文件。 re_announce.asp：发表回复文章文件。发表回复文章文件。 为了保存信息，就要建立数据库，在为了保存信息，就要建立

3、数据库，在 Access建立数据库文件建立数据库文件bbs.mdb，并建立一并建立一 个表个表bbs，数据结构如图数据结构如图11-1所示。所示。 图11-1 bbs数据结构 首页的任务是显示数据库中的文章，首页的任务是显示数据库中的文章， 并提供发表新文章的超链接。并提供发表新文章的超链接。 0 循环知道当前页结束或文件结尾循环知道当前页结束或文件结尾 i=i+1 j=j-1 % 数据库连接文件的任务是完成连接数据库数据库连接文件的任务是完成连接数据库 的操作。的操作。 % private sub select_page(page_no,total_page) response.write

4、请选择页码请选择页码: dim i for i=1 to total_page if i=page_no then response.write i &   else r e s p o n s e . w r i t e & i &   end if next end sub % 以下显示当前记录内容以下显示当前记录内容 dim sql,rs sql=select * from bbs where bbs_id = & bbs_id set rs=db.execute(sql) % 以下显示所有回复文章内容以下显示所有回复文章内容 sql=select title,body,

5、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 % 发表新文章发表新文章 发表新文章发表新文章 % if request(title) and request(user_name) then di

6、m title,body,layer,parent_id,child,hits,ip,user_ name 定义变量方便使用定义变量方便使用 title=request.form(title) 返回文章标题返回文章标题 body=request.form(body) 返回文章内容返回文章内容 user_name=request.form(user_name) 返回作者姓名返回作者姓名 layer=1 这是第一层这是第一层 parent_id=0 因为是第一层，父编号设为因为是第一层，父编号设为0 child=0 回复文章数目为回复文章数目为0 hits=0 点击数为点击数为0 ip=Reque

7、st.ServerVariables(remote_addr ) 作者作者IP地址地址 以下将文章保存到数据库以下将文章保存到数据库 dim sql,svalues SQL = Insert into bbs(title,layer,parent_id,child,hits,ip,user_n ame,submit_date svalues = values( & title & , & layer & , & parent_id & , &child & , & hits & , & ip & , & user_name & , & date() & if body then 如果有内容，则

8、添加如果有内容，则添加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 % 回复文章回复文章 % if request(title) and request(user_name) then dim b

9、ody,layer,parent_id,child,hits,ip,user_nam e 定义变量方便使用定义变量方便使用 title=request.form(title) 返回文章标题返回文章标题 body=request.form(body) 返回文章内容返回文章内容 user_name=request.form(user_name) 返回作者姓名返回作者姓名 layer=2 这是第二层这是第二层 parent_id=bbs_id 因为是第二层，父编号为因为是第二层，父编号为bbs_id child=0 回复文章数目为回复文章数目为0 hits=0 点击数为点击数为0 ip=Request.ServerVariables(remote_addr ) 作者作者IP地址地址 以下将文章保存到数据库以下将文章保存到数据库 dim sql,svalues sql = Insert into bbs(title,layer,parent_id,child,hits,ip,user_n ame,submit_date svalues = values( & title & , & layer & , & parent_id & , &child & , & hits