ASP课程设计.docx

"%>

3、留言本

在访客进入留言板手比进行留言时会进入此页面，并进行编制留言内容，再点击提交留言内容会把数据传送到数据库内，经过调用页面会跳转到首页并显示提交成功。

具体代码如下：

姓名：

内容：

--#includefile="conn.asp"-->

<%name=Replace（Request.Form（"name"）,"'","''"）

title=Replace（Request.Form（"title"）,"'","''"）

body=Replace（Request.Form（"body"）,"'","''"）

%>

<%ifname=""ortitle=""orbody=""then%>

请

history.go（-1）">后退填写完整资料，你才能发表帖子！

<%else%>

<%setsavebbs=conn.execute（"insertintobbs（name,title,body）values（'"&name&"','"&title&"','"&body&"'）"）%>

发表成功！

查看帖子

<%endif

setsavebbs=nothing

%>

4、管理员入口

管理员登陆是管理员所持有的资格，可以通过后台进行删除、更新等操作。

从而实现网站的完美性。

具体代码如下：

functioncheckform（）{

if（form_add.admin_name.value==""）{

alert（"\用户名不能为空！

"）;

returnfalse;

}

if（form_add.admin_password.value==""）{

alert（"\密码不能为空！

"）;

returnfalse;

}

returntrue;

}

1）、留言管理

 

管理员进入后天管理后，可以查看留言、修改留言、删除除不必要留言等，使得留言版面更完美。

具体代码如下：

后台管理中心退出

（修改密码）原账号:

<%=amain%>

现密码：

---

<%

setrs=server.CreateObject（"adodb.recordset"）

sql="select*fromcontentsorderbyiddesc"

rs.Opensql,conn,1,1

DoWhileNotrs.eof

%>

姓名：

spanstyle="color:

blue"><%=rs（"name"）%>   
留言：

<%=rs（"content"）%>

时间：

<%=rs（"time"）%>留言人IP：

<%=rs（"ip"）%>

id=<%=rs（"id"）%>">修改

id=<%=rs（"id"）%>>删除

---

2）、删除留言

删除留言是通过，管理员进入后台对全部留言进行管理，修改完成后会直接进入主页面。

具体代码如下：

<%

rem清除session

session（"admin"）=""

Session.Abandon（）

response.redirect（"index.asp"）

rem返回admin_index.php是判断session是否清除成功，成功则返回index.php

%>

3）、修改留言

留言的内容会影响留言板的整体效果和访客的心情，所以修改留言是必要存在的。

ID号的实现是通过在原有数据库内的内容传送到修改留言页面内在原来访客此数值上再加一，从而使访客在进入留言板查看到自己是第几位进入留言板的。

具体代码如下：

<%

Ifsession（"admin"）="admin"Then

%>

--#includefile="include/conn.asp"-->

<%

setrs=server.CreateObject（"adodb.recordset"）

sql="select*fromcontentswhereid="&request（"id"）

remrequest（"id"）是传递过来的参数

rs.Opensql,conn,1,1

name=rs（"name"）

content=rs（"content"）

id=rs（"id"）

%>

<%

conn.close

Setconn=Nothing

else

response.write（"alert（'非法进入可耻！

'）;location='index.asp';"）

EndIf

%>

4）、管理员设置

管理员设置是通过在数据库内加入的管理人员的个人信息。

具体代码如下;

<%

Ifsession（"admin"）="admin"Then

amain=session（"admin"）

%>

--#includefile="include/conn.asp"-->

<%

aname=request.Form（"mname"）

apwd=request.Form（"xpwd"）

setrs=server.CreateObject（"adodb.recordset"）

sql="updateadminsetadmin_password='"&apwd&"'whereadmin_name='"&amain&"'"

conn.Execute（sql）

conn.close

Setconn=nothing

response.write（"alert（'修改成功！

'）;location='admin_index.asp';"）

}

else

response.write（"alert（'非法进入可耻'）;location='index.asp';"）

EndIf

%>

5）、修改登录密码

管理员通过原有的正确密码进入后台，在输入新的密码进行修改，修改成功后，返回到登陆页面重新登录，如果密码出现错误就会弹出用户名或者密码错误的提示信息。

具体代码如下：

<%

Ifsession（"admin"）="admin"Then

amain=session（"admin"）

%>

--#includefile="include/conn.asp"-->

functioncheckform（）{

if（form_pwd.xpwd.value==""）{

alert（"\密码不能为空！

"）;

returnfalse;}returntrue;}

--

body{background-image:

url（../2.jpg）;}

-->

#ccc;padding:

10px;color:

#000;">

后台管理中心退出

（修改密码）原账号:

<%=amain%>

现密码：

---

 

实习总结

经过一周的实训练习让我学到了许多知识,也有了很大的收获。

这次实训让我明白了我们实训的主要目的是让我们通过不断的上机实习以及使用它来解决实际的问题，才能更好的掌握所学技能。

实践出真理，在这一周的实训中确实很累但是累得有价值。

学海无涯，好多好多的东西还在等待我们去努力的开发学习。

我坚信，用血泪去做自己认为应该做的事，努力的开拓我们的极限，没有什么是不可能的。

希望自己可以真正的化解这些知识为我所用！

在以后的工作、生活和学习中，发展自己的优势，弥补自己的不足和缺陷。

同时，也得感谢陈老师的对我们学业的帮助，平常的严厉在今天看来是我们的幸运。

也是在老师的严格指导下，这份设计才得以完成。

在以后的学习过程中，争取做到更好。

      

 

参考文献

[1]尚俊杰.asp程序设计：

ASP.2版.北京：

北京交通大学出版社，2004