<%
dim diskRs,diskSql,diskid,classid,classname,sclassid,SClassname,nclassid,nid,nclassname,rs2,sql2,rs3,sql3,Tsql,Trs,Tn_id,Tdiskid,diskName,d_id,birthday,words,gong,Tclassid,Tsclassid,Tnclassid,yuyan,gongsi,Specialid,times,sclass,wma,urlid,play,url,da
dim byear,bmonth,bday,Tc_id,Ts_id,Sex,Photo,Intro,character,remember,IsGood,IsGood2,IsGood3,SClassRs,SClassSql,NClassRs,NClassSql,constellation,Classic,ConClassic,types,ListenUrl,MusicName,songwords,singer,PubCompany,PubTime,language,comp,Logo,pic,name,k
types=Request.QueryString ("types")
id=Request.QueryString ("id")
Specialid=Request.QueryString ("Specialid")
classid=Request.QueryString ("classid")
sclassid=Request.QueryString ("sclassid")
nclassid=Request.QueryString ("nclassid")
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_classid(url)
%>
<select class=input name="classid" size="1" onchange="window.open('<%response.write url%>&classid='+this.options[this.selectedIndex].value+'&sclassid=<%=sclassid%>&nclassid=<%=nclassid%>','_self')">
<%
sql="select * from mv_class"
set rs=joekoe_cms.exec(sql,1)
Do while not rs.eof
%>
<option<%if classid=CStr(rs("classid")) and classid<>"" then%> selected<%end if%> value="<%=CStr(rs("classid"))%>"><%=rs("class")%></option>
<%
rs.MoveNext
Loop
rs.close
%>
</select>
<%
end function
'-----------------------------------二级栏目选择------------------------------------
function sel_sclassid(url)
%>
&nbsp;
<select class=input name="sclassid" size="1" onchange="window.open('<%response.write url%>&classid=<%=classid%>&sclassid='+this.options[this.selectedIndex].value+'&nclassid=<%=nclassid%>','_self')">
<%
sql="select * from mv_sclass where classid="&classid
set rs=joekoe_cms.exec(sql,1)
Do while not rs.eof
%>
<option<%if sclassid=CStr(rs("sclassid")) then%> selected<%end if%> value="<%=CStr(rs("sclassid"))%>" name=sclassid><%=rs("sclass")%></option>
<%
rs.MoveNext
Loop
rs.close
%>
</select>
<%
end function
'-----------------------------------歌手选择------------------------------------
function sel_nclassid(url)
%>
&nbsp;<select class=input name="nclassid" size="1" onchange="window.open('<%response.write url%>&classid=<%=classid%>&sclassid=<%=sclassid%>&nclassid='+this.options[this.selectedIndex].value,'_self')">
<%
sql="select * from mv_Nclass where sclassid="&sclassid
set rs=joekoe_cms.exec(sql,1)
Do while not rs.eof
%>
<option<%if nclassid=cstr(rs("nclassid")) and nclassid<>"" then%> selected<%end if%> value="<%=CStr(rs("nclassid"))%>" name=nclassid><%=rs("nclass")%></option>
<%
rs.MoveNext
Loop
rs.close

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

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