专业综合实训报告

<%if not rs.eof then%>

<%do while not rs.eof%>

<%

rs.movenext

loop

%>

<%else%>

无新闻

<%end if%>

当我们点击要修改新闻的名称时就会自动弹出这个网页。我们只需要要这里输入标题就可以更改了。不管是标题还是内容都可以修改，但是这两个都不可以为空一但为空修改就不行了

。主要代码如下：

<%

Ubiaoti = Request.Form(\"biaoti\")

id=Request.Form(\"id\")

on error resume next

set conn = Server.CreateObject(\"ADODB.Connection\")

path = server.mappath(\"../../Database/admin.mdb\")

conn.open \"driver={Microsoft Access Driver (*.mdb)};pwd=;dbq=\" & path

wsql=\"select * from news where biaoti=\" & SqlStr(Ubiaoti)

set userrs=conn.execute(wsql)

if request.form(\"submit\")=\"修改\" then

Ubiaoti = Request.Form(\"biaoti\")

Uneirong = Request.Form(\"neirong\")

sq=\"update news set biaoti=\" & sqlstr(Ubiaoti) & \sqlstr(Uneirong) & \" where id=\" & id

conn.execute(sq)

response.write \"修改成功\"

&

'response.write sq

'response.end

end if

if err<>0 then

response.write \"数据错误\"

elseif userrs.eof then

response.write (\"你输入的标题有务请重新输入\")

end if

sql=\"select * from news where biaoti=\" & SqlStr(Ubiaoti)

'response.write sql

'response.end

set rs=conn.execute(sql)

%>

（7）、添加新闻

只要点击添加新闻就会弹出这个网页。只要在标题和内容里面添加相对应的内容。点击添加按钮就可以添加了。主要代码如下：

<%

if session(\"a\")<>1 then

response.redirect(\"../Admindl.asp\")

response.end()

end if

%>

<%

Ubiaoti = Request.Form(\"biaoti\")

Uneirong = Request.Form(\"neirong\")

on error resume next

set conn = Server.CreateObject(\"ADODB.Connection\")

path = server.mappath(\"../../Database/admin.mdb\")

conn.open \"driver={Microsoft Access Driver (*.mdb)};pwd=;dbq=\" & path

sql=\"insert into news(biaoti,neirong)

values(\"&sqlstr(Ubiaoti)&\

'response.write sql

'response.end

conn.execute(sql)

if err<>0 then

response.write \"

添加失败

else

response.write \"添加成功\"

end if

%>

（8）、查看、删除公告

当我们点击系部公告的时候，它会自动弹出这个网页。当我们选中了要删除的标题后点击删除按钮就可以把这个公告删除了。其主要实现的代码和系部新闻是一样的。

（9）、修改公告

点击要修改的公告标题就可以进入修改网页界面。在这个网页里面输入新的内容就可以对这个公告进行修改了。实现这个功能的主要代码和系部新闻的修改差不多。

（10）、添加公告

点击添加公告就可以进入添加公告的网页。在这里面输入要添加的公告标题和公告内容点击添加按钮就可以添加了。实现这个功能的主要代码和添加系部新闻基本上一样。

（11）、整个网站的头文件

这个网站的头文件是一个导航。每一个超级链接都是一个弹出菜单。如图：

这个头文件是由我负责做的。我把整个头文件全部做好了之后把它放在公用文件夹里

面每个网站都通过程序来调用这个头文件。而首页这个网页也是由我负责做的。

系部概况这里面的网页是由蔡挺负责的。他负责把这里面的网页做好了之后给我。我再把他给我的网页加入到整个网站中。

专业介绍这里面的网页是由张耀做的。他也是负责把网页做好，做好了之后给我由我来进行整体连接。

科学研究和精品课程这里面的网页是由关平负责的。他负责把这里面的网页做好了之后给我。我再把他给我的网页加入到整个网站中。

学生之家这里面的网页是由冯诚负责的。他负责把这里面的网页做好了之后给我。我再把他给我的网页加入到整个网站中。

信息中心是整个网站的核心部分所以是由我负责的。在这个模块里面涉及到了很多的内容。因为这里面的新闻和公告都是要进入数据库中然后再从数据库中把数据调出来的。而且管理员也要通过网页来对新闻和公告进行增加、删除、修改等操作。

（12）、整个网站的底部文件

这也是由我做好了之后放入公用文件夹里面让每一个网页进行调用。

（13）、首页

在这个首页里面左边可以显示出最新的多条新闻和公告。这新闻和公告都是通过程序从数据库中调出来的。右边是关于系部的一个简单的介绍。下边是我们系部一些老师的相片和职位的一些描述。

（15）、信息中心

系部公告这个网页是用来显示系里面所有的公告。这个页面也是和数据库相连的因为这里面的所有内容都是从数据库里面调出来的。

这是一个通用的框架网页，每个公告点击进来之后都是这个网页而里面的内容却是根据你所点击的内容而定的。因为这里面的标题和内容都是通过程序从数据库里面去调的。主要程序和其它的调用程序差不多。如下：

<%on error resume next

set conn = Server.CreateObject(\"ADODB.Connection\")

path = server.mappath(\"../Database/admin.mdb\")

conn.open \"driver={Microsoft Access Driver (*.mdb)};pwd=;dbq=\" & path

sql=\"select top 15 * from news order by id desc\"

set rs=conn.execute(sql)

'response.Write sql

'response.end

%>

<%do while not rs.eof%>

<%

rs.movenext

loop

%>

系部新闻这个网页是显示全部系部新闻的地方。这也是从数据库里面调的数据。

新闻和公告是一样的。点击相应的标题就会显示相应的内容。而且每一个显示的网页都是一个固定的网页。

（15、网站调试

等整个组的成员把自己负责的模块做好之后就要把所有的模块给我由我进行整体的调试。这个时候基本上整个网站就快完成了。不过调试出来也有很多不好的地方所以这个时候就得进行修改。不断的进行调试不断的修改从而达到最终完美的效果。

六、实训总结

通过这四周的实训让我从中学到了很多知识。这次实训我们五个人一组，作为组长的我不但要自己起着带头作用。还要起一个领导的作用给他们分配相应的工作，对整个网站规划等方面要做比较详细的说明。通过会议的形式把我的思想我的规划告诉他们让他们知道，同时也要做好会议的记录给老师汇报情况。从这当中我学会了很多，不管是和同学之间的交流还是给老师汇报情况这对于我来说都是一种锻炼。这样的锻炼对我来说是很有用的因为我马上就会出去工作，工作以后不管是和同事的交流还是和领导的交流这都是一门比较深的学问。

这次实训的内容是让我们做一个网站。在这之前我们学过不少的语言和做网站的方法以及做网站的软件。这次的任务应该对我们而说是想对很简单的，但想像总与现实有很大的差距的，由于我们一开始没注意问题，分工方面不是很明确，从而到至我们开始的时候有的同学做了很多无用工。从老师给我说过后，我便明确给他们分工，让他们每个人明白自己应该做什么，和做好自己的的内容。可能是我的想法和他们的不相同，他们所做的框架和我的又出现了偏差，让我无法链接到他们的网页。还好我发现得早，于是我又对他们做了一些相应的要求，这样我们的框架就基本上相同了。

通过这次的实训，让我明白了很多，我们做网站并不是我想的那么简单，可能每一个人的想法不同，我们虽然做的都是相同的东西但区别还是很大的。使的知道了，我们在以后做事中要先想好具体的方案，在加以讨论过后在开始做，不然到最后可能出现的问题会

让我们很头痛的。

总而言之。通过这四周的实训，让我学到了很多新的知识。