---- 音乐服务器（Music Server）是指一个提供音乐在线服务的服务器，它包括高端提供门户服务的网站、Web数据库和低端的操作平台、硬件设施。目前，在Internet和Intranet上有不少这样的站点，特别是在一些高速宽带的局域网中（如校园网），音乐服务器给上网的朋友提供了休闲娱乐的好去处，同时也给网站带来了较高的访问率。
  
  ----像其他站点一样，音乐服务器包括网站和硬件两个部分。硬件性能和服务器效率是成正比的，因而如何构建网站才是一个音乐服务器的关键。从目前来看，网站基本有两种类型：一种是运行在Unix / Linux环境下，采用Perl / C / Php / Java 等作CGI编程语言；一种是运行在Win NT Server 平台上，采用ASP / WinCGI 作后台语言。前者运行效率高，但结构复杂，比较适合大型站点；后者编程难度相对较低，而且采用ODBC驱动接口，数据库连接方便，特别适合作音乐服务器。
  
  ----本文将以ASP 5.0为编程环境、Mircosoft Access 97为Web 数据库、Win NT Server 4.0为运行平台，举例说明音乐服务器的构建步骤。
  
  ----一个基本的音乐服务器包括音乐在线欣赏、音乐排行榜、音乐主题检索和音乐下载等四个部分。下面将主要从技术角度来讨论如何实现以上功能。
  
  音乐主题数据库的规划
  ----音乐主题数据库是Web站点存储所需音乐资料的仓库，它的规划在很大程度上影响了整个网站的结构和效率。数据库中可以单独建成一张表单，也可以以主键和外键的形式建成多张表单。本例中为说明上的便利，建成如下单表框架： (music.mdb)
  
  
  音乐在线欣赏
  ----在线欣赏是指客户端利用播放器播放服务器端的音乐文件。其原理是当客户端向服务器提交音乐选单后，服务器生成相应的.m3u文件，并将该文件通过Http协议下行至客户端；客户端将被激发调用相应的播放器执行该文件，从而实现了音乐在线欣赏功能。目前支持.m3u文件的播放器有Winamp、Realplayer G2、 Musicmatch等。当这些播放器软件被正确安装在客户端时，就可以自动播放.m3u文件。所以解决问题的关键在于后台如何生成.m3u文件并下行到客户端。以下利用ASP中内置的FileSystem组件给出一种解决方案，并给出相应程序。
  ＜％
  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:inetpubwwwroottemp"
  ‘＃＃＃＃＃ 创建文件对象 ＃＃＃＃＃
  Set fs = CreateObject(“s cripting.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")<