版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、本章主要介绍网络程序开发实例本章主要介绍网络程序开发实例书书店店BBS论坛。通过本章的学习,读者应该论坛。通过本章的学习,读者应该掌握以下内容:掌握以下内容: 书店书店BBS论坛设计论坛设计 书店书店BBS论坛的实现论坛的实现本章通过一个简单的本章通过一个简单的BBS例子,完成例子,完成的主要功能包括发表新文章、回复文章,的主要功能包括发表新文章、回复文章,并且可以统计单击次数和回复文章次数。并且可以统计单击次数和回复文章次数。通过学习读者主要应体会通过学习读者主要应体会BBS的设计思想。的设计思想。BBS论坛实现主要包括论坛实现主要包括8个文件,个文件,它们分别如下。它们分别如下。 bbs.
2、mdb:数据库文件,用来数据库文件,用来存储文章信息。存储文章信息。 index.asp:BBS首页,分页显首页,分页显示文章信息。示文章信息。 odbc_conn.asp:连接数据文件。连接数据文件。 function.asp:子程序文件。子程序文件。 count_hit.asp:计算单击次数的文件。计算单击次数的文件。 part.asp:显示文章的具体内容文件。显示文章的具体内容文件。 announce.asp:发表新文章文件。发表新文章文件。 re_announce.asp:发表回复文章文件。发表回复文章文件。为了保存信息,就要建立数据库,在为了保存信息,就要建立数据库,在Access建
3、立数据库文件建立数据库文件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 请选择页码请选择页码: dim i fo
4、r 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 nextend sub% 以下显示当前记录内容以下显示当前记录内容 dim sql,rs sql=select * from bbs where bbs_id = & bbs_id set rs=db.execute(sql) % 以下显示所有回复文章内容以下显示所有回复文章内容 sql=select title,bod
5、y,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_nam
6、e) then dim 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 点击数为点击数为0i
7、p=Request.ServerVariables(remote_addr) 作者作者IP地址地址 以下将文章保存到数据库以下将文章保存到数据库 dim sql,svalues SQL = Insert into bbs(title,layer,parent_id,child,hits,ip,user_name,submit_date svalues = values( & title & , & layer & , & parent_id & , &child & , & hits & , & ip &a
8、mp; , & user_name & , & date() & if body then 如果有内容,则添加如果有内容,则添加body字段字段 sql = sql & ,body svalues = svalues & , & & body & end if sql = sql & ) & svalues & ) db.execute(sql) db.close 关闭关闭connection对象对象 保存完毕,重定向回首页保存完毕,重定向回首页 response.redirect index.as
9、p?page_no= & session(page_no) end if % 回复文章回复文章 % if request(title) and request(user_name) then dim body,layer,parent_id,child,hits,ip,user_name 定义变量方便使用定义变量方便使用 title=request.form(title) 返回文章标题返回文章标题 body=request.form(body) 返回文章内容返回文章内容user_name=request.form(user_name) 返回作者姓名返回作者姓名 layer=2 这是第二
10、层这是第二层 parent_id=bbs_id 因为是第二层,父编号为因为是第二层,父编号为bbs_id child=0 回复文章数目为回复文章数目为0 hits=0 点击数为点击数为0ip=Request.ServerVariables(remote_addr) 作者作者IP地址地址 以下将文章保存到数据库以下将文章保存到数据库 dim sql,svalues sql = Insert into bbs(title,layer,parent_id,child,hits,ip,user_name,submit_date svalues = values( & title & ,
11、 & layer & , & parent_id & , &child & , & hits & , & ip & , & user_name & , & date() & if body then sql = sql & ,body svalues = svalues & , & & body & end if sql = sql & ) & svalues & ) db.execute(sql) 下面两句将原文章的回复数加
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 末梢营服网格CEO白皮书项目运营白皮书考试
- 管理者PDP行为风格测试
- 11高中数学新教材课堂导学案椭圆的简单几何性质
- 中国食品饮料相关行业投资规划报告范本
- 全屋板式家具相关项目投资计划书范本
- 玻璃制光学元件相关行业投资方案范本
- 妊娠诊断制剂相关行业投资方案
- 云协作提升经纪效率
- 高山民宿(2022年抚顺本溪辽阳中考语文试卷记叙文阅读题及答案)
- 班级读书会主题班会
- 全国职业院校技能大赛高职组(商务数据分析赛项)备赛试题库(含答案)
- 2024上海烟草集团招聘高频考题难、易错点模拟试题(共500题)附带答案详解
- 法律职业资格考试客观题(试卷二)2025年自测试题与参考答案
- 北师大版小学一年级上册数学口算试题(全套)
- 地理标志产品-鄂尔多斯红葱
- 2024年秋季新人教版小学数学教学课件1.1.1《1~5的认识》
- 大闸蟹供货合同范本
- 《大数据分析技术》课程标准
- 人工智能与机器人技术创新大会主持词
- 2024年非税收入考试题库(浓缩500题)
- 北师大版初一(上)数学第5讲:有理数(学生版)
评论
0/150
提交评论