ASP课程设计报告
设计题目： 留言板管理
专业班级： XXXXX
姓 名： XXxXX
20##年6 月 7日
ASP课程设计报告
运行环境__windows 7__ 实验室_软件实验室一__
一、实验内容：
小型留言板管理系统主要功能是发表留言，对各条留言进行修改、删除等操作管理及对系统自身的用户权限管理。系统管理主要任务是提高系统安全性和对系统提供良好的维护，如用户权限可以为用户提供权限服务。
二、实现主要功能：
1.系统管理员对管理员登陆密码进行修改管理。
2.添加:包括留言者的姓名、留言内容等。
3.管理：修改及删除留言信息，修改密码。
三、实验主要代码：
主页代码：
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="gb2312">
<head>
<title>欢迎给我留言</title>
<link type="text/css" href="style.css" rel="stylesheet" />
<meta name="Copyright" content="www.028baidu.com" />
<script language="javascript" type="text/javascript">
function check(){
var a=mess.user_name.value;
var b=mess.user_post.value;
if(a=="")
{alert("名称空"); return false;}
if(b=="")
{alert("内容空"); return false;}
return true;
}
</script>
</head>
<body>
<BR><BR>
<center>欢迎给我留言！ <a href="list.asp">全部留言</a> <a href="admin_login.htm" target="_blank">管理</a> </center>
<br>
<div class="main">
<form name="mess" action="add_messages.asp" method="post" onsubmit="return check();">
姓名:<input type="text" name="user_name" size="60"><br/> <br/>
留言:<textarea name="user_post" rows="20" cols="59"></textarea><br/><br/>
<center><input type="submit" value="提交留言" > </center>
</form>
</div>
</body>
</html>
管理员登陆代码：
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml lang="gb2312">
<head><title>欢迎给我留言</title>
<link type="text/css" href="style.css" rel="stylesheet" />
<meta name="Copyright" content="www.028baidu.com" />
<scriptlanguage="javascript"type="text/javascript">
function check(){
var a=mess.user_name.value;
var b=mess.user_post.value;
if(a==""){alert("名称空"); return false;}
if(b==""){alert("内容空"); return false;}
return true;}
</script></head>
<body>
<BR><BR>
<center>欢迎给我留言！ <a href="list.asp">全部留言</a> <a href="admin_login.htm" target="_blank">管理</a> </center><br>
<div class="main">
<form name="mess" action="add_messages.asp" method="post" onsubmit="return check();">
姓名:<input type="text" name="user_name" size="60"><br/> <br/>
留言:<textarea name="user_post" rows="20" cols="59"></textarea><br/><br/>
<center><input type="submit" value="提交留言" > </center>
</form>
</div>
</body>
</html>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="gb2312">
<head><title>管理登陆</title>
<script language=javascript>
function checkform() {
if(form_add.admin_name.value==""){
alert("\用户名不能为空！");
return false;}
if(form_add.admin_password.value==""){
alert("\密码不能为空！");return false;}
return true;}
</script></head>
<body>
<form name="form_add" action="admin_check.asp" method="post" onsubmit="return checkform();">
用户名:<input type="text" name="admin_name" class="input">
密 码:<input type="password" name="admin_password" class="input">
<input type="submit" name="submit" value="提交">
</form>
</body>
</html>
<%
If session("admin")="admin" Then
amain=session("admin")
%>
<!-- #include file="include/conn.asp" -->
<script language=javascript>
function checkform() {
if(form_pwd.xpwd.value==""){
alert("\密码不能为空！");return false; }
return true;}
</script>
<title>后台管理中心</title>
<div style="background:#ccc; padding:10px">
<p>后台管理中心 <a href="login_out.asp">退出</a><br />
<form name="form_pwd"action="adm_mima.asp" method="post" onsubmit="return checkform();">
（修改密码）原账号:<%=amain%>
现密码代码：<input type="password" name="xpwd" />
<input type="submit" value=" 修 改 " />
</form><hr /></p>
<%
set rs = server.CreateObject("adodb.recordset")
sql = "select * from contents order by id desc"
rs.Open sql,conn,1,1
Do While Not rs.eof
%>
姓名代码：
<span style="color:blue"><%=rs("name")%></span> <span><br />留言：<%=rs("content")%></span><br />
时间：<span><%=rs("time")%></span> <span>留言人IP：<%=rs("ip")%></span>
<a href="modify.asp?id=<%=rs("id")%>">修改</a> <a href=delete.asp?id=<%=rs("id")%>>删除</a> <hr />
<%
rs.movenext
Loop
rs.close
Set rs = Nothing
else
response.redirect("index.asp")
End If
%>
</div>
删除留言信息代码：
<%
If session("admin")="admin" Then
%>
<!-- #include file="include/conn.asp" -->
<%
set rs=server.CreateObject("adodb.recordset")
sql="delete from contents where id="&request("id")
conn.Execute(sql)
conn.close
Set conn = nothing
response.redirect("admin_index.asp")
}
else
response.write ("<script language='javascript'>alert('非法进入可耻！');location='index.asp';</script>")
End If
%>
修改留言信息代码:
<%
If session("admin")="admin" Then
%>
<!-- #include file="include/conn.asp" -->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from contents where id="&request("id")
rem request("id")是传递过来的参数
rs.Open sql,conn,1,1
name = rs("name")
content = rs("content")
id = rs("id")
%>
<form action="modify_save.asp" method="post" name="name1">
ID :<%=id%><input type="hidden" name="id" value=<%=id%> >
姓名:<%=name%><br>
留言:<textarea name="post_contents" rows="10" cols="50"><%=content%></textarea>
<input type="submit" value="提交修改">
</form>
<%
conn.close
Set conn = Nothing
else
response.write ("<script language='javascript'>alert('非法进入可耻！');location='index.asp';</script>")
End If
%>
四、实验效果:
登陆页面：
留言成功页面：
留言删除成功页面
查看全部留言：
数据库：
五、实验总结： 通过此次实验，使我对网页的系统分析、系统设计、系统实现、系统测试有了更加深刻的了解。在实验过程中需要进行以下几点步骤：（1）、查阅资料，进行可行性和需求分析、确定系统功能功能模型。 （2）、设计数据库。设计留言板管理系统主要页面，连接数据库。（ 3）、完成调试、维护。