在线音乐设计说明

合集下载

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

课程设计说明
设计题目：基于asp技术的
在线音乐播放系统
学院派斯学院
专业年级计算机应用技术
学生姓名陈琴学号 20080908111 指导教师程光德（老师）
设计地点重庆工商大学派斯学院
日期2010年5月10日
在线音乐播放系统
[摘要]随着计算机技术和多媒体技术的发展，以及Internet互联网的普及，人们不再满足于只有图片，文字的网站，流媒体技术使得在线音乐播放，在线视频播放成为可能，下面我将介绍一个在线音乐播放系统的实现过程，该系统能在线播放多种格式的音乐文件，并具有文件管理等功能。

[关键字] 音乐；播放；数据库
[Abstract] By the development of computer technique, online music player system has become a hot topic.people don’t content with the web that only have images and word.the realmultmedia become that online music player is possible. [Keyword] online ; music ; Database
1．引言
Internet互联网的普及，人们不再满足于只有图片，文字的网站，流媒体技术使得在线音乐播放，在线视频播放成为可能
2．需求分析
2．1系统需求
本套系统的在线音乐播放系统，并可推广至各社会各地使用。

在系统开发上，我们选取的工具是asp ，数据库采用Microsoft ACCESS 2000
2．2功能需求
①在线音乐播放。

②管理员对音乐进行分类，添加,删除等功能。

1系统功能说明
一个在线音播放系统应该具有以下主要功能：
①将歌曲进行分类，并能够按照用户的选择显示某个类别的所有歌曲。

②多种注媒体格式的音乐文件的在线播放。

③歌曲文件的管理，包括添加，修改和删除曲目。

④一个在线音乐播放系统的运行流程如下图如示
2系统文件说明，分类显示系统已有曲目。

Search.asp 文件：搜索所有的音乐
Play.asp文件：wma和mp3文件播放页面
Singer.asp文件：显示所有的歌曲，人气
Error.asp文件：提示用户出错
List.asp文件：左边框架
/admin目录下为管理文件，说明如下。

Admin.asp文件：系统管理员登录页面
Chklogin文件：管理员登录验证页面
Conn.asp文件：数据库连接文件
Logout文件：退出后台管理
Adminlist文件：站内人员管理页面
Admindel文件：管理员删除
Adminmodify文件：修改管理员
Adminsave文件：保存修改后的页面
Left文件：主页面左框架。

Mtv-add文件:添加音乐
Mtv-addsave.asp文件：保存增加后的音乐
Mtv-del.asp文件：删除音乐
Mtv-list.asp文件：音乐管理列表
Mtv-save.asp文件：保存音乐
Mtv-sort.asp文件：音乐分类
Mtv-sortsave.asp文件：保存音乐分类
4数据库设计
分析流程图，这个系统需要使用数据库来存储相关的信息。

数据库是整个系统的基础，只有将数据库框架搭建起来，才能完成子模块的编辑、实施。

为方便数据的维护及数据的有效扩充，我们采用的数据库开发工具是Microsoft ACCESS 2000 ，数据库名称为
MUSIC .MBD ，在此数据库中创建9个表。

1.admin表管理员表主要是记录管理员的帐号、密码信息。

如下图就是该表的主要
设计。

chen为管理员帐号，qin就是管理员的登陆密码。

如本网站的管理员账号
为chen，密码为qin。

2.mtv表
2 MTV 表主要包括mtvid(编号)，mtvs（类型）， parent字段
3．MTVLIST表：包含了MTVID(自动编号)，Mtvcid（自动编号）,tz（名字）,Mtvs（测试类型） ,name（歌曲名）,parent,zz（歌手名）,mvtype（测试类型）,pic（图片）
Swf（链接地址）,intro（歌词）,time（时间）,hits（点击次数）,IsGood,baocuo
3：Musiclist显示列表：主要存储了歌曲的标题，歌手名，下载次数等信息。

包含 id（自动编号）,musicname（音乐名）Singer（歌手名）,wma（链接地址）,NclassID（与其它表发生关联）,hits（点击次数）字段
4．Class表：包含NclassID（编号，与musiclst联系）,ClassID（与list关联）,SclassID(与list关联),signname(歌手名),sign（标识）
5．list表将歌曲分类。

