cf_admin_manage_2.asp

支持多种播放器RealPlayer,MediaPlayer

	
    <tr> 
      <td colspan="2"> <div align="center"> 
          <input type="submit" name="Submit3" value="发布电影">
          　 
          <input type="reset" name="Submit222" value="重新填写">
        </div></td>
    </tr>
  </form>
</table>
<%End If%>


<%If Action="filmmodify" Then%>

<SCRIPT>
function ashow_1(){
at_1.style.display = "";
at_2.style.display = "none";
at_3.style.display = "";
at_4.style.display = "none";
at_5.style.display = "none";
at_6.style.display = "";
}
function ashow_2(){
at_1.style.display = "none";
at_2.style.display = "none";
at_3.style.display = "none";
at_4.style.display = "none";
at_5.style.display = "none";
at_6.style.display = "none";
}
function ashow_3(){
at_2.style.display = "none";
}
function ashow_4(){
at_2.style.display = "";
}
function ashow_5(){
at_4.style.display = "none";
at_5.style.display = "none";
}
function ashow_6(){
at_4.style.display = "";
at_5.style.display = "";
}

function bshow_1(){
bt_1.style.display = "";
bt_2.style.display = "none";
bt_3.style.display = "";
bt_4.style.display = "none";
bt_5.style.display = "none";
bt_6.style.display = "";
}
function bshow_2(){
bt_1.style.display = "none";
bt_2.style.display = "none";
bt_3.style.display = "none";
bt_4.style.display = "none";
bt_5.style.display = "none";
bt_6.style.display = "none";
}
function bshow_3(){
bt_2.style.display = "none";
}
function bshow_4(){
bt_2.style.display = "";
}
function bshow_5(){
bt_4.style.display = "none";
bt_5.style.display = "none";
}
function bshow_6(){
bt_4.style.display = "";
bt_5.style.display = "";
}
</SCRIPT>

