每次打开http://xxx/m3ulist.asp?checked=1&checked=2&checked=3都会生成3个m3u文件,每个文件包含xxx.mp3?vsid=xxx,只要&checked=x增加生成的m3u就会增加,怎么改成生成1个m3u,m3u里边含多个xxx.mp3?vsid=xxx
现在
1.m3u xx1.mp3?vsid=xxx
2.m3u xx2.mp3?vsid=xxx
3.m3u xx3.mp3?vsid=xxx
改成
1.m3u xx1.mp3?vsid=xxx xx2.mp3?vsid=xxx xx3.mp3?vsid=xxx
代码 m3ulist.asp
<%
if request("checked")<>"" then
set rs=server.createobject("adodb.recordset")
id=replace(request("checked")," ","")
id=replace(id,"'","")
id=replace(id,"=","")
id=replace(id,"from","")
sql="select wma from MusicList where id in (" & Id & ")"
rs.open sql,conn,1,1
while not rs.eof
if Instr(rs("wma"),"http://")<>0then
response.write ""&rs("wma")&""& vbCr
else
randomize
number=(int(rnd()*9999999999) 1)
strTmp=number
set objFso=Server.CreateObject("Scripting.FileSystemObject")
set txtFso=objFso.CreateTextFile(server.mappath("../m3u/"&strTmp&".m3u"),true)
txtFso.writeline serverurl&rs("wma")&".mp3?vsid="&getvsid()&""&AuthCode& vbCr
set txtFso=nothing
set objFso=nothing
end if
rs.movenext
wend
rs.Close
set rs=nothing
end if
conn.close
set conn=nothing%>