包含以下字段SClassid（自动编号）Sclass（曲目分类表），Classid（与上表发生关联）
5．详细设计
1．数据库的连接
<%
dim conn
dim dbpath
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("music.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>
2．主页面
源代码如下：
<html>
<head>
<link rel="shortcut icon" href="favicon.ico"/>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head>
<script language="JavaScript">
step=0
function flash_title()
{
step++
if (step==3) {step=1}
if (step==1) {document.title='★好听音乐网：☆'}
if (step==2) {document.title='☆好听音乐网：★'}
setTimeout("flash_title()",180);
}
flash_title()
</script>
<frameset cols="160,*" frameborder="NO" border="0" framespacing="0">
<frame src="list.asp" name="a" scrolling="auto" noresize id="a">
<frame src="50sjv30.htm" name="mainFrame">
</frameset>
<noframes><body>
</body></noframes>
</html>
</HTML>
2．左边页面
搜索源代码：<TABLE width=120 border=0 cellPadding=0
cellSpacing=0 borderColor=#FF0000 id=AutoNumber1 style="BORDER-COLLAPSE: collapse">
<TBODY>
<TR>
<TD width=27 valign="middle"><INPUT class=std onBlur="if (value ==''){value='冰河时代 '}"
onmouseover=this.focus()
style="BORDER-RIGHT: #c0c0c0 1px solid; BORDER-TOP: #c0c0c0 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #c0c0c0 1px solid; COLOR: #666666; BORDER-BOTTOM: #c0c0c0 1px solid"
onfocus=this.select() onClick="if(this.value=='请输入关键词')this.value=''"
size=12 value=请输入关键词 name=keyword></TD>
<TD width=16 valign="middle"><P align=center><IMG onclick=javascript:document.form1.submit();
src="img/c.gif"></TD>
</TABLE>
3．player.asp
3.管理员模块
主要代码
<%
username=Checkin(trim(Request.form("username")))
password=Checkin(trim(Request.form("password")))
if username="" or password="" then Response.Redirect ("index.asp")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username&"'and password='"&password&"'"
rs.open sql,conn,1,3
if not rs.EOF then
rs("LoginTimes")=rs("LoginTimes")+1
rs("LoginTime")=now()
rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs.Update
Session("AdminID")=rs("id")
Session("IsAdmin")=true
Session("KEY")=rs("oskey")
Response.Redirect ("admin.asp")
else
errmsg="请输入正确的管理员名字和密码！"
call error()
Response.End
左框架页面：left.asp
Mtvadd.asp页面
源代码：
<div align="center">
<center>
<table border="1" width="93%" cellspacing="0" cellpadding="3" class="TableLine" bordercolorlight="#799AE1">
<tr>
<td colspan="2" width="100%" height="20" bgcolor="#799AE1" align=center><font color="white"><b>添加动画</b></font></td>
</tr>
<form method="POST" action="Mtv-addsave.asp" id=form2 name=myform onSubmit="submitonce(this);">
<tr>
<td width="18%" align="right">选择类别:</td>
<td width="82%">
<selectname="MtvcIDsize="1"
onChange="window.open('Mtv-add.asp?MtvcID='+this.options[this.selectedIndex].va lue,'_self')">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from Mtv"
rs.open sql,conn,1,1
Do while not rs.eof
%>
<option<%if MtvcID=cstr(rs("MtvcID")) and MtvcID<>"" then%> selected<%end if%> value="<%=Cstr(rs("MtvcID"))%>"><%=rs("Mtvs")%></option> <%
rs.MoveNext
Loop
rs.close
%> </select></td>
</tr>
<tr>
<td align="right">名称:</td>
<td><input type="text" name="name" size="20"></td>
</tr>
<tr>
<td align="right">歌手:</td>
<td><input type="text" name="zz" size="20"></td>
</tr>
<tr>
<td align="right">播放类型：</td>
<td><select name="mvtype" id="mvtype" style="FONT-SIZE: 9pt">
<option value="asf" selected>mp3--wma</option>
<option value="rm">RM格式</option>
<option value="flash">FLASH格式</option>
</select></td>
</tr>
<tr>
<td align="right"> </td>
<td> </td>
</tr>
<tr>
<td align="right">地址:</td>
<td><p>
<iframe name="up" frameborder=0 width="100%" height=26 scrolling=no src=upload1.asp></iframe>
</p>
<p>
<input type="text" name="swf" size="40">
</p></td>
</tr>
<tr>
<td align="right">介绍/歌词:</td>
<td><textarea rows="4" name="intro" cols="58"></textarea></td> </tr>
<tr>
<td colspan="2" width="100%" height="22" bgcolor="#799AE1"
align=center>
<input type="hidden" value="add" name="act">
<input type="submit" value=" 确定 " name="cmdok"> 
<input type="reset" value=" 取消 " name="cmdcancel"></td>
</tr>
</form>
</table>
Mtvlist.asp 歌曲列表
源代码：
%>
<BR>
<div align="center">
<center>
<table class="TableLine" cellSpacing="0" cellPadding="3" width="90%" border="1" bordercolor="#799AE1" bordercolordark="#FFFFFF">
<tr>
<td colspan="8" height="20" bgcolor="#799AE1" align=center><a href="Mtv-add.asp?MtvcID=1"><font color="white"><b>歌曲列表     [添加新的]</b></font></a></td>
</tr>
<tr bgcolor="#FFAAD5">
<td width="3%" align="center" bgcolor="#799AE1">ID</td> <td width="28%" align="center" bgcolor="#799AE1">名称</td>
<td width="13%" align="center" bgcolor="#799AE1">类别</td>
<td width="19%" align="center" bgcolor="#799AE1">歌手</td>
<td width="16%" align="center" bgcolor="#799AE1">上传时间</td>
<td width="9%" align="center" bgcolor="#799AE1">推荐</td>
<td width="6%" align="center" bgcolor="#799AE1">修改</td>
<td width="6%" align="center" bgcolor="#799AE1">删除</td>
</tr>
<%
do while not rs.eof
i=i+1
%>
<tr>
<td><%=rs("mtvid")%></td>
<td> <%=rs("name")%></td>
<td align="center"><%=rs("Mtvs")%></td>
<td align="center"><%=rs("zz")%></td>
<td align="center"><%=rs("time")%></td>
<td align="center"><a href='Mtv-Save.asp?act=SetIsGood&Mtvid=<%=rs("Mtvid")%>&Mtvcid=<%=Mtvcid%>&page =<%=CurrentPage%>'><%if rs("IsGood")=true then%>
<font color="#FF8000">撤销</font>
<%else%>推荐<%end if%></a></td>
<td align="center"><a href='Mtv-modify.asp?MtvcID=<%=rs("MtvcID")%>&MtvID=<%=rs("MtvID")%>'>修改</a></td>
<td align="center"><a title="慎重哦!" href='Mtv-del.asp?MtvID=<%=rs("MtvID")%>&MtvcID=<%=MtvcID%>&page=<%=CurrentPage %>'>删除</a></td>
</tr>
<%
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</table>
</center>
</div>
<BR>
<%
end sub
function showpage(totalnumber,maxperpage,filename)
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
%>
<div align="center">
<center>
<table class="TableLine" cellSpacing="0" cellPadding="0" width="90%" border="1" bordercolor="#799AE1" bordercolordark="#FFFFFF">
<tr>
<form method=Post action="<%=filename%>?classid=<%=classid%>&Nclassid=<%=Nclassid%>"> <td width="100%" height="20" align=center>
<center>共<font color="red"><b><%=totalnumber%></b></font>个
<%if CurrentPage<2 then%>
 首页上一页 
<%else%>
&nbsp<a href="<%=filename%>?page=1">首页</a> 
<a href="<%=filename%>?page=<%=CurrentPage-1%>">上一页</a> 
<%
end if
if n-currentpage<1 then
%>
下一页末页
<%else%>
<a href="<%=filename%>?page=<%=CurrentPage+1%>">下一页</a>
<a href="<%=filename%>?page=<%=n%>">末页</a>
<%end if%>
 页次:<strong><font color="red"><%=CurrentPage%>/<%=n%></font></strong>页
转到:<select name="page" size="1" onChange="javascript:submit()"> <%for i = 1 to n%>
<option value="<%=i%>" <%if cint(CurrentPage)=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
<%next%>
</select>
</td>
</tr>
</form>
</table>
</center>
</div>
<%end function%>
<%
set rs=nothing
conn.close
set conn=nothing
%></body></html>
修改管理员页面：管理员可根据需求修改和删除，和添加管理员
1源代码：
!--#include file="style.asp"-->
<%CheckAdmin3%>


<table border="0" width="100%" cellspacing="0" cellpadding="5">
<tr>
<td align=center valign=top>
<table width="88%" border="1" cellpadding="0" cellspacing="0" bordercolor="#6C4AF7" bordercolordark="#ECE9D8" bgcolor="#6666FF" class="TableLine">
<tr>
<td width="100%" height="20" colspan=7 bgcolor="#799AE1" align=center><font color="white"><b>管理员列表</b></font></td> </tr>
<tr bgcolor="#ECE9D8">
<td width="25%" height="22" align="center" bgcolor="#799AE1">管理员名</td>
<td width="20%" align="center" bgcolor="#799AE1">权限</td>
<td width="10%" align="center" bgcolor="#799AE1">修改</td>
<td width="10%" align="center" bgcolor="#799AE1">删除</td>
</tr>
<%
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from admin"
rs.open sql,conn,1
%>
<%
if rs.EOF then
%>
<tr><td colspan=5 align=center bgcolor="#6088DB">没有用户：（</td> </tr>
<%
else
do while NOT rs.EOF
if rs("oskey")="super" then oskey="高级管理员"
if rs("oskey")="check" then oskey="中级管理员"
if rs("oskey")="input" then oskey="初级管理员"
%>
<tr>
<td width="25%" height="19" align="center" bgcolor="#6088DB"><%=rs("Username")%></td>
<td width="20%" align="center" bgcolor="#6088DB"><%=oskey%> </td> <td width="10%" align="center" bgcolor="#6088DB"><a href="AdminModify.asp?id=<%=rs("id")%>">修改</a></td>
<td width="10%" align="center" bgcolor="#6088DB"><a href="AdminDel.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.MoveNext
loop
end if
rs.close
%>
</table>
<FORM METHOD=POST ACTION="AdminSave.asp" id=form1 name=form1>
<table border="1" width="40%" cellspacing="0" cellpadding="0" class="TableLine" bordercolor="#CCCCCC" bordercolordark="#FFFFFF"> <tr>
<td align="center" bgcolor="#799AE1" height=20 colspan=2><font color="white"><b>添加管理员</b></font></td>
</tr>
<tr>
<td align="right">管理员名：</td>
<td><input type=text name=UserName size="15" value="" onfocus=this.select() onmouseover=this.focus() name=keyword size=14 maxlength="30"></td>
</tr>
<tr>
<td align="right">管理权限：</td>
<td>
<select name="oskey">
<option value=super selected>高极管理员</option>
<option value=check>中级管理员</option>
<option value=input>初级管理员</option>
</select>
</td>
</tr>
<tr>
<td align="right">管理密码：</td>
<td><input type=text name=Password size="15" value="" onfocus=this.select() onmouseover=this.focus() name=keyword size=14 maxlength="30"></td>
</tr>
<tr>
<td align="center" colspan=2>
<input type=hidden value="add" name="act">
<input type=submit value=增加 name="submit">
<input type=reset name="Submit" value="取消">
</td>
</tr>
</table>
</FORM>
</td>
</tr>
</table>
</div>
<%
set rs=nothing
conn.close
set conn=nothing
%></body></html
删除源代码如下：
<%
set rs=server.CreateObject("ADODB.RecordSet")
set rs=conn.execute("delete * from Mtvup where Mtvid="&request.QueryString("Mtvid"))
set rs=nothing
conn.close
set conn=nothing
response.redirect "UpList.asp"
%>
生成html.
小结
本系统讲述一个在线音乐播放系统的实现过程，该系统能够根据所选择歌曲的流媒体文件格式，显示不同的音乐播放页面，并调用不同的播放器（player,或realplayer ）来播放指定的歌曲，该系统还具有歌曲分类显示，添加，修改，删除曲目信息等功能。

本次设计仍有许多不足之处，许多功能还未有实现，以后有时间还要加以完善，此次课程设计感谢程老师指导。