怎样实现mp3在线点播(300分)(300分)

请问怎样实现mp3在线点播,
既可以选中一些歌曲,
然后立即播放,或下载.

用asp或cgi或isaapi都可
那里有这样的原码?

300分

这是一个简单的示例。
主要就是动态生成mp3的list文件。
<%@ Language=VBScript %>
<%
Response.ContentType="audio/x-mpegurl"
set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.Open(Application("Conn_ConnectionString"))
sql="SELECT ID,Name,FilePath,Visite FROM music order by owner"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.open SQL,DBConn,3,3
i=1
do while not RS.EOF
if RS("ID")=CInt(Request.Form("items")(i)) then
RS(3)=RS(3)+1
Response.write "http://202.38.73.159/music/"+trim(RS(2))+vbCrLf
RS.Update
if i<Request.Form("items").Count then
i=i+1
end if
end if
RS.MoveNext
loop
RS.Close
DBConn.Close
%>

//faint 居然自动的把原吗驱除了。
这个论坛还挺注意安全的
Response.ContentType="audio/x-mpegurl"
set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.Open(Application("Conn_ConnectionString"))
sql="SELECT ID,Name,FilePath,Visite FROM music order by owner"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.open SQL,DBConn,3,3
i=1
do while not RS.EOF
if RS("ID")=CInt(Request.Form("items")(i)) then
RS(3)=RS(3)+1
Response.write "http://202.38.73.159/music/"+trim(RS(2))+vbCrLf
RS.Update
if i<Request.Form("items").Count then
i=i+1
end if
end if
RS.MoveNext
loop
RS.Close
DBConn.Close

做一个超链接，不就点了，就下载了么？

替delete帮忙 ：）

//faint 居然自动的把原吗驱除了。
这个论坛还挺注意安全的
Response.ContentType="audio/x-mpegurl"
set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.Open(Application("Conn_ConnectionString"))
sql="SELECT ID,Name,FilePath,Visite FROM music order by owner"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.open SQL,DBConn,3,3
i=1
do while not RS.EOF
if RS("ID")=CInt(Request.Form("items")(i)) then
RS(3)=RS(3)+1
Response.write "http://202.38.73.159/music/"+trim(RS(2))+vbCrLf
RS.Update
if i<Request.Form("items").Count then
i=i+1
end if
end if
RS.MoveNext
loop
RS.Close
DBConn.Close

多人接受答案了。