ASP大作业报告.docx

ASP大作业报告.docx

《ASP大作业报告.docx》由会员分享，可在线阅读，更多相关《ASP大作业报告.docx（48页珍藏版）》请在冰豆网上搜索。

ASP大作业报告

摘要

【摘要】

随着信息技术的飞速发展和网络的普及应用，家庭电视，电影已经不能满足日益增长的物质文化和精神文明，而网络作为一种新兴的信息传递者（也不算是新的吧），电脑正在走入千家万户，因此视频点播系统作为一种网络产物，来解决人们对于电视和电影的向往，利用网络点播系统可以看自己喜欢的电影电视剧，而且不用为有事忙看不到而遗憾，这里你随时可以看，只要有网络就可以，有事可以暂停，因此方便了很多人，网络点播系统解决了人们不用为时间的问题而忙碌，什么时间看都是可以的，还解决了人们看什么的问题，在这里你想看什么就看什么，而且可以重复看，因此网络视频具有很大的好处，解决了许多人的难题。

并且处于流行中。

【关键词】网络点播系统ＡＤＯ连接　数据源　视频

　目录

摘要……………………………………………………1

0引言…………..………………………………...…3

1系统分析…………………………………….…….4

2总体设计...................................5

3系统设计..................................5

4网站总体架构…………………………………..….6

5系统登录模块设计…………………………………7

6日常管理模块设计..........................10

7业务管理模块..............................37

8用户管理模块..............................38

9数据库的连接……………………………………..70

10附录A…………………………………………….76

引言

随着网络的发展以及电脑的普及，越来越多的信息在我们每天的生活中流走，而我们接触到的也越来越多，而人们也越来越忙，一些生活中自己喜欢看的节目或电影电视却因为没有时间看而遗憾，而视频点播系统的出现，却让人们看到了希望.

视频点播系统是基于网络的一种视频观看的网站，视频点播系统可以解决人们所看内容的时间问题和内容问题，因此完全可以放弃电视及其他的东西，想看什么直接在这里搜索就行了，而且可以看很多遍及随时看等众多好处，目前网络上视频点播系统也已经出现很多，正在以迅猛的速度在飞速发展。

1系统分析

1.1需求分析

通过调查，要求系统需要有以下功能：

影视点播系统首页

按类别浏览模块

影片搜索模块

添加影片模块

新片抢鲜模块

影片排行模块

添加影片类型模块

删除影片类型模块

鉴定影片等级模块

删除影片模块

1.2可行性分析

时间利用性

视频点播系统可以随时使用，方便你在工作时看不到的节目或是电影，可以在下班后继续观看，不用占用上班时间，又能看到自己想要的东西，一举两得。

内容方便性

这个就不用说了，都有搜索功能先看什么搜什么，或在网页上找也是可以的

经济性

这个当然了，在这里看电影，可以省下你看电影的费用，不过少了电影院的情趣。

2总体设计

2.1项目规划

视频点播系统也不是一个简单的系统，是有很多小的部分组成的规划系统功能模块如下：

❑日常管理模块

该模块包括删掉旧的类型视频，添加新的视频类型，删掉旧的视频及电影电视等，添加新的，流行的电影电视。

❑业务管理模块

该模块包括通过网站发布广告赚钱。

❑用户管理模块

该模块主要包括用户自己查看网页的信息，以及搜索信息，了解详细信息等内容。

3系统设计

3.1设计目标

本系统是方便人们看电影电视等视频内容，主要实现如下内容：

❑系统采用人机对话方式，界面清晰、信息查询灵活、方便、快捷、准确、数据存储安全可靠。

❑键盘操作，快速响应。

❑实现了各类发文信息、公共信息的强大的管理能力。

❑对系统用户进行管理。

❑及时更新数据内容，方便用户浏览。

❑系统最大限度地实现了易安装性、易维护性和易操作性。

❑系统运行稳定、安全可靠。

3.2开发及运行环境

硬件平台：

❑CPU：

P41.8GHz；

❑内存：

256MB以上。

软件平台：

❑操作系统：

Windowsxp/Windows2000。

❑数据库：

SQLServer2000。

❑浏览器：

IE5.0，推荐使用IE6.0。

❑Web服务器：

IIS5.0。

❑分辨率：

最佳效果1024×768像素。

4网站总体架构

4.1模块功能介绍

系统主要包括以下功能模块：

❑日常管理模块：

主要包括删掉旧的类型视频，添加新的视频类型，删掉旧的视频及电影电视等，添加新的，流行的电影电视。

❑业务管理模块：

主要靠发布广告赚钱。

❑用户管理模块：

该模块主要包括用户自己查看网页的信息，以及搜索信息，了解详细信息等内容

4.2网站首页的运行结果

网站首页的运行结果如下图所示。

5系统登录模块设计

系统登录模块主要用于验证管理员登录系统时输入的用户名、密码、验证码是否正确，如果正确管理员进入管理系统，否则将不能进入此管理系统。

系统登录页面的设计效果如下图所示。

系统登录页面所涉及的HTML表单元素如下表所示。

系统登录页面所涉及的HTML表单元素

名称

类型

含义

重要属性

form

Form

表单

name

text

用户名

Pwd

password

密码

submit

submit

【登录】按钮

系统登录页面所涉及到的程序代码如下：

--#includefile=articleconn.asp-->

<%

dimsql

dimrs

dimseekerrs

dimfounduser

dimname

dimcompanyid

dimpwd

dimerrmsg

dimfounderr

founderr=false

FoundUser=false

name=trim（request（"name"））

pwd=cstr（Request（"pwd"））

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

sql="select*fromadminwhereid=1"

rs.opensql,conn,1,1

ifnot（rs.bofandrs.eof）then

ifpwd=rs（"pwd"）andname=rs（"name"）then

response.cookies（"name"）=true

response.redirect"mimi.asp"

else

response.write""

response.write""

response.write"您输入名字和密码不对，请输入正确的名字和密码，方可进入管理页面"

endif

endif

rs.close

conn.close

setrs=nothing

setconn=nothing

%>

系统登录页面的运行结果如下图所示

6日常管理模块设计

该模块包括删掉旧的类型视频，添加新的视频类型，删掉旧的视频及电影电视等，添加新的，流行的电影电视。

6.1电影类型管理页面所涉及到的程序代码如下

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

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

--#includefile="inc/articlechar.inc"-->

<%

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

ifrequest（"add"）<>""then

callnewfilm（）

elseifrequest（"edit"）<>""then

calleditfilm（）

else

calldelfilm（）

endif

subnewfilm（）

sql="select*fromtypewhere（typeidisnull）"

rs.opensql,conn,1,3

rs.addnew

rs（"type"）=request（"type"）

rs.update

endsub

subeditfilm（）

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

rs.opensql,conn,1,3

rs（"type"）=request（"type"）

rs.update

endsub

subdelfilm（）

sql="DELETE*fromtypewheretypeid="&request（"id"）

rs.opensql,conn,1,3

rs.update

endsub

rs.close

setrs=nothing

conn.close

setconn=nothing

Response.Redirect（"mimi.asp"）

%>

6.2电影管理页面修改所涉及到的程序代码如下

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

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

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

<%

id=Request.QueryString（"id"）

ifid=""then

Response.Write（"错误参数"）

Response.End

endif

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

sql="select*fromfilmwhereid="&id

rs.opensql,conn,1,1

ifrs.EOFthen

response.write"没找到"

else

%>