第三次问这个问题

 1\---------------------------------------------------------------   
 2  
 31、读数据库，将数据放在一个变量里。   
 4temp_f=rs("music")   
 5  
 62、保存成文件到服务器的硬盘：   
 7Set oFileStream = CreateObject("ADODB.Stream")   
 8oFileStream.Type = 1   
 9oFileStream.Mode = 3   
10oFileStream.Open   
11oFileStream.Write(temp_f)   
12oFileStream.SaveToFile f_name,2   
13oFileStream.Close   
14Set oFileStream = Nothing   
15f_name要事先赋好值，   
16比如：f_name=C:\Inetpub\wwwroot\xxx\xxx\xxx.mp3   
17或：f_name=Server.mappath("..")   
18f_name=f_name+"\xxx.mp3\"   
193、后台播放，

 1   
 2'on error resume next   
 3  
 4response.buffer=true   
 5  
 6'假设 wbody 是内容 filename 是客户看到的文件名   
 7  
 8wbody=rs("wbody")   
 9  
10file_Rname = rs("filename")   
11  
12'开始下载   
13  
14Filetype="application/msword"   
15  
16Response.AddHeader "Content-Disposition","filename=" & file_Rname   
17  
18Response.ContentType=Filetype   
19  
20Response.BinaryWrite(wbody).getChunk(7500000)   
21  
22Response.End   

 1   
 2Set rs = server.createobject("adodb.recordset")   
 3rs.open "select music from table where id=" & request.querystring("id"),dbcon,1,1   
 4response.buffer = true   
 5response.clear   
 6Set oFileStream = CreateObject("ADODB.Stream")   
 7oFileStream.Type = 1   
 8oFileStream.Mode = 3   
 9oFileStream.Open   
10oFileStream.Write rs("music")   
11rs.close   
12file_Rname = rs("filename")'或者随便命名   
13Filetype="application/msword"   
14Response.AddHeader "Content-Disposition","filename=" & file_Rname   
15Response.ContentType=Filetype   
16Response.BinaryWrite oFileStream.Read   
17oFileStream.Close   
18Set oFileStream = nothing   
19set rs =nothing   
20response.end   

1<file src="a.asp?musicid=你编号"></file>