请高手帮忙,这个音乐播放程序在本地上测试可以,但为什么上传到服务器就播放不了.
<table width="400" height="340" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#666666" style="border-collapse:collapse;">
<tr>
    <td width="396" colspan="3" align="center" bordercolor="#000000">
<% Dim   i
   Randomize   '初始化随机数生成器。   
i   =   Int((10 * Rnd)   +   1)'   产生   1   到   10   之间的随机数。
'Response.Write   i
path=Server.MapPath(i&".m3u") '生成.m3u文件路径
set fso=Server.CreateObject("Scripting.FileSystemObject")
Set mp3 = fso.CreateTextFile(path,True) '生成.m3u文件
do while not rs.eof
   mp3.WriteLine rs("address")'写入地址到m3u文件
rs.movenext
   loop
mp3.Close '关闭fso对象
rs.close
set rs=nothing
%>
   <object id="mPlayer1" width=300 height=300 classid="CLSID:6BF52A52-394A-11D3-B153-00C04F79FAA6">
      <param name="URL" value="<%=path%>">
          <param name="rate" value="1">
          <param name="balance" value="0">
          <param name="currentPosition" value="0">
          <param name="defaultFrame" value>
          <param name="playCount" value="100">
          <param name="autoStart" value="1">
          <param name="currentMarker" value="0">
          <param name="invokeURLs" value="1">
          <param name="baseURL" value>
          <param name="volume" value="100">
          <param name="mute" value="0">
          <param name="uiMode" value="full">
          <param name="stretchToFit" value="0">
          <param name="windowlessVideo" value="0">
          <param name="enabled" value="1">
          <param name="enableContextMenu" value="1">
          <param name="fullScreen" value="0">
          <param name="SAMIStyle" value>
          <param name="SAMILang" value>
          <param name="SAMIFilename" value>
          <param name="captioningID" value>
          <param name="enableErrorDialogs" value="0">
          <param name="_cx" value>
          <param name="_cy" value>
      </object> </td>
</tr>
</table>

那说明服务器不支持