cf_admin_manage_2.asp

支持多种播放器RealPlayer,MediaPlayer

 document.form.filmpic.focus();
 return false;
}
<%End If%>

form.filmintro.value = getHTML();
form.content.value = "";
return true;
}
</script>

<table width="98%" align="center" class="tba">

  <form name="form" method="post" action="Admin.aspx?Action=filmaddsave" onsubmit="javascript:return filmaddcheck();">
<tr class="tba_tr_1"> 
      <td colspan="2"><div align="center"><strong>电影增加</strong></div></td>
    </tr>
    <tr> 
      <td width="120"><div align="right">电影名称：</div></td>
      <td width="639"><input name="filmname" type="text" id="name2" size="65">
        *</td>
    </tr>
    <tr> 
      <td valign="top"><div align="right">其它名称：</div></td>
      <td><input name="FilmOtherName" type="text" id="FilmOtherName" size="65"></td>
    </tr>
    <tr> 
      <td valign="top"><div align="right">所属栏目：</div></td>
      <td><%
ClassStr = "<select name='classid'>"
ClassStr = ClassStr & "<option value='' selected>请电影分类</option>"
Set Rs2=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFFilm_Class Order By MenuTaxis"
Rs2.Open Sql,Conn,1,1
While Not Rs2.Eof
 ClassStr = ClassStr & "<option value='"&Rs2("ID")&"'>"&Rs2("ClassName")&"</option>"
Rs2.MoveNext
Wend
Rs2.Close

Response.write ClassStr
%>
        </td>
    </tr>
    <tr> 
      <td valign="top"><div align="right">推荐级别：</div></td>
      <td> <input type="radio" name="CommendLevel" value="1">
        1颗星 
        <input type="radio" name="CommendLevel" value="2">
        2颗星 
        <input name="CommendLevel" type="radio" value="3" checked>
        3颗星 
        <input type="radio" name="CommendLevel" value="4">
        4颗星 
        <input type="radio" name="CommendLevel" value="5">
        5颗星
        <input type="radio" name="CommendLevel" value="6">
        6颗星</td>
    </tr>
    <tr> 
      <td valign="top"><div align="right">生产地区：</div></td>
      <td><select  name="porducearea">
          <option value="" selected>请选择生产地区</option>
          <option value="1">大陆影片</option>
          <option value="2">港台影片</option>
          <option value="3">日本影片</option>
          <option value="4">韩国影片</option>
          <option value="5">欧美影片</option>
          <option value="6">其它影片</option>
        </select>
        *</td>
    </tr>
    <tr> 
      <td valign="top"><div align="right">生产年份：</div></td>
      <td><input name="PorduceYear" type="text" value="" size="6">年<input name="PorduceMonth" type="text" value="" size="6">月</td>
    </tr>
	
	<tr> 
      <td valign="top"><div align="right">电影导演：</div></td>
      <td> <input name="Direct" type="text" id="Direct" size="65"></td>
    </tr>

    <tr> 
      <td valign="top"><div align="right">主要演员：</div></td>
      <td><input name="Player" type="text" id="Player" size="65"></td>
    </tr>
    <tr> 
      <td valign="top"><div align="right">影片长度：</div></td>
      <td><input name="timelength" type="text" class="smallinput" value="90" size="6" maxlength="255">
        分种*</td>
    </tr>
    <tr> 
      <td valign="top"><div align="right">图片地址： </div></td>
      <td> <input type="text" name="filmpic" size="50" maxlength="255"> </td>
    </tr>
    <tr> 
      <td valign="top"> <div align="right">上传图片： </div></td>
      <td> <iframe style="top:2px" ID="UploadFiles" src="CF_upfile.asp" frameborder=0 scrolling=no width="450" height="25"> 
        </iframe> </td>
    </tr>
    <tr> 
      <td valign="top"><div align="right">电影简介：</div></td>
      <td height="200"><input name="filmintro" type="hidden"><input name="content" type="hidden">
        <SCRIPT src="editor/Post.js"></SCRIPT></td>
    </tr>
    <tr> 
      <td valign="top"><div align="right"><strong>在线观看设置：</strong></div></td>
      <td> <input name="OnlineState" type="radio" value="-1"  onclick="ashow_1();ashow_7();setid();">
        开放 
        <input type="radio" name="OnlineState" value="0" checked onclick="ashow_2()">
        关闭</td>
    </tr>
    <tr id="at_1"> 
      <td valign="top"> <div align="right">开放权限：</div></td>
      <td><input name="OnlineLevel" type="radio" value="1" checked onclick="ashow_3()">
          免费电影 
          <input type="radio" name="OnlineLevel" value="2" onclick="ashow_4()">
        需要消耗点数观看 
