用ASP构建音乐服务器的方法

---- 音乐服务器（Music Server）是指一个提供音乐在线服务的服务器，它包括高端提供 门户服务的网站、Web 数据库和低端的操作平台、硬件设施。目前，在 Internet 和 Intranet 上有不少这样的站点，特别是在一些高速宽带的局域网中（如校园网），音乐服务器给上 网的朋友提供了休闲娱乐的好去处，同时也给网站带来了较高的访问率。 ----像其他站点一样，音乐服务器包括网站和硬件两个部分。硬件性能和服务器效率是成 正比的，因而如何构建网站才是一个音乐服务器的关键。从目前来看，网站基本有两种类 型：一种是运行在 Unix / Linux 环境下，采用 Perl / C / Php / Java 等作 CGI 编程语言； 一种是运行在 Win NT Server 平台上，采用 ASP / WinCGI 作后台语言。前者运行效率高， 但结构复杂，比较适合大型站点；后者编程难度相对较低，而且采用 ODBC 驱动接口，数据 库连接方便，特别适合作音乐服务器。 ----一个基本的音乐服务器包括音乐在线欣赏、音乐排行榜、音乐主 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 检索和音乐下载等 四个部分。下面将主要从技术角度来讨论如何实现以上功能。 音乐主题数据库的规划 ----音乐主题数据库是 Web 站点存储所需音乐资料的仓库，它的规划在很大程度上影响了 整个网站的结构和效率。数据库中可以单独建成一张 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 单，也可以以主键和外键的形式建 成多张表单。本例中为说明上的便利，建成如下单表框架： (music.mdb) 音乐在线欣赏 ----在线欣赏是指客户端利用播放器播放服务器端的音乐文件。其原理是当客户端向服务 器提交音乐选单后，服务器生成相应的.m3u文件，并将该文件通过Http 协议 离婚协议模板下载合伙人协议 下载渠道分销协议免费下载敬业协议下载授课协议下载 下行至客户端； 客户端将被激发调用相应的播放器执行该文件，从而实现了音乐在线欣赏功能。目前支 持.m3u 文件的播放器有 Winamp、Realplayer G2、 Musicmatch 等。当这些播放器软件被正 确安装在客户端时，就可以自动播放.m3u 文件。所以解决问题的关键在于后台如何生成.m3u 文件并下行到客户端。以下利用 ASP 中内置的 FileSystem 组件给出一种解决 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 ，并给出 相应程序。 ＜％ dim choose,path,mydb,myset,SQL,fs,mp3 ‘＃＃＃＃＃ 获得 list.htm 表单中选中的歌曲项 对应的 id 号，并赋给字串变量 choose ＃＃＃＃＃ choose=“(" for i=3 to request.form.count choose=choose＋request.form(i)＋“," next choose=left(choose,len(choose)－1)＋“)" ‘＃＃＃＃＃ 判断 choose 变量，如果不包含任何 id 号， 说明 list.htm 中没有选中任何歌曲，终止程序＃＃＃＃＃ if choose=“()" then response.redirect(“list.htm") response.end end if ‘＃＃＃＃＃设置文件路径，需要把 temp 目录的权限设为 对 internet 匿名用户具有 read ＆ write 权限 ＃＃＃＃＃ path=“E:\inetpub\wwwroot\temp\" ‘＃＃＃＃＃ 创建文件对象 ＃＃＃＃＃ Set fs = CreateObject(“Scripting.FileSystemObject") Set mp3 = fs.CreateTextFile(path＋“listen.m3u", True) ‘＃＃＃＃＃ 创建数据库对象＃＃＃＃＃ set mydb=server.createobject(“adodb.connection") mydb.open “music" ‘＃＃＃＃＃ 检索数据库，获得歌曲信息 ＃＃＃＃＃ SQL=“select mp3name,url from "＆dbname＆ “where id in "＆choose set myset=tdb.execute(SQL) do while not myset.eof ‘＃＃＃＃＃ 生成点播歌曲文件列表 ＃＃＃＃＃ mp3.Write(“http://"＋myset(“url")＋chr(10)) myset.movenext loop ‘＃＃＃＃＃ 更新数据库中的当天点播次数和 总共点播次数 ＃＃＃＃＃ SQL=“update music set click=click＋1, this=this＋1 where id in "＆choose mydb.execute(SQL) ‘＃＃＃＃＃ 取消对象 ＃＃＃＃＃ set myset=nothing mydb.close set mydb=nothing mp3.close set mp3=nothing ‘＃＃＃＃＃ 将该文件下载给用户＃＃＃＃＃ response.redirect(“listen.m3u") response.end ％＞ ----注意：利用这种方法时，要控制.m3u 文件 Http 头的内容。在 Winnt 中可利用 IIS 设 置.m3u 文件类型的 Mine 内容。具体操作如下：启动 IIS —＞ 选中音乐服务器所在的 Web 站点 —＞ 点击“属性” 按钮 —＞ 在出现的属性选项卡中点击“Http 标题”卡 —＞ 点击“文件类型”按钮 —＞ 点击“新增类型”按钮 —＞ 在“相应的扩展名”中填入 “.m3u”，在“内容类型”中填入“audio/mpegurl” —＞ 然后一路确定即可。 音乐排行榜 ----音乐排行榜是音乐服务器不可缺少的一项内容，其重要性不亚于一个站点的 Pageview。 它可以向歌迷即时提供信息、引导欣赏、动态地反映潮流趋势。 在众多的音乐服务器中，排行榜也是竟相推陈出新的地方，具有很高的点击率。一般说来， 排行榜包括总共点播次数、当天点播次数、总共下载次数等内容。具体的实现方法比较简 单。在单表中可以利用如下 SQL 语句：select ＊ from music order by total_click 。 若是多表，则可以利用带 join 子句的联合查询 SQL 语句。如果要限定查询记录数，可采用 count()集合函数。如在本例中，如果要查询当天点播次数前 20 名的歌曲，可采用如下语 句：select top 20 ＊ from music order by total_click desc 。排行榜的功能主要取 决于主题数据库的规划如何，你可以根据需要增删字段，以实现相应功能（如增加进榜时 间、歌手资料、名次变化等等），所涉及的 SQL 语句也不会过于复杂。总之，排行榜是体 现一个音乐网站特色所在，可以自由发挥。 音乐主题检索 ----提到检索，很多人立刻联想到 Yahoo、Soho 等著名站点，并且颇有神秘之感。其实， 搜索引擎在数据库中并非难事，因为数据库内置的数据引擎已经提供了很好的基础。搜索 效率的高低取决于数据库的性能和 SQL 语句的效率。在前台，可以提供一系列的检索项目 和条件选项。在后台，则根据前台提交的表单，生成相应的查询语句在数据库中执行，并 将查询结果返回。比如在前台提交的表单为：检索项目=“歌手姓名”，内容=“张学友”， 匹配条件=“全字匹配”，则后台生成的 SQL 语句为：select ＊ from music where singer=‘张学友' order by edition,id asc，这样就可以检索出张学友的所有歌曲信息， 并按专集分类返回。又如前台要查询的歌手姓名为“齐秦”，且歌曲名称带有“雨”字的 所有歌曲（即要求模糊匹配），则后台生成的 SQL 语句为： select ＊ from music where singer =‘齐秦' and mp3name like ‘％雨％' order by id asc ，将返回“冬雨”、“太 阳雨”、“无情的雨无情的你”等等。只要运用适当的技巧和灵活的 SQL 语句，就可以让 你的主题检索发挥得淋漓尽致。 音乐下载功能 ----提供音乐下载功能，同样是音乐服务器的一个基本功能，特别是对远程用户，将喜爱 的歌曲下载后才能欣赏。 一般有两种方式提供下载，一种是直接通过 Http 和浏览器下载，另一种是将曲库开辟为 Ftp 目录，通过 ftp 协议下载。本例中采用前一种方式，并且在数据库中对下载次数进行跟踪 记录。有些站点还根据需要对歌曲进行压缩加密，将密码提供给正式用户，也是一条可取 之道。本例中程序如下： ＜％ ‘＃＃＃＃＃ 获得歌曲标志号 id ＃＃＃＃＃ id=request(“id") set tdb=server.createobject(“adodb.connection") tdb.open “music" SQL=“select mp3url from music where id ="＆id set tset=tdb.execute(SQL) if tset.eof then response.end else ‘＃＃＃＃＃ 更新数据库中歌曲的下载次数 ＃＃＃＃＃ SQL=“update music set total_down=total_down ＋1 where id ="＆id tdb.execute(SQL) downfile=tset(“url") tdb.close set tset=nothing set tdb=nothing end if if downfile=“" or isnull(downfile) then response.end downfile=“http://"＋downfile ‘＃＃＃＃＃ 下载相应歌曲 ＃＃＃＃＃ response.redirect(downfile) response.end ％＞ ----以上步骤就构建了一个基本的音乐服务器。当然，一个完整的音乐服务器还可以包括 歌手信息、歌迷论坛、聊天室、投票站、娱乐新闻网等等功能，都可以用 ASP 一一实现。 本文限于篇幅，不再详细讨论。只要前台页面采用独特的风格设计和完善的 JavaScript 程 序控制，后台编程运用灵活的 SQL 语句和强大的 ASP 组件，加之规划周到的 Web 数据库和 丰富的创意，就能构建一个完美的音乐服务器。有兴趣的朋友不妨试试看，你会创造一个 奇迹的！