<!--#include file="const.asp"-->
<!--#include file="error.ini"-->
<%PageName="Admin_Allspecial_Edit"%>
<!--#include file="Top.asp"-->
<link href="Images/Admin_Style.Css" rel="stylesheet" type="text/css">
<div align="center">
<center>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
             <form method="POST" action="Admin_Allmusic_Err.Asp">
          <tr class="title">
           <td width="100%" height="20" colspan=2 align=center><b><font color="#FFFFFF">添 加 单 首 歌 曲</font></b></td>
          </tr>
          <tr>
           
            <td class=tdbg colspan=2 width="100%" height="25">&nbsp;一级栏目:
              <select class=input name="classid" size="1" onChange="window.open('Admin_Allspecial_Edit.Asp?classid='+this.options[this.selectedIndex].value,'_self')">
                <option value="" <%if request("classid")="" then%> selected<%end if%>>选择栏目</option>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from ylmv_class"
rs.open sql,conn,1,1
do while not rs.eof
%>
                <option<%if cstr(request("classid"))=cstr(rs("classid")) and request("classid")<>"" then%> selected<%end if%> value="<%=CStr(rs("classID"))%>" name=classid><%=rs("class")%></option>
<%
rs.movenext
loop
rs.close
%>
              </select>
              二级栏目:
<%if request("classid")<>"" then%>
              <select  class=input name="sclassid" size="1" onChange="window.open('Admin_Allspecial_Edit.Asp?classid=<%=request("classid")%>&sclassid='+this.options[this.selectedIndex].value,'_self')">
                <option value="" <%if request("sclassid")="" then%> selected<%end if%>>选择栏目</option>
<%
	sql="select * from ylmv_sclass where classid="&request("classid")
	rs.open sql,conn,1,1
	Do while not rs.eof
%>
                <option<%if cstr(request("sclassid"))=cstr(rs("sclassid")) and request("sclassid")<>"" then%> selected<%end if%> value="<%=CStr(rs("sclassid"))%>" name=sclassid><%=rs("sclass")%></option>
<%
	rs.MoveNext
	Loop
	rs.close
%>
<%else%>
              <select name="sclassid" size="1">
                <option value="" selected>选择栏目</option>
<%end if%>
              </select>
              三级栏目:
<%if request("Sclassid")<>"" then%>
              <select  class=input name="Nclassid" size="1" onChange="window.open('Admin_Allspecial_Edit.Asp?classid=<%=request("classid")%>&SClassid=<%=request("SClassid")%>&nclassid='+this.options[this.selectedIndex].value,'_self')">
                <option value="" <%if request("Nclassid")="" then%> selected<%end if%>>选择栏目</option>
<%
	sql="select * from ylmv_Nclass where Sclassid="&request("Sclassid")
	rs.open sql,conn,1,1
	Do while not rs.eof
%>
                <option<%if cstr(request("Nclassid"))=cstr(rs("Nclassid")) and request("Nclassid")<>"" then%> selected<%end if%> value="<%=CStr(rs("Nclassid"))%>" name=Nclassid><%=rs("Nclass")%></option>
<%
	rs.MoveNext
	Loop
	rs.close
%>
<%else%>
              <select  class=input name="Nclassid" size="1">
                <option value="" selected>选择栏目</option>
<%end if%>
              </select>
            </td>
          </tr>
          <tr>
            <td width="15%" class=tdbg align="right" height=25 >加入专辑：</td>
            <td class=tdbg height=25 >
<%if request("Nclassid")<>"" then%>
              <select class=input  name="Specialid" size="1">
                <option value="" <%if request("Specialid")="" then%> selected<%end if%>>选择专辑</option>
<%
	sql="select * from ylmv_special where Nclassid="&request("Nclassid")
	rs.open sql,conn,1,1
	Do while not rs.eof
%>
                <option<%if cstr(request("Specialid"))=CStr(rs("Specialid")) then%> selected<%end if%> value="<%=CStr(rs("Specialid"))%>" name=Specialid><%=rs("name")%></option>
