三、制作添加留言页面,实现留言功能.doc

五、制作添加留言页面，实现留言功能 我们是做的一个留言本，实现留言的功能就十分重要了，要不然就算不上留言本了，接下来就一起来实现这个功能。 　　用DW制作以下这样的页面： 设置表单的属性如下： 姓名：设置为单行文本域，名称为“user”QQ号：设置为单行文本域，名称为“qq”邮件：设置为单行文本域，名称为“email”内容：设置为多行文本域，名称为“content”最后将表单的“Action”动作指向addsave.asp就可以了。 保存文档名为add.asp，OK！下一步！ 表单是做好了，但是还需要后台程序的支持，一起来使用ASP编写一个添加留言处理程序，添加留言代码： %@LANGUAGE=VBScript codepage=936%　　　　表明ASP使用的是VB脚本!--#include file=conn.asp--　　　　是用include包含文件，这里包含的是数据库连接文件%set rs=server.createobject(adodb.recordset)　　　　利用Server内置对象创建一个记录集sql=select user,qq,email,content,data from main　　　　SQL语句，上节有详解rs.open sql,conn,1,3　　　　用刚才创建的名为rs的记录集打开数据库，设置属性为插入数据rs.addnew　　　　用记录集新添加一条数据user=request.form(user)　　　　请求表单的变量，定义变量为user，这里request.form是请求表单的意思qq=request.form(qq)　　　　请求表单的变量，定义变量为qq，这里request.form是请求表单的意思email=request.form(email)　　　　请求表单的变量，定义变量为email，这里request.form是请求表单的意思content=request.form(content)　　　　请求表单的变量，定义变量为content，这里request.form是请求表单的意思request.form(data) 请求表单的变量，定义变量为，这里request.form是请求表单的意思rs(user)=user　　　　将请求到的表单值传向记录集中代表user字段的名称rs(qq)=qq　　　　将请求到的表单值传向记录集中代表qq字段的名称rs(email)=email　　　　将请求到的表单值传向记录集中代表email字段的名称rs(content)=content　　　　将请求到的表单值传向记录集中代表content字段的名称rs(data)=formatdatetime(now,0) 将请求到的表单值传向记录集中代表字段的名rs.update　　　　更新一下数据库中的数据。rs.close　　　　关闭记录集set rs=nothing　　　　销毁记录集conn.close　　　　关闭数据库连接set rs=nothing　　　　销毁数据库连接%将以上文件存为addsave.asp，测试下！咦？怎么填好提交以后就出现空白了，为什么？这是因为在addsave.asp中没有设置数据成功提交好后的转向页面，这里不用做那么复杂的，只要做一个刷新页面就行了，在程序的后面加上： meta http-equiv=refresh content=2;URL=index.asp 然后在页面中添加提示信息，比如：“您的留言已经成功提交，2秒钟后将自动返回留言本首页” 好了，这个留言的功能总算实现了，最后再测试下，看看效果！ OK！这个留言功能的实现教程就到这里了。 1