动态WEB课程设计

1、目录目录1网站简介12网站开发平台和工具13网站结构设计14网站功能模块35数据库结构66 主要模块实现与代码摘要77 课程设计总结101 网站简介目前，网络的发展日新月异，尤其是许多的校园网、小区宽带、企业或其他单位内部网的建设已经可以满足人们对于带宽的要求。于是在线视频点播技术越来越多地出现在人们的生活中。本文中的在线视频点播网站，属于在线看视频类网站。管理员可通过该系统为网友提供电影下载和其他在线视频服务；普通游客可以在线看视频，会员可以通过该系统在线看视频和下载视频。2 开发平台和工具操作系统Windows XP Professional前台开发Dreamweaver8、ASP后台数据

2、库SQL Server20003 网站结构设计网站实现功能如下：1 会员管理（1） 会员注册（2） 会员管理2 视频信息显示(1) 显示全部视频信息(2) 按类别显示视频信息(3) 显示视频详细信息3 视频信息搜索(1)按关键字搜索4 视频栏目管理(1) 一级栏目添加(2) 一级栏目改名(3) 一级栏目删除(4) 一级栏目子专题添加(5) 一级栏目子专题改名(6) 一级栏目子专题删除5 视频信息管理(1) 视频信息添加(2) 视频信息修改(3) 视频信息删除4 网站功能模块本文的在线点播系统共分为5个模块：会员管理模块、视频信息显示模块、视频信息搜索模块、视频栏目管理模块和视频信息管理模块，功

3、能模块划分如下图4.1所示：图4.1系统功能模块图会员管理模块会员管理模块会员管理模块会员管理模块视频信息显示模块显示全部信息类别显示信息视频详细信息视频信息搜索模块关键字搜索视频信息管理模块视频信息添加视频信息修改视频信息删除栏目管理模块一级栏目添加一级栏目改名一级栏目删除一级栏目子专题添加一级栏目子专题改名一级栏目子专题删除5 数据库结构根据网站功能设计要求和模块划分，数据库主要用于存储用户信息、视频信息、一级栏目信息、二级栏目信息和管理员信息。数据库结构如下：(1) 用户信息：ID、用户名和密码。(2) 视频信息：ID、下载类型、信息名称、信息描述、下载路径、二级栏目id、一级栏目id、

4、语言种类、文件大小和浏览次数等。(3) 一级栏目信息：Classid、栏目名称。(4) 二级栏目信息：Nclassid、栏目名称和一级栏目id。(5) 管理员信息：ID、管理员名称、管理员密码和管理员级别。数据库逻辑设计如下：1 管理员信息admin，如下图5.1所示：图5.1管理员信息表2 视频信息download，如下图5.2所示：图5.2 视频信息表6 主要模块实现与代码摘要6.1 视频信息显示模块视频信息显示模块包含以下文件：Index.asp、soft.asp、list.asp、download.asp、playwin.asp6.1.1 index.asp1 主页面如下：图6.11主

5、页面2 表单元素主页面只有1个表单元素，如下表6.1所示表6.1index.asp页面表单元素名称表单元素含义最大长度KeywordText关键字503 涉及数据库表使用了数据库表download4 页面代码摘要Html页面显示% 取得累计下载排行前30条记录sql=select top 30 id,showname,bb from download sql=sql& order by hits desc rs.open sql,conn,1,1 打开记录集对象if rs.eof and rs.bof then没有记录则提示response.write (没有下载)else显示30条下载记录d

