前言:
近年来,视频点播VOD(Video on Demand)的名字在媒体上出现得越来越多。VOD技术使人们可以根据自己的兴趣,不用借助录像机、影碟机、有线电视而在电脑或电视上自由地点播节目库中的视频节目和信息,是可以对视频节目内容进行自由选择的交互式系统。
VOD的本质是信息的使用者根据自己的需求主动获得多媒体信息,它区别于信息发布的最大不同:一是主动性、二是选择性。从某种意义上说这是信息的接受者根据自身需要进行自我完善和自我发展的方式,这种方式在当今的信息社会中将越来越符合信息资源消费者的深层需要,可以说VOD是信息获取的未来主流方式在多媒体视音频方面的表现。VOD的概念将会在信息获取的领域快速扩展,具有无限广阔的发展前景。
系统结构:
一个典型的在线宽带点播网站应包含软件下载安装、会员管理、视频信息显示播放、视频搜索、视频信息管理和视频文件管理。
功能模块
会员管理模块
会员管理模块包含一下子块。
- 会员注册
- userreg.aspx
- 用户登录验证
- default.aspx
- 修改个人信息
- reg_pre.aspx
用户登录
- 页面示例
用户登录系统,页面效果如下所示:
视频信息显示模块
视频信息显示模块包含以下页面。
- default.aspx
- dongzuo.aspx
- list.aspx
- playrm.aspx
- playwin.aspx
各页面之间的关系如下图所示
网站主页default.aspx
- 页面示例
下图为全部信息显示所看到的效果。
视频详细信息显示List.aspx
- 页面示例
下图为视频信息详细内容显示所看到的页面效果。
类别视频显示dongzuo.aspx
1.页面示例
下图为类别视频显示所看到的页面效果。
Mediaplayer视频播放窗口playwin.aspx
- 页面示例
下图为利用Mediaplayer视频播放所看到的页面效果
Realplayer视频播放窗口playrm.aspx
- 页面示例
下图为利用Realplayer视频播放所看到的页面效果
视频信息搜索模块
视频信息搜索包含以下页面。
- search.aspx
各个页面之间的关系 如下图所示。
视频信息管理模块(后台管理模块)
视频栏目管理包含以下子模块
各个页面之间的关系如下图所示
部分核心源码如下:
Sub Button_Click(Sender As Object, e As EventArgs)
Dim conn As New OleDbConnection()
Dim cmd As New OleDbCommand
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("vod.mdb")
conn.Open()
cmd.Connection = conn
cmd.CommandText = "Insert into 用户 values(?,?,?,?,?,?)"
cmd.Parameters.Add(New OleDbParameter("@用户名",OleDbType.VarChar,20))
cmd.Parameters.Add(New OleDbParameter("@密码",OleDbType.VarChar,20))
cmd.Parameters.Add(New OleDbParameter("@性别",OleDbType.Boolean))
cmd.Parameters.Add(New OleDbParameter("@真实姓名",OleDbType.VarChar,20))
cmd.Parameters.Add(New OleDbParameter("@电子邮件",OleDbType.VarChar,20))
cmd.Parameters.Add(New OleDbParameter("@用户主页",OleDbType.VarChar,20))
cmd.Parameters("@用户名").Value = Request("nicheng")
cmd.Parameters("@密码").Value = Request("fpass")
If Sex1.Checked Then
cmd.Parameters("@性别").Value = True
Else
cmd.Parameters("@性别").Value = False
End If
cmd.Parameters("@真实姓名").Value = Request("realname")
cmd.Parameters("@电子邮件").Value = Request("dianyou")
cmd.Parameters("@用户主页").Value = Request("zhuye")
cmd.ExecuteNonQuery() '执行sql语句
conn.Close() '关闭数据库
Response.Write("OK")
nicheng.text=""
fpass.text=""
secpass.text=""
realname.text=""
dianyou.text=""
zhuye.text=""
End Sub
</script>