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

第9章 网络程序开发实例书店留言板,9.1 书店留言板的设计 9.2 书店留言板的实现,本章主要介绍网络程序开发实例书店留言板。通过本章的学习，读者应该掌握以下内容： 书店留言板的设计 书店留言板的实现,9.1 书店留言板的设计,本章我们主要利用数据库存取组件开发留言板。将留言信息保存到数据库中，就可方便地进行查询、删除和添加操作。,9.2 书店留言板的实现,书店留言板主要包括以下5个文件。 guest.mdb：数据库文件，用来存储留言信息。 index.asp：留言板首面，显示留言信息和添加留言。, add.asp：添加留言文件，将在首页中的留言内容添加到数据库中。 delete.asp：删除留言文件，输入正确密码后，删除指定的留言信息。 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“ 这里用了两个字段排序,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(“ & name & “ 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.close 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“ 重定向回首页 els