如何实现歌曲在线点播？_编程10000问_

<%
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(提示： 本文由神整理自网络，如有侵权请联系本站删除！
本站声明：
1、本站所有资源均来源于互联网，不保证100%完整、不提供任何技术支持；
2、本站所发布的文章以及附件仅限用于学习和研究目的;不得将用于商业或者非法用途；否则由此产生的法律后果，本站概不负责！