<%@ CODEPAGE = "936" %>

<%
  if session("admin")="" then
  response.redirect "admin.asp"
  else
	if session("flag")>2 then
		response.write "<br><p align=center>您没有操作的权限</p>"
		response.end
	end if
  end if
%>
<!--#include file="conn.asp"-->
<!--#include file="../inc/const.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>修 改 下 载 程 序</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<%
dim rs
dim sql
dim count
set rs=server.createobject("adodb.recordset")
sql = "select * from Nclass order by Nclassid asc"
rs.open sql,conn,1,1
%>
<SCRIPT language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
        <%
        count = 0
        do while not rs.eof 
        %>
subcat[<%=count%>] = new Array("<%= trim(rs("Nclass"))%>","<%= trim(rs("classid"))%>","<%= trim(rs("Nclassid"))%>");
        <%
        count = count + 1
        rs.movenext
        loop
        rs.close
        %>
onecount=<%=count%>;

function changelocation(locationid)
    {
    document.myform.Nclassid.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { 
                document.myform.Nclassid.options[document.myform.Nclassid.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }    
</SCRIPT>
<body bgcolor=#800000>
<form method="POST"  name="myform"  action="<%=okurlv42d%>adminsave.asp?id=<%=request("id")%>&action=edit">
 <TABLE width="602" border="0" align="center" cellspacing="1">
 <TR align="center">
     
 <TD colspan="4" height="30" bgcolor="#008000" width="594"><b><FONT color="#FFFFFF">修 改 
  节 目 内 容</FONT></b></TD>
 </TR>
               
 <tr>
                
 <td width="75" align="right" valign="top" height="30" bgcolor="#008000"><b><font color="#FF0000">
 选择频道：</font></b></td>
 <td width="225" bgcolor="#008000" height="30">
			<SELECT name="classid" onChange="changelocation(document.myform.classid.options[document.myform.classid.selectedIndex].value)" size="1">
							<%dim classid,Nclassid
	classid=request("classid")
	Nclassid=request("Nclassid")
  sql="select * from class"
 	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "Not record."
	else
	do while not rs.eof
        if classid=cstr(rs("classid")) then
               sel="selected"
        else
               sel=""
        end if	
	response.write "<option " & sel & " value='"+CStr(rs("classID"))+"' name=classid>"+rs("class")+"</option>"+chr(13)+chr(10)
	rs.movenext
    	loop
	end if
	rs.close
%></SELECT></td>             
 <td width="75" bgcolor="#008000" align="right" height="30">
     <B><font color="#FFFFFF">选择分类</font>：</B>              
 </td>             
 <td width="225" bgcolor="#008000" height="30">
            <SELECT name="Nclassid" size="1">             
<%             
  	sql="select * from Nclass"             
 	rs.open sql,conn,1,1             
	if rs.eof and rs.bof then             
		response.write "Not record."             
	else             
        do while not rs.eof             
        if Nclassid=cstr(rs("Nclassid")) then             
               sel="selected"             
        else             
               sel=""             
        end if	             
        response.write "<option " & sel & " value='" +  Cstr(rs("Nclassid")) + "'>" + rs("Nclass") + "</option>"             
        rs.MoveNext             
        Loop             
	end if             
        rs.close             
%>             
      </SELECT>             
 </td>             
 </tr>             
 <%             
	sql="select * from download where id="&request("id")             
	rs.open sql,conn,1,1             
%>             
                     
 <tr>             
                       
 <td width="75" align="right" height="30" bgcolor="#008000">
 <font color="#FF0000"><b>作者：</b></font></td>            
 <td width="225" height="30" bgcolor="#008000">            
<FONT color="#FF0000">            
 <input type="text" name="txtshowname" size="33"            
          class="smallinput" maxlength="100" value="<%=rs("showname")%>">            
</FONT></td>            
 <td width="75" height="30" bgcolor="#008000" align="right">            
<b><font color="#FFFFFF">作品名：</font></b></td>            
 <td width="225" height="30" bgcolor="#008000">            
<FONT color="#FF0000"><input type="text" name="txtbb" size="33"            
          class="smallinput" maxlength="100" value="<%=rs("bb")%>"></FONT>        
 </td>            
 </tr>            
                   
 <tr>       
                          
 <td width="75" align="right" height="30" nowrap bgcolor="#008000"><b><font color="#FFFFFF">电影格式</font></b>:</td>                
 <td width="450" height="30" colspan="3" bgcolor="#008000">                
 [<img border="0" src="../images/rm.gif"><input type="radio" value="rm" name="movie"<%if rs("movie")="rm" then%> checked<%end if%>>]&nbsp;&nbsp;&nbsp;&nbsp;           
 [<img border="0" src="../images/win.gif"><input type="radio" value="win" name="movie"<%if rs("movie")="win" then%> checked<%end if%>>]&nbsp;&nbsp;&nbsp;  
 <font color="#FFFFFF"><b>[不是电影<input type="radio" value="" name="movie">]&nbsp;&nbsp;&nbsp; 如果是在线电影请选择播放格式</b></font></td>                   
 </tr>        
                    
 <tr bgcolor="#cce6ed">            
                      
 <td width="75" align="right" height="30" bgcolor="#008000"><b><font color="#FF0000">节目地址1</font>：</b></td>            
 <td width="450" height="30" colspan="3" bgcolor="#008000">            
 <input type="text" name="txtfilename" size="82"            
          class="smallinput" maxlength="100" value="<%=rs("filename")%>"><a href="../admin_uploadfile.asp">上传文件</a>&nbsp;            
 </td>             
 </tr>             
           
             <tr>             
                       
 <td width="76" align="right" height="30" nowrap bgcolor="#008000"><b><font color="#FF0000">节目1说明</font>：</b></td>            
 <td width="450" height="30" colspan="3" bgcolor="#008000">            
 <input type="text" name="txtname" size="82"            
          class="smallinput" maxlength="100" value="<%=rs("txtname")%>">            
 </td>               
 </tr>
           
	<tr bgcolor="#cce6ed">             
	               
 <td width="75" align="right" height="30" bgcolor="#008000"><b><font color="#FFFFFF">推荐度：</font></b></td>             
 <td width="450" height="30" colspan="3" bgcolor="#008000">             
 <select name="hot" size="1">             
  <option <%if rs("hot")=1 then%> selected <%end if%> value="1" name="hot">一星级</option>             
  <option <%if rs("hot")=2 then%> selected <%end if%> value="2" name="hot">二星级</option>             
  <option <%if rs("hot")=3 then%> selected <%end if%> value="3" name="hot">三星级</option>             
  <option <%if rs("hot")=4 then%> selected <%end if%> value="4" name="hot">四星级</option>             
  <option <%if rs("hot")=5 then%> selected <%end if%> value="5" name="hot">五星级</option>             
 </select><!--<input type="text" name="hot" size="60" class="smallinput" maxlength="100" value="3">-->             
 </td>             
 </tr>             
	<tr>             
	               
 <td width="75" align="right" height="30" bgcolor="#008000"><b><font color="#FFFFFF">节目大小：</font></b></td>             
 <td width="225" height="30" bgcolor="#008000">             
 <!--<input type="text" name="system" size="60" class="smallinput" maxlength="100" value="Win98/2000+PWS4&NT+IIS4/5">--><input type="text" name="size" size="33"             
          class="smallinput" maxlength="100" value="<%if rs("size")<>"" then%><%=rs("size")%><%else%>K<%end if%>">             
 </td>             
 <td width="75" height="30" bgcolor="#008000" align="right">             
 <b><font color="#FFFFFF">运行环境：</font></b>             
 </td>             
 <td width="225" height="30" bgcolor="#008000">             
 <font color="#FFFFFF">             
 <select name="system" size="1">
  <option value="Win9x/WinNT/Win2000/WinXP/Win.NET/WinME" name="system">Win9x/WinNT/Win2000/WinXP/Win.NET/WinME</option>
  <option value="Win9x/WinNT/Win2000/WinXP/WinME" name="system" selected>Win9x/WinNT/Win2000/WinXP/WinME</option>
  <option value="Win9x/WinNT/Win2000/WinME" name="system">Win9x/WinNT/Win2000/WinME</option>
  <option value="Win9x/WinNT/Win2000" name="system">Win9x/WinNT/Win2000</option>
  <option value="Windows9x/NT/winXP" name="system">Win9x/WinNT/winXP</option>
  <option value="Win9x/WinME" name="system">Win9x/WinME</option>
  <option value="WinNT/Win2000" name="system">WinNT/Win2000</option>
  <option value="ASP环境" name="system">ASP环境</option>
  <option value="PHP环境" name="system">PHP环境</option>
  <option value="CGI环境" name="system">CGI环境</option>
  <option value="JSP环境" name="system">JSP环境</option>
  <option value="Linux环境" name="system">Linux环境</option>
 </select> 不用选择</font></td>               
 </tr>             
	<tr bgcolor="#cce6ed">             
	               
 <td width="75" align="right" height="30" bgcolor="#008000"><b><font color="#FFFFFF">NJ信箱：</font></b></td>             
 <td height="30" bgcolor="#008000" width="225">             
 <input type="text" name="fromurl" size="33"             
          class="smallinput" maxlength="100" value="<%=rs("fromurl")%>">             
 </td>             
 <td height="30" bgcolor="#008000" width="75" align="right"><B><font color="#FFFFFF">节目图片</font>：</B></td>             
 <td height="30" bgcolor="#008000" width="225">             
 <font color="#FFFFFF">             
 <INPUT type="text" name="images" size="33"             
          class="smallinput" maxlength="160" value="<%=rs("images")%>">
 <a href="../admin_uploadfile.asp">上传图片</a></font></td>              
 </tr>             
	<tr bgcolor="#a5d0dc">             
	               
 <td width="75" align="right" height="30" bgcolor="#008000"><b><font color="#FFFFFF">制作形式：</font></b></td>             
 <td width="450" height="30" colspan="3" bgcolor="#008000">             
 <select name="order" size="1">             
  <option value="阳光电台" name="order" selected>阳光电台</option>             
  <option value="电台嘉宾">电台嘉宾</option>
 </select>             
 <!--<input type="text" name="order" size="60" class="smallinput" maxlength="100" value="免费">-->              
 <font color="#FFFFFF"><b>是否推荐              
 <input type="checkbox" name="hots" value="on">             
	是否隐藏 </b></font>             
 <input type="checkbox" name="hide" value="on">             
	</td>             
 </tr>             
                     
 <tr bgcolor="#cce6ed">             
                       
 <td width="75" align="right" valign="top" height="30" bgcolor="#008000"><b><font color="#FF0000">
 节目简介</font>：</b></td>             
 <td width="450" colspan="3" height="30" bgcolor="#008000">             
 <textarea rows="6" name="txtnote" cols="82" class="smallarea"><%
	content=replace(rs("note"),"<br>",chr(13))
	content=replace(content,"&nbsp;"," ")
	response.write content
%></textarea>             
 </td>             
 </tr>             
             
                   
                   
 </table>             
                       
  <div align="center"><center><p><input type="submit" value=" 添 加 "             
  name="cmdok" class="buttonface">&nbsp; <input type="reset" value=" 清 除 "              
  name="cmdcancel" class="buttonface"></p>             
  </center></div>             
</form>             
</body>             
</html>             
<%             
	set rs=nothing             
	conn.close             
	set conn=nothing             
%>