三、制作添加留言页面,实现留言功能 我们是做的一个留言本,实现留言的功能就十分重要了,要不然就算不上留言本了,接下来就一起来实现这个功能。
用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 '销毁数据库连接 %>
代码拷贝框
[Ctrl+A 全部选择 然后拷贝]
将以上文件存为addsave.asp,测试下!咦?怎么填好提交以后就出现空白了,为什么?这是因为在addsave.asp中没有设置数据成功提交好后的转向页面,这里不用做那么复杂的,只要做一个刷新页面就行了,在程序的后面加上:
<meta http-equiv="refresh" content="2;URL=index.asp">
然后在页面中添加提示信息,比如:“您的留言已经成功提交,2秒钟后将自动返回留言本首页”
好了,这个留言的功能总算实现了,最后再测试下,看看效果!
OK!这个留言功能的实现教程就到这里了。
出处:蓝色理想
责任编辑:moby
上一页 制作留言本首页 [4] 下一页 制作管理登陆页面 [6]
◎进入论坛网络编程版块参加讨论
|