6、o while not rs.eof取下条记录response.write (&rs(showname)& &rs(bb)&)rs.movenext loop end if rs.close 关闭记录集 %Html页面显示 还没有任何资料 显示10条精品信息 a href=list.asp?id= %if not isnull(rs(images) and rs(images) then 有图片则显示图片response.write end if% a href=list.asp?id=   另外还有几个部分代码为：显示10条视频信息显示8条推荐视频信息由于操作类似，故此省略6.1.

7、2 soft.asp1 页面如下图，为视频类别页面效果图：图6.12类别视频信息显示2 表单元素表6.2soft.asp表单元素名称元素类型含义最大长度KeywordText关键字503 涉及数据库表涉及数据库中download表4 代码摘要% dim totalPut 记录总量变量 dim CurrentPage 页面变量 dim TotalPages 总页码变量 dim i,j dim keyword dim sql dim rsdim updowndim order_nameorder_name=Request(Order)分页代码，默认为第一页 if not isempty(reque

8、st(page) then currentPage=cint(request(page) else currentPage=1 end if排序方式默认为正序if request(updown) thenupdown=descelseupdown=end if根据要求，按关键字类别排序select case order_namecase shownameorder_name=shownamecase hotorder_name=hotcase dateandtimeorder_name=dateandtimecase hitsorder_name=hitscase ordersorder_na

9、me=orderscase sizeorder_name=sizecase elseorder_name=dateandtimeupdown=descend select创建记录集对象 set rs=server.createobject(adodb.recordset)dim classid,Nclassiddim classname,Nclassname如无要求显示的栏目id，则显示全部信息if request(classid)= thenclassid=classid=1 and 取得一级栏目信息sql=select class from class where classid=1rs.

10、open sql,conn,1,1 打开记录集对象if rs.bof and rs.eof thenresponse.write 还没有任何栏目，请到管理页面添加response.endelseclassname=rs(class)end ifrs.close 关闭记录集else有要求显示的栏目id就显示该栏目名字信息classid=classid=&cstr(request(classid)& and sql=select class from class where classid=&cstr(request(classid)rs.open sql,conn,1,1classname=rs

11、(class)rs.closeend ifif request(Nclassid)= thenNclassid=Nclassname=所有影片Else要显示二级栏目id就显示该栏目名字信息Nclassid= Nclassid=&cstr(request(Nclassid)& and sql=select Nclass.Nclass,class.class from Nclass,class where Nclass.classid=class.classid and Nclass.Nclassid=&cstr(request(Nclassid)rs.open sql,conn,1,1class

12、name=rs(class) 栏目名字信息Nclassname=rs(Nclass)rs.closeend if%其他代码6.1.3 list.asp1 下图为视频信息详细内容页面：图6.13视频信息详细内容显示2 表单元素名称元素类型含义最大长度KeywordText关键字503 数据库信息表涉及数据库中的记录表download4 代码摘要 % 取得本地服务器名称tmp = http:/ & request.servervariables(SERVER_NAME) & _ left(request.servervariables(SCRIPT_NAME),len(request.server

13、variables(SCRIPT_NAME)-len(/list.asp) dim sql dim rs dim classname,classid,Nclassname,Nclassiddim lasthits dim title视频信息id号为空则退出if request(id)= thenresponse.write 您没有选择相关影片，请返回response.endend if不为空则创建记录集对象set rs=server.createobject(adodb.recordset) 取得视频详细信息sql=select class.class,Nclass.Nclass,downlo

14、ad.showname,download.bb,download.classid,download.Nclassid,download.lasthits from download,class,Nclass where download.classid=class.classid and download.Nclassid=Nclass.Nclassid and download.ID=&request(id) rs.open sql,conn,1,1 打开记录集 if not rs.eof thenshowname=rs(showname)bb=rs(bb)classid=rs(classi

15、d)Nclassid=rs(Nclassid)classname=rs(class)Nclassname=rs(Nclass)lasthits=rs(lasthits) end ifrs.close更新每周每日数据tdate=year(Now() & - & month(Now() & - & day(Now()if trim(lasthits)=trim(tdate) thensql=update download set dayhits=dayhits+1 where id=&request(id)conn.Execute(sql)response.write successelsesql

16、=update download set dayhits=1 where id=&request(id)conn.Execute(sql)response.write errorend if更新视频信息这周观看次数sql=update download set hits=hits+1,lasthits=&tdate& where ID=&request(id)conn.Execute(sql) p_year=CInt(year(Now()-CInt(year(lasthits) p_month=CInt(month(Now()-CInt(month(lasthits) p_day=CInt(d

17、ay(Now()-CInt(day(lasthits) period_time=(p_year*12+p_month)*30+p_day)if cint(period_time)=其他代码略6.1.4 download.asp1 如下图所示，注意下载工具中的网址，说明当点击网站下载地址时，能成功激活下载连接：图6.14 视频下载显示2 表单元素此页不需要表单元素3 涉及数据库表使用数据库表download4 代码摘要%判断看视频的用户权限if session(user)= and rs(club) then%alert(对不起！此为会员影片，请注册成我们的会员！);window.close()

18、;6.1.5 playwin.asp1 页面效果下图为视频播放时的页面效果，图6.15视频播放2 表单元素无需HTML表单元素3 涉及数据库表使用了数据信息表download4 代码摘要%if session(user)= and rs(club) then%alert(对不起！此为会员影片，请在首页注册成我们的会员并登录！);/document.location=reg1.aspwindow.close();HTML代码6.2 视频信息搜索模块视频信息搜索模块包含以下文件：Search.asp6.21 index.asp1 搜索页面：图6.21关键字搜索模块图2 HTML表单元素名称元素类型

19、含义最大长度KeywordText关键字503 涉及数据库表信息此页面为搜索页面，不涉及数据库表的操作。4 代码摘要提交关键字到search.asp页搜索视频信息 搜索： 6.22 search.asp1 搜索结果页面图6.22搜索引擎结果2 HTML表单元素此页面无需填写HTML表单元素3 涉及的数据库表此页是关键字搜索结果视频信息，涉及到视频信息表download的操作。4 代码摘要% dim totalPut dim CurrentPage dim TotalPages dim i,j dim keyword dim sql dim rsdim founderrdim errmsgdim

20、 findwordfounderr=false取得关键字值keyword=request(keyword)如果关键字为空则提示if keyword= thenerrmsg=errmsg+请输入查询条件。founderr=trueelse关键字搜索是按标题还是内容，默认是标题if request(action)=title thenfindword=showname like %&keyword&% elsefindword=note like %&keyword&% end ifend if if not isempty(request(page) then currentPage=cint(

21、request(page) else currentPage=1 end if set rs=server.createobject(adodb.recordset)dim classid,Nclassiddim classname,Nclassnameif request(classid)= thenclassid=classname=所有影片elseclassid=classid=&cstr(request(classid)& and sql=select class from class where classid=&cstr(request(classid)rs.open sql,co

22、nn,1,1classname=&rs(class)&rs.closeend ifif request(Nclassid)= thenNclassid=Nclassname=所有影片elseNclassid= Nclassid=&cstr(request(Nclassid)& and sql=select Nclass from Nclass where Nclassid=&cstr(request(Nclassid)rs.open sql,conn,1,1Nclassname=的&rs(Nclass)&分类rs.closeend if%HTML其他代码6.3 会员管理模块该模块包含以下子模块

23、和文件。会员注册子模块：Reg1.asp、reg2.asp用户登录子模块：User.asp、users.asp6.31 reg1.asp1 页面效果图6.31用户注册界面2 HTML表单元素名称元素类型含义最大长度UserText用户名称20PasswordPassword用户密码20Password2Password确认密码20EmailText电子邮件50OICQTextOICQ203 涉及数据库信息表此页向系统提交用户注册名称和密码，并没有涉及到数据库表的操作。4 代码摘要6.32 reg2.asp1 页面效果图6.32用户注册成功2 HTML表单元素此页面为验证用户名和密码，无需填写H

24、TML表单元素。3 涉及数据库表信息涉及数据库表user。4 代码摘要20 thenerrmsg=errmsg+用户名输入错误(未输入或长度超过了20个字节)。founderr=trueelseUser=trim(request.form(User)end ifif request.form(sex)= thenerrmsg=errmsg+请选择您的性别。founderr=trueelseif request.form(sex)=0 or request.form(sex)=1 thensex=request.form(sex)elseerrmsg=errmsg+您输入的字符非法。founde

25、rr=trueend ifif request.form(password)= or Len(request.form(password)20 thenerrmsg=errmsg+请输入您的密码(长度不能大于20)。founderr=trueelsepassword=request.form(password)end ifif passwordrequest(password2) thenerrmsg=errmsg+您输入的密码和确认密码不一致。founderr=trueend ifif IsValidEmail(trim(request.form(Email)=false thenerrms

26、g=errmsg+您的Email有错误。founderr=trueelseEmail=trim(request.form(Email)end ifif founderr=true thencall error()elseset rs=server.createobject(adodb.recordset)sql=select * from user where user=&user&rs.open sql,conn,1,3if not rs.eof or user=WebName thenerrmsg=+对不起，您输入的用户名已经被注册，请重新输入。founderr=trueelsers.ad

27、dnewrs(user)=userrs(password)=passwordrs.updateend ifrs.closeif founderr=true thencall error()else%其他代码6.33 user.asp1 页面效果会员登录页面如下图：图6.33会员登录页面2 HTML表单元素名称元素类型含义最大长度UserText用户登录名称20PasswordPassword用户登录密码203 涉及数据库表信息此登录表单向系统提交会员登录信息，没有使用数据库表信息。4 代码摘要 -用户登录代码省略部分% 如果session(user)不为空，说明用户已经登陆则不能再注册，同时显

28、示用户信息if session(user) then% 代码省略部分6.34 users.asp1 页面效果图6.34会员登录错误2 HTML表单元素此页面验证用户名和密码，页面表单无需HTML表单元素。3 涉及数据库表涉及数据库用户信息表user。4 代码摘要%dim sqldim rsdim userdim password取得用户名和密码user=replace(trim(request(user),)password=replace(trim(Request(password),)set rs=server.createobject(adodb.recordset)查找用户标看信息是否

29、存在sql=select * from user where password=&password& and user=&user&rs.open sql,conn,1,1 if not(rs.bof and rs.eof) then验证用户密码输入的和记录中是否一致 if password=rs(password) thensession(user)=rs(user)session(flag)=rs(flag)Response.Redirect index.asp else密码不一致，说明密码错误，调用错误函数call Error end ifelse用户信息不存在则说明用户输入的用户名和密

30、码错误，调用错误函数call Error()end if定义错误函数sub Error()response.write response.write 确认身份失败！ response.write response.write response.write response.write response.write response.write 操作：会员确认身份失败！ response.write response.write response.write response.write response.write 非法登陆，您的操作已经被记录！ response.write 再次登录！-免费

31、注册 response.write response.write response.write response.write response.write end subrs.closeconn.closeset rs=nothingset conn=nothing%6.4 视频栏目管理模块该模块包含2个子模块。管理员登录验证模块Login.asp、chkadmin.asp、manage.asp信息类别管理Classmana.asp、classmana1.asp、classmana2.asp6.41 login.asp1 页面效果图6.41管理员登录图2 HTML表单元素名称表单元素类型含义最

32、大长度UsernameText用户名20PasswordPassword密码163 涉及数据库表此页提交管理员用户名和密码，不涉及数据库表4 代码摘要此页提供用户输入帐号信息，下一页判断用户提交的帐号信息是否正确6.42 chkadmin.asp1 页面效果图6.42验证管理员帐号此为登录不成功页面，登陆成功则跳转到manage.asp页2 HTML表单元素此页无需填写HTML表单元素3 涉及数据库信息表此页验证管理员用户名和密码，涉及管理员数据库表admin操作。4 代码摘要%dim sqldim rsdim usernamedim passwordusername=replace(trim

33、(request(username),)password=replace(trim(Request(password),)set rs=server.createobject(adodb.recordset)sql=select * from admin where password=&password& and username=&username&rs.open sql,conn,1,1 if not(rs.bof and rs.eof) then if password=rs(password) thensession(admin)=rs(username)session(flag)=rs(flag)Response.Redirect manage.asp e