课程设计说明设计题目：基于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 ; Database1．引言Internet互联网的普及，人们不再满足于只有图片，文字的网站，流媒体技术使得在线音乐播放，在线视频播放成为可能2．需求分析2．1系统需求本套系统的在线音乐播放系统，并可推广至各社会各地使用。
在系统开发上，我们选取的工具是asp ，数据库采用Microsoft ACCESS 20002．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,baocuo3：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 conndim dbpathset 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=0function 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=0cellSpacing=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.asp3.管理员模块主要代码<%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,3if not rs.EOF thenrs("LoginTimes")=rs("LoginTimes")+1rs("LoginTime")=now()rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR")rs.UpdateSession("AdminID")=rs("id")Session("IsAdmin")=trueSession("KEY")=rs("oskey")Response.Redirect ("admin.asp")elseerrmsg="请输入正确的管理员名字和密码！"call error()Response.End左框架页面：left.aspMtvadd.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,1Do while not rs.eof%><option<%if MtvcID=cstr(rs("MtvcID")) and MtvcID<>"" then%> selected<%end if%> value="<%=Cstr(rs("MtvcID"))%>"><%=rs("Mtvs")%></option> <%rs.MoveNextLooprs.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.eofi=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 dors.movenextloop%></table></center></div><BR><%end subfunction showpage(totalnumber,maxperpage,filename)if totalnumber mod maxperpage=0 thenn= totalnumber \ maxperpageelsen= totalnumber \ maxperpage+1end 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%> <a href="<%=filename%>?page=1">首页</a> <a href="<%=filename%>?page=<%=CurrentPage-1%>">上一页</a> <%end ifif 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=nothingconn.closeset conn=nothing%></body></html>修改管理员页面：管理员可根据需求修改和删除，和添加管理员1源代码：!--#include file="style.asp"--><%CheckAdmin3%><!--#include file="conn.asp"--><!--#include file="top.asp"--><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><%elsedo while NOT rs.EOFif 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.MoveNextloopend ifrs.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=nothingconn.closeset conn=nothing%></body></html删除源代码如下：<%set rs=server.CreateObject("ADODB.RecordSet")set rs=conn.execute("delete * from Mtvup where Mtvid="&request.QueryString("Mtvid"))set rs=nothingconn.closeset conn=nothingresponse.redirect "UpList.asp"%>生成html.小结本系统讲述一个在线音乐播放系统的实现过程，该系统能够根据所选择歌曲的流媒体文件格式，显示不同的音乐播放页面，并调用不同的播放器（player,或realplayer ）来播放指定的歌曲，该系统还具有歌曲分类显示，添加，修改，删除曲目信息等功能。