三、制作添加留言页面，实现留言功能
我们是做的一个留言本，实现留言的功能就十分重要了，要不然就算不上留言本了，接下来就一起来实现这个功能。
用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！这个留言功能的实现教程就到这里了。
---------------------www.zasp.net------------------------
六、制作管理登陆页面
留言本的管理功能对于留言本来说就不言而喻了，像论坛的登陆功能就是一个很好的例子，不过我们做留言本基本上有删除功能就行了，写这个教程是为了更多的ASP入门者更好的了解ASP，所以旨在学习用，当然也可以在这基础上添加更多的功能，比如回复留言者。
好了，开始了，还是按照以前的，用Dreamweaver做一个登陆页面，如下图：
把用户名的表单名称设置为admin，密码的表单名称设为password，把动作指向checkpass.asp，，存admin.asp这样登陆页面就好了，
下面就做检测密码的ASP程序了，看以下代码解释：
<!--#include file="conn.asp"--> '把conn.asp包含进来连接数据库
<% 'ASP起始
admin=request.form("admin") '定义admin的值是表单传过来的用户名域名称admin
password=request.form("password") '定义admin的值是表单传过来的用户名域名称admin
if admin="" or password="" then '这句的意思是假如用户名和密码没有输入的话那么执行下一句
response.Write("<script language=javascript>alert('请填写完整!');history.go(-1)</script>") '用javascript脚本提示用户
end if '结束if语句
sql="select * from admin where admin='"&admin&"' and password='"&password&"'" '这句很重要，我们放到后面讲
set rs=conn.execute(sql) '设定记录集rs，用conn执行SQL语句
if rs.eof or rs.bof then '当没有符合筛选结果时，则执行下面的句子
response.write "<script language=javascript>"
response.write "alert('用户或密码不对!');"
response.write "javascript:history.go(-1);"
response.write "</script>" '用javascript脚本提示用户
else '如果符合条件的时候
session("admin")=admin '新建session，值等于表单传来的用户名
response.redirect "mymanage.asp" '转向到mymanage.asp，进入管理页
end if '结束if语句
%> 'ASP结束
代码拷贝框
[Ctrl+A 全部选择 然后拷贝]
将以上代码保存为checkpass.asp
这样，用户在admin.asp页面中输入用户名和密码后，就把用户名和密码值传给checkpass.asp处理，当用户名和密码的值和数据库中的字段相匹配时，就进入mymanage.asp这个管理页面，同时建一个session，这个session的会话变量将在后面起作用，下一节就明白了。
设为首页
加入收藏
联系我们
减小字体
增大字体