<!-- #include file="include/common_music.asp" -->
<%
dim diskRs,diskSql,c_id,classname,s_id,SClassname,n_id,nid,nclassname,rs2,sql2,rs3,sql3,Tsql,Trs,Tn_id,Td_id,diskName,d_id
dim Tc_id,Ts_id,Sex,Photo,Intro,character,IsGood,SClassRs,SClassSql,NClassRs,NClassSql,types,ListenUrl,MusicName,songwords,singer,pcom,ptim,lang,comp,Logo,pic,name
types=Request.QueryString ("types")
id=Request.QueryString ("id")
c_id=Request.QueryString ("c_id")
s_id=Request.QueryString ("s_id")
n_id=Request.QueryString ("n_id")
d_id=trim(request.form ("d_id"))
if d_id="" then d_id=Request.QueryString ("d_id")
classname=trim(request.form("Class"))
sclassname=trim(request.form("sClass"))
nclassname=trim(request.form("nClass"))
if types="input" then
  page=trim(request.form("page"))
else
  Page=Request.QueryString ("page")
end if
if page<>"" then
keyword=request.QueryString("keyword")
keyword=replace(keyword,"'","''")
else
keyword=trim(request.form("keyword"))
keyword=replace(keyword,"'","''")
end if

'-----------------------------------一级栏目选择------------------------------------
function sel_c_id(url)
%>
<select class=input name="cid" size="1" onchange="window.open('<%response.write url%>&c_id='+this.options[this.selectedIndex].value+'&s_id=<%=s_id%>&n_id=<%=n_id%>','_self')">
<option class=red>一级栏目</option>
<%
sql2="select c_id,c_name from jk_class where nsort='msing' order by c_order,c_id"
set rs2=joekoe_cms.exec(sql2,1)
Do while not rs2.eof
%>
<option<%if c_id=CStr(rs2("c_id")) and c_id<>"" then%> selected<%end if%> value="<%=CStr(rs2("c_id"))%>"><%=rs2("c_name")%></option>
<%
rs2.MoveNext
Loop
rs2.close
%>
</select>
<%
end function
'-----------------------------------二级栏目选择------------------------------------
function sel_s_id(url)
%>
&nbsp;
<select class=input name="s_id" size="1" onchange="window.open('<%response.write url%>&c_id=<%=c_id%>&s_id='+this.options[this.selectedIndex].value+'&n_id=<%=n_id%>','_self')">
<option class=red>二级栏目</option>
<%
if c_id<>"" then
sql2="select s_id,s_name from jk_sort where c_id="&c_id&" order by s_order,s_id"
set rs2=joekoe_cms.exec(sql2,1)
Do while not rs2.eof
%>
<option<%if s_id=CStr(rs2("s_id")) then%> selected<%end if%> value="<%=CStr(rs2("s_id"))%>" name=s_id><%=rs2("s_name")%></option>
<%
rs2.MoveNext
Loop
rs2.close

end if
%>
</select>
<%
end function
'-----------------------------------歌手选择------------------------------------
function sel_n_id(url)
%>
&nbsp;<select class=input name="n_id" size="1" onchange="window.open('<%response.write url%>&c_id=<%=c_id%>&s_id=<%=s_id%>&n_id='+this.options[this.selectedIndex].value,'_self')">
<option class=red>选择歌手</option>
<%
if s_id<>"" then
sql2="select * from music_singer where s_id="&s_id
set rs2=joekoe_cms.exec(sql2,1)
Do while not rs2.eof
%>
<option<%if n_id=cstr(rs2("id")) and n_id<>"" then%> selected<%end if%> value="<%=CStr(rs2("id"))%>" name=n_id><%=rs2("name")%></option>
<%
rs2.MoveNext
Loop
rs2.close

end if
%>
</select>
<%
end function
'-----------------------------------专辑选择------------------------------------
function sel_d_id(url)
%>
&nbsp;<select class=input name="d_id" size="1">
<%
if n_id="" then exit function
sql2="select * from music_disk where n_id="&n_id
set rs2=joekoe_cms.exec(sql2,1)
Do while not rs2.eof
%>
<option<%if d_id=cstr(rs2("id")) and d_id<>"" then%> selected<%end if%> value="<%=CStr(rs2("id"))%>" name=d_id><%=rs2("name")%></option>
<%
rs2.MoveNext
Loop
rs2.close

%>
</select>
<%
end function
%>