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

1、第9章 网络程序开发实例书店留言板,9.1 书店留言板的设计 9.2 书店留言板的实现,本章主要介绍网络程序开发实例书店留言板。通过本章的学习，读者应该掌握以下内容： 书店留言板的设计 书店留言板的实现,9.1 书店留言板的设计,本章我们主要利用数据库存取组件开发留言板。将留言信息保存到数据库中，就可方便地进行查询、删除和添加操作。,9.2 书店留言板的实现,书店留言板主要包括以下5个文件。 guest.mdb：数据库文件，用来存储留言信息。 index.asp：留言板首面，显示留言信息和添加留言。, add.asp：添加留言文件，将在首页中的留言内容添加到数据库中。 delete.asp：删

2、除留言文件，输入正确密码后，删除指定的留言信息。 odbc_conn.asp：连接数据库文件。,1建立数据库文件guest.mdb 2留言板首页index.asp 留言板首页的任务是添加留言表单并显示留言内容。表单填写完毕后，单击“确定”传送到add.asp去处理，处理完毕后再引导回首页。,% 现在开始显示已有留言 Dim Sql,rs 定义变量 Sql=SELECT guest_id,title,body,name,email,submit_date FROM guest Sql=Sql + order by submit_date desc,guest_id desc 这里用了两个字段排序

3、,SET rs=db.execute(Sql) 返回一个Recordset对象 If Not rs.bof And Not rs.eof then 如果有记录，就接着执行 %,3添加留言文件add.asp ,% dim title,body,name,email title=request.form(title) body=request.form(body) name=request.form(name) email=request.form(email) Dim Sql,sValues Sql = Insert into guest(name,sValues = values( & nam

4、e & Sql = Sql & ,title sValues = sValues & , & title & If body Then Sql = Sql & ,body sValues = sValues & , & body & End If,If email Then Sql = Sql & ,email sValues = sValues & , & email & End If,Sql = Sql & ,submit_date sValues = sValues & , &now() & Sql = Sql & ) & sValues & ) db.Execute(Sql) db.c

5、lose response.redirect index.asp %,4删除留言文件 delete.asp 删除留言 , 请输入删除密码: ,% if request(password)=123 then 如果输入密码为123，则执行删除 dim sql,guest_id guest_id=request.querystring(guest_id) 返回要删除的留言记录号 sql=delete from guest where guest_id = & guest_id db.Execute(sql) db.close 关闭对象,Response.Redirect index.asp 重定向回首页 e