dreamweaver制作开发ASP留言本

６、制作管理页面
 
　　 上节中讲的是制作登陆页面和检测用户，当用户名和密码正确时就转到管理页面，好了，开始实现它。
其实这个留言本的管理页面和用户直接看到的首页没有多大的区别，只是用了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释放。