|
|
 |
 |
|
 |
|
| 学ASP的经验来做一个简单的ASP留言本[下] |
表单是做好了，但是还需要后台程序的支持，一起来使用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 销毁数据库连接
%>
[Ctrl+A 全部选择 然后拷贝]
将以上文件存为addsave.asp，测试下！咦？怎么填好提交以后就出现空白了，为什么？这是因为在addsave.asp中没有设置数据成功提交好后的转向页面，这里不用做那么复杂的，只要做一个刷新页面就行了，在程序的后面加上：
<meta http-equiv="refresh" content="2;URL=index.asp">
然后在页面中添加提示信息，比如：“您的留言已经成功提交，2秒钟后将自动返回留言本首页”
好了，这个留言的功能总算实现了，最后再测试下，看看效果！
OK！
六、制作管理登陆页面
留言本的管理功能对于留言本来说就不言而喻了，像论坛的登陆功能就是一个很好的例子，不过我们做留言本基本上有删除功能就行了，写这个教程是为了更多的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结束
代码拷贝框
<!--#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的会话变量将在后面起作用，
七、制作管理页面
上节中讲的是制作登陆页面和检测用户，当用户名和密码正确时就转到管理页面，好了，开始实现它。
其实这个留言本的管理页面和用户直接看到的首页没有多大的区别，只是用了Session会话变量用作保护和增加了一个删除链接，当点击这个链接的时候，就会自动删除这条留言，好了，其本的目的知道了，那就GO！
刚才讲了，这个页面和首页的index.asp相似，那么就先复制就行了，然后再改一下
首先找到下面这句：
sql="select user,qq,email,content,data from main order by id desc"
把它改为
sql="select id,user,qq,email,content,data from main order by id desc"
这样，就选取到了id这个自动编号的值，以便删除留言时锁定这个id。
然后在“邮件”这个链接后面增加一个链接“删除”，链接：del.asp?id=<%=rs("id") ，修改代码后为<a href="del.asp?id=<%=rs("id")%>" onclick="return confirm(是否确定删除本留言？);">删除</a> 这样，待会我们做del这个页的时候，就会知道为什么了！
改过后存为mymanage.asp
现在打开浏览器看看！
怎么不用输入用户名和密码都可进入呀？别急，上节中，我们不是建了一个session的会话变量，这时就派上用场了，直接用记事本打开。在<%@LANGUAGE="VBScript" codepage="936"%>这句的后面加上<%if session("admin")<>"" then%>这句，在末尾写上：
<%
else
response.Redirect("admin.asp")
end if%>
下面来讲解一下。
<%if session("admin")<>"" then%> 就是说如果session这个("admin")的值不是空的话就执行。
<%
else
response.Redirect("admin.asp")
end if%> 为空的话就转向登陆页，重新登陆，这样的话，直接输入网址的话就会跳到admin.asp，简单吧！
八、删除留言
上节我们增加了一个删除留言的链接，以下是这个del.asp的代码
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
id=Request.QueryString("id")
sql="select * from main where id="&id
rs.open sql,conn,2,3
rs.delete
rs.update
%>
很明了吧，才几句，第1、2、3句都不用我解释了，大家都在上几节中明白了。
第4句：
id=Request.QueryString("id") 用id取值字符串中传的id，回头看一下删除的链接：del.asp?id=<%=rs("id")%> 就是这个链接才把id的值传来的，<%=rs("id")%>是读取数据库中的自动编号字段中的id。
第5句：
用sql定义SQL语句，这里的*是通配符，表示所有，而Where有点像我们汉语中的“当”，整句话的意思是选择所有来自表名为main的字段，它的条件是当数据库中的id字段是字串所传来的id。如果这个没有的话这个一时间不明白也不要紧，慢慢接触就知道了。
第6句是打开符合条件的记录，确切的讲不应该叫记录集了，因为经过我们这样筛选的话，记录绝对是一条，2，3指定可以对数据库中的数据进入修改。
第7、8句
rs.delete 看了就明白了，原来这才是整个程序的精髓，就是执行删除了。
rs.update 这是更新数据库中的表，删除后就更新。
最后大家自己用rs.close和conn.close释放。
经过些学习，大家应该对ASP有所了解和认识了，这个做ASP留言本的教程就到此结束了。欢迎大家到新视野QQ群里面共同讨论学习。
|
|
|
 |
|
 |
 |
七彩课堂推荐教程 |
|
|