</td>
    </tr>
    <tr id="at_2"> 
      <td valign="top"><div align="right">观看每集花费点数：</div></td>
      <td> <input name="OnlineSpendCount" type="radio" value="0" checked>
        0个影币 
		<input name="OnlineSpendCount" type="radio" value="1" checked>
        1个影币 
        <input type="radio" name="OnlineSpendCount" value="2">
        2个影币 
        <input type="radio" name="OnlineSpendCount" value="3">
        3个影币 
        <input type="radio" name="OnlineSpendCount" value="4">
        4个影币 
        <input type="radio" name="OnlineSpendCount" value="5">
        5个影币</td>
    </tr>
    <tr id="at_3"> 
      <td valign="top"><div align="right">电影所在服务器：</div></td>
      <td><input name="OnlineSite" type="radio" value="1" checked onclick="ashow_5()">
        外部服务器 
        <input type="radio" name="OnlineSite" value="2" onclick="ashow_6()">
        内部服务器</td>
    </tr>
    <tr id="at_4"> 
      <td valign="top"><div align="right">所用协议：</div></td>
      <td><input name="OnlineProtocol" type="radio" value="1" checked>
        rtsp:// 
        <input type="radio" name="OnlineProtocol" value="2">
        mms:// 
        <input type="radio" name="OnlineProtocol" value="3">
        http:// 
        <input type="radio" name="OnlineProtocol" value="4">
        ftp://</td>
    </tr>
    <tr id="at_5"> 
      <td valign="top"><div align="right">所在服务器：</div></td>
      <td><table border="0" cellpadding="0" cellspacing="0">
          <%
Set Rs2=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFFilm_Server"
Rs2.Open Sql,Conn,1,1
linenum=5
tdwidth=int(100/linenum)&"%"
jishu=1
while not Rs2.eof
if jishu mod linenum=1 or linenum=1 then
Response.write "<tr>"
end if%>
          <td valign="top" width="<%=tdwidth%>"> 
            <input type="radio" name="OnlineServer" value="<%=Rs2("ID")%>" <%If Jishu=1 Then Response.write " checked"%>> 
<%
Response.write Rs2("ServerIP")
if Rs2("ServerDesc")<>"-" Then Response.write "("&Rs2("ServerDesc")&")"
%></td>
          <%
if jishu mod linenum=0 then
Response.write "</tr>"
end if
jishu=jishu+1
Rs2.movenext
wend '写tr和td,jishu mod 列数为1时开始tr,为0时结束tr

jishu=jishu-1
if jishu mod linenum <> 0 then
for i= 1 to linenum-(jishu mod linenum)
	response.write "<td width='"&tdwidth&"'>&nbsp;</td>"
	if  i = linenum-(jishu mod linenum) then response.write "</tr>"
next
end if '判断最后一行tr是否正好闭合,否则增加td,里面填入空格
%>
        </table></td>
    </tr>
    <tr id="at_6"> 
      <td valign="top"><div align="right">在线链接：</div></td>
        <td valign="middle"> 集数<span lang="en-us"> </span> 
          <input type="text" name="onlinenum" class="button" value="1" size="5">
          <input type="button" name="Button" class="buttonface" onclick="ashow_7();setid();" value="设定"></td>
    </tr>

<script>
function setid()
{
str='';
if(!window.form.onlinenum.value)
window.form.onlinenum.value=1;

for(i=1;i<=window.form.onlinenum.value;i++)
{
  str+='&nbsp;影片在线地址：<input type="text" name="onlinelink'+i+'" class="button"  style="padding-left:1pt" size=45 value="">&nbsp;第'+i+'集 <BR>';
 }

 window.upid.innerHTML=str
}
</script>

    <tr id="at_7"> 
        <td valign="top"></td>
      <td id="upid"></td>
    </tr>

	
    <tr> 
      <td valign="top"><div align="right"><strong>下载设置：</strong></div></td>
      <td> <input type="radio" name="DownState" value="-1" onclick="bshow_1();bshow_7();setid_2();">
        开放 
        <input name="DownState" type="radio" value="0" checked onclick="bshow_2()">
        关闭</td>
    </tr>
    <tr id="bt_1"> 
      <td valign="top"> <div align="right">开放权限：</div></td>
      <td><input name="DownLevel" type="radio" value="1" checked onclick="bshow_3()">
          免费下载 
          <input type="radio" name="DownLevel" value="2" onclick="bshow_4()">
        需要消耗点数下载 