<%
	rs.MoveNext
	Loop
	rs.close
else
%>
              <select  class=input name="Specialid" size="1">
                <option value="" selected>选择专辑</option>
<%end if%>
              </select>
            </td>
          </tr>
          <tr>
            <td align="right" class=tdbg height=25 >播放格式：</td>
            <td class=tdbg height=25><select name="musictype" size="1">
                <option value="1"<%if musictype=1 Then response.write(" selected") End If%>>Mp3</option>
                <option value="2"<%if musictype=2 Then response.write(" selected") End If%> >Rm</option>
                <option value="3"<%if musictype=3 Then response.write(" selected") End If%> >WmaMtv</option>
                <option value="4"<%if musictype=4 Then response.write(" selected") End If%> >RmMtv</option>
              </select></td>
          </tr>
          <tr>
            <td align="right" class=tdbg height=25 ><font color="red">歌曲名称：</font></td>
            <td class=tdbg height=25><input class=input  type="text" name="MusicName" size="20"></td>
          </tr>
          <tr>
            <td class=tdbg align="right">点击次数：</td>
            <td class=tdbg><input name="hits"  type="text" class=input value="0" size="20"></td>
          </tr>
          <tr>
            <td class=tdbg width="15%" height=25 align="right">歌曲地址：</td>
            <td class=tdbg width="85%">
              <select name="song_path" size="1">
                <option value="1" >服务器(一)</option>
                <option value="2" >服务器(二)</option>
                <option value="3" >服务器(三)</option>
                <option value="4" >服务器(四)</option>
                <option value="5" >服务器(五)</option>
                <option value="6" >服务器(六)</option>
                <option value="7" >服务器(七)</option>
                <option value="8" >服务器(八)</option>
                <option value="9" >服务器(九)</option>
                <option value="10" >服务器(十)</option>
              </select> <input type="text" name="Wma" size="30"></td>
           
          </tr>
        <tr>
            <td class=tdbg align=right>动态歌词：</td>
<%
	Dim MusicWord
	MusicWord=""
	sql="select MusicWord from [ylmv_MusicWord]  where MusicID="&id
	rs.open sql,conn,1,1
		If not(rs.bof or rs.eof) Then
			MusicWord=rs(0)
		End If
	rs.close
	
%>
            <td class=tdbg width="85%">
              <font color="#FFFFFF"><textarea rows="4" name="MusicWord" cols="44"><%=MusicWord%></textarea>
              </font>Lrc动态歌词</td> 
        </tr>
        <tr>
            <td class=tdbg align=right>静态歌词：</td>
<%
	Dim songwords
	songwords=""
	sql="select songwords from [ylmv_MusicList]  where ID="&id
	rs.open sql,conn,1,1
		If not(rs.bof or rs.eof) Then
			songwords=rs(0)
		End If
	rs.close
	
%>
            <td class=tdbg width="85%">
              <font color="#FFFFFF"><textarea rows="4" name="songwords" cols="44"><%=songwords%></textarea>
              </font>普通文本歌词</td> 
        </tr>
          <tr>
            <td colspan=2 height=25 class=tdbg align=center>
              <input type="hidden" value="add" name="act">
<%if request("Classid")="" then%>
              <input type="button"  class=input value=" 确 定 " name="cmdok" onClick="window.alert('请先选择一级栏目！')">&nbsp; 
<%elseif request("SClassid")="" then%>
              <input type="button" class=input value=" 确 定 " name="cmdok" onClick="window.alert('请先选择二级栏目！')">&nbsp; 
<%elseif request("NClassid")="" then%>
              <input type="button"  class=input value=" 确 定 " name="cmdok" onClick="window.alert('请先选择三级栏目！')">&nbsp; 
<%else%>
              <input type="submit"  class=input value=" 确 定 " name="cmdok">&nbsp; 
<%end if%>
              <input type="reset"  class=input value=" 清 除 "  name="cmdcancel">
            </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
<%
set rs=nothing
conn.close
set conn=nothing
%></body></html>