<!--#include file="../conn/conn1.asp"-->
<!--#include file="inc.asp"-->
<!--#include file="../config.asp"-->
<%
id = Request.QueryString("id")
if id="" then
Response.Write("错误参数")
Response.End
end if
set rs=server.createobject("adodb.recordset")
sql="select * from film where id="&id
rs.open sql,conn,1,1
if rs.EOF then
response.write "没找到"
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改影片</title>
<link rel="stylesheet" type="text/css" href="../css/style.css">
</head>

<body topmargin="20" leftmargin="15" >

  <center>
 
  <form method="POST" action="saveeditfilm.asp" name="form1">

      
    <table border="0" cellspacing="0" width="600" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0" height="20" class="sx">
      <tr bgcolor="#99CC00"> 
        <td width="100%" height="20"> 
          <p align="center">修改影片页
        </td>
        </tr>
      </table>
      
    <table width="600" border="0" cellpadding="0" cellspacing="0" >
      <tr bordercolordark="#FFFFFF"> 
          <td width="100%" height="20"> 
            
          <table width="100%" cellpadding="0" cellspacing="0" border="0">
            <tr> 
              <td colspan="2" height="10">&nbsp;</td>
            </tr>
            <tr> 
              <td width="85"> <div align="center">影片名称：</div></td>
              <td> <input type="text" name="title" size="20"
          class="smallinput" maxlength="255" value="<%=rs("title")%>"> <font color="#FF0000" size="3">*</font>              </td>
            </tr>
            <tr>
              <td><div align="center">主要作者： </div></td>
              <td><input name="zzname" type="text"
          class="smallinput" id="zzname" value="<%=rs("zzname")%>" size="20" maxlength="255">
                  <font color="#FF0000" size="3">*</font> </td>
            </tr>
            <tr> 
              <td width="85"> <div align="center">主要演员： </div></td>
              <td> <input type="text" name="dog" size="20"
          class="smallinput" maxlength="255" value="<%=rs("yanyuan")%>"> 
              <font color="#FF0000" size="3">*</font>              </td>
            </tr>
            <tr> 
              <td width="85"> <div align="center">影片类别：</div></td>
              <td> <select class="smallSel" name="typeid" size="1">
                  <option value="">请选择类别</option>
                  <%
dim rs1,sql,sel
 set rs1=server.createobject("adodb.recordset")
  sql="select * from type"
 rs1.open sql,conn,1.1
			  do while not rs1.eof    
			         if CStr(rs1("typeID"))=CStr(rs("typeid")) then
					  check="selected"
					  else
					  check=""
                     end if
		             response.write "<option "+check+" value='"+CStr(rs1("typeID"))+"' name=typeid>"+rs1("type")+"</option>"+chr(13)+chr(10)
		             rs1.movenext
    		          loop
			rs1.close
			  %>
                </select> &nbsp;&nbsp;&nbsp;&nbsp; </td>
            </tr>
            <tr>
              <td><div align="center">添加时间： </div></td>
              <td><input name="dateandtime" type="text"
          class="smallinput" id="dateandtime" value="<%=rs("dateandtime")%>" size="25" maxlength="255">              </td>
            </tr>
            <tr> 
              <td width="85"> <div align="center">电影缩略图：</div></td>
              <td> <input type="text" name="images" size="50"
          class="smallinput" maxlength="255" value="<%=rs("images")%>"> </td>
            </tr>
            <tr>
              <td>&nbsp;</td>
              <td><iframe marginwidth=0 framespacing=0 marginheight=0 frameborder=0 width='360' height=20 srcolling=no src="ls3fc.asp"> 
        </iframe></td>
            </tr>
            <tr> 
              <td width="85"> <div align="center"> 
                  <p>内容简介： </p>
                </div></td>
              <td><textarea rows="8" name="content" cols="65" class="smallarea"><%=replace(rs("content"),"<br>",chr(13))%></textarea>                <font color="#FF0000" size="3">*</font> <input type="hidden" name="zhuid" value="<%=zhuid%>"> 
              <input type="hidden" name="typename" value="<%=typename%>"> </td>
            </tr>
            <tr> 
              <td width="85" valign=top> <div align="center">影片地址：</div></td>
              <td style="padding:5pt"> 
			  
			       <%dim flvurl,url2,line
                url2 ="select * from film order by id "
                Set flvurl = Server.CreateObject("ADODB.Recordset")
			    flvurl.open url2,Conn,3,1
                if flvurl.eof then
                response.write "<font color='#ffffff'>没有影片提供观看</font>"
                else				
			  %>
			       
			       <input name="url1" type="text" class="smallinput" id="url1" style="padding-left:1pt" value="<%=rs("flvurl")%>"  size=60> 
			        <INPUT TYPE="hidden" name="id1" value="<%=flvurl("id")%>"> 
			       
		            <% end if
			  %> 
		   <div id="upid"></div>              </td>
			  <%id=rs.id%>
            </tr>
           
            <tr> 
              <td colspan="2"> <div align="center">站长推荐：是： 
                  <input type="radio" name="best" value="1" <%if rs("best")=true then response.write "checked" end if%>>
                  &nbsp;&nbsp;&nbsp; 否： 
                  <input type="radio" name="best" value="0" <%if rs("best")=false then response.write "checked" end if%>>
                </div></td>
            </tr>
          </table>
            
          </td>
        </tr>
      </table>
      <p> <INPUT TYPE="hidden" name=id value=<%=rs("id")%>><INPUT TYPE="hidden" name=count value=<%=filmurl.recordcount%>>
        <input type="submit" value=" 修 改 "
  name="edit" class="buttonface">
        &nbsp; 
        <input type="reset" value=" 清 除 "
  name="cmdcancel" class="buttonface">
      </p>
      
  </form>
<div align="center">
  <p>以上带 <font color="#FF0000" size="3">*</font> 为必填写</p>
  <p> <a href="mimi.asp"><font face="Webdings" size="4">7</font>返回管理页面</a> </p>
</div></center>
</body>
</html><%   
conn.close
   set conn=nothing 
end if%>