<!--#include file="function.asp"-->
<%CheckAdmin3%>
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="Star.inc"-->
<%
id=request.QueryString("id")
AskClassid=request.QueryString("AskClassid")
AskSClassid=request.QueryString("AskSClassid")
page=request.QueryString("page")
set rs=server.createobject("adodb.recordset")
sql="select * from MusicList where id="&id
rs.open sql,conn,1,1
if rs.eof then
	errmsg=errmsg+"<br>"+"<li>操作错误！请联系管理员"
	call error()
	Response.End 
else
	Wma=rs("Wma")
	Wma2=rs("Wma2")
	MusicName=rs("MusicName")
	Classid=rs("Classid")
	SClassid=rs("SClassid")
	url=rs("url")
end if
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=<%=id%>&AskClassid=<%=AskClassid%>&AskSClassid=<%=AskSClassid%>&page=<%=page%>" 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=SClassid 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="50"  maxlength="100" value="<%=MusicName%>"></td>
          </tr>
          <tr>
            <td width="15%" align="right">Wma地址：</td>
            <td width="85%"><input CLASS=input  type="text" name="Wma" value="<%=Wma%>" size="50"> <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" value="<%=Wma2%>" size="50"> <a href=javascript:upwin("userupload.asp?piclb=Wma2")>上传音乐</a> [也可直接用FTP给音乐传到空间，这里填相对应音乐路径]</td>
          </tr>
          
		    <tr>
            <td align="right">路径ID：</td>
		
            <td> <select name="urlid" id="SClassID">
			  	<%for i=1 to 3%>
                <option value="<%=i%>" <%if i=url then%>selected<%end if%>><%=i%></option>
                <%next%>
              </select> 1为采集路径，3为本地上传</td>
          </tr>
		  
          <tr>
		  
          <tr>
            <td colspan=2 align=center>
              <input  CLASS=input type="hidden" value="edit" 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
conn.close
set conn=nothing%></body></html>




		<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>









