<%dim choose,path,mydb,myset,SQL,fs,mp3\’ 获得用户提交表单(list.htm)选中的曲目对应的id号,并将其赋给字串变量choose. choose=“(\”for i=3 to request.form.countchoose=choose+request.form(i)+“,\”nextchoose=left(choose,len(choose)-1)+“)\”if choose=“()\” thenresponse.redirect(“list.htm\”)
response.end
\’ 判断choose变量,如果不包含id号,说明list.htm中没有选中任何歌曲,终止程序.end ifpath=“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
\’ 生成点播曲目文件列表.loopSQL=“update music set click=click+1,this=this+1 where id in \”&choosemydb.execute(SQL)
\’ 更新数据库中的当天点播次数和总共点播次数.set myset=nothingmydb.closeset mydb=nothingmp3.closeset mp3=nothing
\’ 清空.response.redirect(“listen.m3u\”)
\’ 将该文件下传到用户.response.end%>
[1]