<script>
function filmmodifycheck()
{

if ((document.form.filmname.value)=="")
{
 window.alert ('电影名称必须填写');
 document.form.filmname.focus();
 return false;
}

if ((form.classid.options[form.classid.selectedIndex].value)==""){
 window.alert ('请选择电影分类');
 document.form.classid.focus();
 return false;
}

if ((form.porducearea.options[form.porducearea.selectedIndex].value)==""){
 window.alert ('请选择电影地区!');
 document.form.porducearea.focus();
 return false;
}

if ((document.form.timelength.value)=="")
{
 window.alert ('电影时间必须填写');
 document.form.timelength.focus();
 return false;
}

if ((document.form.clicktotal.value)=="")
{
 window.alert ('电影点击数必须填写');
 document.form.clicktotal.focus();
 return false;
}

if ((document.form.onlinetotal.value)=="")
{
 window.alert ('观看次数必须填写');
 document.form.onlinetotal.focus();
 return false;
}

if ((document.form.downtotal.value)=="")
{
 window.alert ('下载次数必须填写');
 document.form.downtotal.focus();
 return false;
}

if ((document.form.listid.value)=="")
{
 window.alert ('电影排序数字必须填写');
 document.form.listid.focus();
 return false;
}

<%If CInt(GetMySet("FilmPicUpload"))=1 Then%>
var str=document.form.filmpic.value;
str = str.toLowerCase();
if (str!="" && str.indexOf("http://")>=0)
{
 window.alert ('系统设置了电影不允许使用外部链接，只允许自己上传或留空不填写');
 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=filmmodifysave&ID=<%=ID%>" onsubmit="javascript:return filmmodifycheck();">
    <tr> 
      <td colspan="2"><input type="button" name="a" value="修改此影片基本信息" onclick="location.href='?Action=filmmodify&ID=<%=ID%>'"> 
        &nbsp;&nbsp;<input type="button" name="b" value="返回影片列表" onclick="location.href='?Action=filmlist'"> 
        <%If RsSet("HtmOpen")=-1 Then%>&nbsp;&nbsp;<input type="button" name="d" value="更新静态页" onclick="location.href='Admin.aspx?Action=showoneupdate&ID=<%=ID%>'"><%End If%>
		&nbsp;&nbsp;<a href="Show/Show.asp?ID=<%=ID%>" target="_blank">转到此影片页面</a>
		</td>
    </tr>



<tr class="tba_tr_1"> 
      <td colspan="2"><strong>影片:<%=Rs("FilmName")%> 基本信息修改</strong></td>
    </tr>
    <tr> 
      <td width="120"><div align="right">电影名称：</div></td>
      <td width="639"><input name="filmname" type="text" id="name2" value="<%=Rs("FilmName")%>" size="65"></td>
    </tr>
    <tr> 
      <td valign="top"><div align="right">其它名称：</div></td>
      <td><input name="FilmOtherName" type="text" id="FilmOtherName" value="<%=Rs("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")&"'"
 If Rs("ClassID")=Rs2("ID") Then ClassStr = ClassStr & " selected"
 ClassStr = ClassStr & ">"&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"<%If Rs("CommendLevel")=1 Then Response.Write " Checked"%>>
        1颗星 
        <input type="radio" name="commendlevel" value="2"<%If Rs("CommendLevel")=2 Then Response.Write " Checked"%>>
        2颗星 
        <input name="commendlevel" type="radio" value="3"<%If Rs("CommendLevel")=3 Then Response.Write " Checked"%>>
        3颗星 
        <input type="radio" name="commendlevel" value="4"<%If Rs("CommendLevel")=4 Then Response.Write " Checked"%>>
        4颗星 
        <input type="radio" name="CommendLevel" value="5"<%If Rs("CommendLevel")=5 Then Response.Write " Checked"%>>
        5颗星 
        <input type="radio" name="CommendLevel" value="6"<%If Rs("CommendLevel")=6 Then Response.Write " Checked"%>>
        6颗星</td>
    </tr>
    <tr> 
      <td valign="top"><div align="right">生产地区：</div></td>
      <td><select  name="porducearea">
          <option value="1"<%If Rs("PorduceArea")=1 Then Response.Write " selected"%>>大陆影片</option>
          <option value="2"<%If Rs("PorduceArea")=2 Then Response.Write " selected"%>>港台影片</option>
          <option value="3"<%If Rs("PorduceArea")=3 Then Response.Write " selected"%>>日本影片</option>
          <option value="4"<%If Rs("PorduceArea")=4 Then Response.Write " selected"%>>韩国影片</option>
          <option value="5"<%If Rs("PorduceArea")=5 Then Response.Write " selected"%>>欧美影片</option>
          <option value="6"<%If Rs("PorduceArea")=6 Then Response.Write " selected"%>>其它影片</option>
        </select></td>
    </tr>
    <tr> 
      <td valign="top"><div align="right">生产年份：</div></td>
      <td><input name="PorduceYear" type="text" value="<%=Rs("PorduceYear")%>" size="6">年<input name="PorduceMonth" type="text" value="<%=Rs("PorduceMonth")%>" size="6">月</td>
    </tr>
    <tr> 
      <td valign="top"><div align="right">电影导演：</div></td>
      <td> <input name="Direct" type="text" id="Direct" value="<%=Rs("Direct")%>" size="65"></td>
    </tr>
    <tr> 
      <td valign="top"><div align="right">主要演员：</div></td>
      <td><input name="Player" type="text" id="Player" value="<%=Rs("Player")%>" size="65"></td>
    </tr>
    <tr> 
      <td valign="top"><div align="right">影片长度：</div></td>
      <td><input name="timelength" type="text" class="smallinput" value="<%=Rs("TimeLength")%>" size="6" maxlength="255"> 
        分种&nbsp;&nbsp;&nbsp;&nbsp;点击数： 
        <input name="clicktotal" type="text" value="<%=Rs("ClickTotal")%>" size="6" maxlength="255">
        次&nbsp;&nbsp;观看数： 
        <input name="onlinetotal" type="text" value="<%=Rs("OnlineTotal")%>" size="6" maxlength="255">
        次&nbsp;&nbsp;下载数： 
        <input name="downtotal" type="text" value="<%=Rs("DownTotal")%>" size="6" maxlength="255">
        次&nbsp;&nbsp;排序数字： 
        <input name="listid" type="text" value="<%=Rs("ListID")%>" size="6" maxlength="255"> 
        </td>
    </tr>

    <tr> 
      <td valign="top"><div align="right">图片地址： </div></td>
      <td> <input name="filmpic" type="text" value="<%=Rs("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" value="<%=server.HTMLEncode(Rs("FilmIntro"))%>"><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"<%If Rs("OnlineState")=-1 Then Response.Write " Checked"%> onclick="ashow_1()">
        开放 
        <input type="radio" name="OnlineState" value="0"<%If Rs("OnlineState")=0 Then Response.Write " 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"<%If Rs("OnlineLevel")=1 Then Response.Write " Checked"%> onclick="ashow_3()">
        免费电影 
        <input type="radio" name="OnlineLevel" value="2"<%If Rs("OnlineLevel")=2 Then Response.Write " Checked"%> 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"<%If Rs("OnlineSpendCount")=0 Then Response.Write " Checked"%>>
        0个影币 
		<input name="OnlineSpendCount" type="radio" value="1"<%If Rs("OnlineSpendCount")=1 Then Response.Write " Checked"%>>
        1个影币 
        <input type="radio" name="OnlineSpendCount" value="2"<%If Rs("OnlineSpendCount")=2 Then Response.Write " Checked"%>>
        2个影币 
        <input type="radio" name="OnlineSpendCount" value="3"<%If Rs("OnlineSpendCount")=3 Then Response.Write " Checked"%>>
        3个影币 
        <input type="radio" name="OnlineSpendCount" value="4"<%If Rs("OnlineSpendCount")=4 Then Response.Write " Checked"%>>
        4个影币 
        <input type="radio" name="OnlineSpendCount" value="5"<%If Rs("OnlineSpendCount")=5 Then Response.Write " Checked"%>>
        5个影币</td>
    </tr>
    <tr  id="at_3"> 
      <td valign="top"><div align="right">电影所在服务器：</div></td>
      <td><input name="OnlineSite" type="radio" value="1"<%If Rs("OnlineSite")=1 Then Response.Write " Checked"%> onclick="ashow_5()">
        外部服务器 
        <input type="radio" name="OnlineSite" value="2"<%If Rs("OnlineSite")=2 Then Response.Write " Checked"%> 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"<%If Rs("OnlineProtocol")=1 Then Response.Write " Checked"%>>
        rtsp:// 
        <input type="radio" name="OnlineProtocol" value="2"<%If Rs("OnlineProtocol")=2 Then Response.Write " Checked"%>>
        mms:// 
        <input type="radio" name="OnlineProtocol" value="3"<%If Rs("OnlineProtocol")=3 Then Response.Write " Checked"%>>
        http:// 
        <input type="radio" name="OnlineProtocol" value="4"<%If Rs("OnlineProtocol")=4 Then Response.Write " Checked"%>>
        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 Order By ID Asc"
Rs2.Open Sql,Conn,1,1
linenum=4
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 Rs("OnlineServer")=Rs2("ID") Then Response.Write " Checked"%>> 
            <%
Response.write Rs2("ServerIP")
if Rs2("ServerDesc")<>"-" Then Response.write "("&Rs2("ServerDesc")&")"
%></td>
          <%
if jishu mod linenum=0 then