<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="Star.inc"-->
<!--#include file="function.asp"-->

<%CheckAdmin3%>
<%
	dim SClassID1,totalid
	SClassID1=request.QueryString("SClassID")
	SClassID1=cint(SClassID1)
	'call res(SClassID1)
	set rs=server.createObject("adodb.recordset")
	sql="select sclassid from sclass"
	rs.open sql,conn,1,1
	totalid=rs.recordcount  
	rs.close

%>

<div align="center">
<center>
<table border="0" width="90%" cellspacing="1" cellpadding="1">
  <tr>
    <td align=center valign=top>
      <table border="1" width="100%" cellspacing="0" cellpadding="2" class="bordercolor" bordercolordark="#FFFFFF">
        <form method="POST" action="888wang_song_modify_ok.asp"  id="form2" name="form2">
          <tr>
           <td width="100%" height="20" colspan=2 background="tt90/bgleft.gif" align=center><font color="GREEN"><b>添加 歌 曲</b></font></td>
          </tr>
            <tr>
            <td align="right">所属分类：</td>
		
            <td>  <select name="Sclassid" >
    <%
	set rsSmall=server.createobject("adodb.recordset")
	sqlSmall="select * from sclass order by sclassid"
	rsSmall.open sqlSmall,conn,1,1
	if rsSmall.eof and rsSmall.bof then
		response.Write("<option value=无分类 >无分类</option>")
	else
	do while not rsSmall.eof
	sclassid_small=rsSmall("sclassid")
	%>
    <option value="<%=sclassid_small%>" <%if sclassid_small=SClassID1 then %>  selected  <%end if%> ><%=rsSmall("sclass")%></option>
    
	<%
	rsSmall.movenext
	loop 
	end if
	rsSmall.close
	%>
	</select>
    </td>
          </tr>
		  
          <tr>
            <td align="right">歌曲名：</td>
            <td><input CLASS="input" type="text" name="MusicName" size="30"  maxlength="100"></td>
          </tr>
          <tr>
            <td width="15%" align="right">地址：</td>
            <td width="85%"><input CLASS=input  type="text" name="Wma"  size="30"><a href=javascript:upwin("userupload.asp?piclb=Wma")>上传音乐</a> [也可直接用FTP给音乐传到空间，这里填相对应音乐路径]</td>
          </tr>
           <tr>
            <td width="15%" align="right">高音质地址：</td>
            <td width="85%"><input CLASS=input  type="text" name="Wma2"  size="30"><a href=javascript:upwin("userupload.asp?piclb=Wma2")>上传音乐</a> [也可直接用FTP给音乐传到空间，这里填相对应音乐路径]</td>
          </tr>
          
          <tr>
            <td colspan=2 align=center>
              <input  CLASS=input type="hidden" value="add" name="act">
              <input CLASS=input  type="submit" value=" 确 定 " name="cmdok">&nbsp; 
              <input CLASS=input  type="reset" value=" 重 置 "  name="cmdcancel">
            </td>
          </tr>
        </form>
     </table>
    </td>
  </tr>
</table>
<%
	set rs=nothing
    set rsSmall=nothing
	conn.close
	set conn=nothing

%>
		<script language="JavaScript" type="text/JavaScript">
function upwin(rem)
{ 
	window.open(rem,'vote','width=400,height=100,directories=no,top=300,left=200,toolbar=no,status=no,scrollbars=no,resizable=yes'); 
	}
function upwin1(rem)
{ 
	window.open(rem,'vote','width=400,height=100,directories=no,top=300,left=200,toolbar=no,status=no,scrollbars=no,resizable=yes'); 
	}

</script>