</td>
    </tr>
    <tr id="bt_2"> 
      <td valign="top"><div align="right">下载每集花费点数：</div></td>
      <td> <input name="DownSpendCount" type="radio" value="0" checked>
        0个影币
		<input name="DownSpendCount" type="radio" value="1" checked>
        1个影币 
        <input type="radio" name="DownSpendCount" value="2">
        2个影币 
        <input type="radio" name="DownSpendCount" value="3">
        3个影币 
        <input type="radio" name="DownSpendCount" value="4">
        4个影币 
        <input type="radio" name="DownSpendCount" value="5">
        5个影币</td>
    </tr>
    <tr id="bt_3"> 
      <td valign="top"><div align="right">电影所在服务器：</div></td>
      <td><input name="DownSite" type="radio" value="1" checked onclick="bshow_5()">
        外部服务器 
        <input type="radio" name="DownSite" value="2" onclick="bshow_6()">
        内部服务器</td>
    </tr>
    <tr id="bt_4"> 
      <td valign="top"><div align="right">所用协议：</div></td>
      <td><p> 
          <input name="DownProtocol" type="radio" value="1" checked>
          rtsp:// 
          <input type="radio" name="DownProtocol" value="2">
          mms:// 
          <input type="radio" name="DownProtocol" value="3">
          http:// 
          <input type="radio" name="DownProtocol" value="4">
          ftp://</p></td>
    </tr>
    <tr id="bt_5"> 
      <td valign="top"><div align="right">所在服务器：</div></td>
      <td><table border="0" cellpadding="0" cellspacing="0">
          <%
Set Rs2=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFFilm_Server"
Rs2.Open Sql,Conn,1,1
linenum=5
tdwidth=int(100/linenum)&"%"
jishu=1
while not Rs2.eof
if jishu mod linenum=1 or linenum=1 then
Response.write "<tr>"
end if%>
          <td valign="top" width="<%=tdwidth%>"> 
            <input type="radio" name="DownServer" value="<%=Rs2("ID")%>" <%If Jishu=1 Then Response.write " checked"%>> 
<%
Response.write Rs2("ServerIP")
if Rs2("ServerDesc")<>"-" Then Response.write "("&Rs2("ServerDesc")&")"
%></td>
          <%
if jishu mod linenum=0 then
Response.write "</tr>"
end if
jishu=jishu+1
Rs2.movenext
wend '写tr和td,jishu mod 列数为1时开始tr,为0时结束tr

jishu=jishu-1
if jishu mod linenum <> 0 then
for i= 1 to linenum-(jishu mod linenum)
	response.write "<td width='"&tdwidth&"'>&nbsp;</td>"
	if  i = linenum-(jishu mod linenum) then response.write "</tr>"
next
end if '判断最后一行tr是否正好闭合,否则增加td,里面填入空格
%>
        </table></td>
    </tr>
        <tr id="bt_6"> 
      <td valign="top"><div align="right">下载链接：</div></td>
        <td valign="middle"> 集数<span lang="en-us"> </span> 
          <input type="text" name="downnum" class="button" value="1" size="5">
          <input type="button" name="Button" class="buttonface" onclick="bshow_7();setid_2();" value="设定"></td>
    </tr>
<script>
function setid_2()
{
str='';
if(!window.form.downnum.value)
window.form.downnum.value=1;

for(i=1;i<=window.form.downnum.value;i++)
{
  str+='&nbsp;影片下载地址：<input type="text" name="downlink'+i+'" class="button"  style="padding-left:1pt" size=45 value="">&nbsp;第'+i+'集 <BR>';
 }
 
 window.upid_2.innerHTML=str
}
</script>
    <tr id="bt_7"> 
        <td valign="top"></td>
      <td id="upid_2"></td>
    </tr>