如何?歌曲線上點播？

<%
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)＋“)"
if choose=“()" then
response.redirect(“list.htm")

response.end

' 判斷choose變數,如果不包含id號,說明list.htm中沒有選中任何歌曲,終止程式.
end if
path=“E:\inetpub\wwwroot\temp\"

' 設定檔案路徑,把temp目錄的許可權設為對internet匿名使用者具有read ＆ write 許可權.
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
%>

[1]