ASP留言本的制作方法（第4页）

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

 

　　我们是做的一个留言本，实现留言的功能就十分重要了，要不然就算不上留言本了，接下来就一起来实现这个功能。
用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 '销毁数据库连接
%>

　　将以上文件存为addsave.asp，测试下！咦？怎么填好提交以后就出现空白了，为什么？这是因为在addsave.asp中没有设置数据成功提交好后的转向页面，这里不用做那么复杂的，只要做一个刷新页面就行了，在程序的后面加上：

<meta http-equiv="refresh" c>

　　然后在页面中添加提示信息，比如：“您的留言已经成功提交，2秒钟后将自动返回留言本首页”