<!--#Include File="Connection.Asp"-->

//音乐初始化
function playerinit()
{

loop=true;
userstop=false;
count=6;
listURL = new Array();
RadioList = new Array(count);


<%
Dim JaZ,B,sql,rs,i
Set JaZ = new q_zone
B = JaZ.JaKillStr(Request.QueryString("JaUid"))
sql="select * from [JaMusic] where JaUid='"&B&"' order by ID desc"
set rs=conn.execute(sql)
i=0
do while not rs.eof
response.write "listURL["&i&"] ="""& rs("JaUrl") & """" & vbcrlf
response.write "RadioList["&i&"] ="""& rs("JaMusicName") & """" & vbcrlf
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
conn.close
set conn=nothing

%>

NowId=0;
musicSwf.SetVariable("musicName", RadioList[NowId]);
player.URL=listURL[NowId];

//音乐初始结束
}