[组图]手把手教你制作ASP留言本（5）

三、制作添加留言页面，实现留言功能

　　我们是做的一个留言本，实现留言的功能就十分重要了，要不然就算不上留言本了，接下来就一起来实现这个功能。

　　用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是请求表单的意思
rs("user")=user　　　　'将请求到的表单值传向记录集中代表user字段的名称
rs("qq")=qq　　　　'将请求到的表单值传向记录集中代表qq字段的名称
rs("email")=email　　　　'将请求到的表单值传向记录集中代表email字段的名称
rs("content")=content　　　　'将请求到的表单值传向记录集中代表content字段的名称
rs.update　　　　'更新一下数据库中的数据。
rs.close　　　　'关闭记录集
set rs=nothing　　　　'销毁记录集
conn.close　　　　'关闭数据库连接
set rs=nothing　　　　'销毁数据库连接
％>

　　代码拷贝框

<％@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是请求表单的意思
rs("user")=user　　　　'将请求到的表单值传向记录集中代表user字段的名称
rs("qq")=qq　　　　'将请求到的表单值传向记录集中代表qq字段的名称
rs("email")=email　　　　'将请求到的表单值传向记录集中代表email字段的名称
rs("content")=content　　　　'将请求到的表单值传向记录集中代表content字段的名称
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！这个留言功能的实现教程就到这里了。