cf_admin_manage_2.asp

支持多种播放器RealPlayer,MediaPlayer

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">&nbsp;</td>
      <td><input type="button" name="submit_oneline" value="管理在线链接" onclick="location.href='?Action=linkmanage&Assort=1&ID=<%=ID%>'"></td>
    </tr>
	
    <tr> 
      <td valign="top"><div align="right"><strong>下载设置：</strong></div></td>
      <td> <input type="radio" name="DownState" value="-1"<%If Rs("DownState")=-1 Then Response.Write " Checked"%> onclick="bshow_1()">
        开放 
        <input name="DownState" type="radio" value="0"<%If Rs("DownState")=0 Then Response.Write " 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"<%If Rs("DownLevel")=1 Then Response.Write " Checked"%> onclick="bshow_3()">
        免费电影 
        <input type="radio" name="DownLevel" value="2"<%If Rs("DownLevel")=2 Then Response.Write " Checked"%> 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"<%If Rs("DownSpendCount")=0 Then Response.Write " Checked"%>>
        0个影币 
		<input name="DownSpendCount" type="radio" value="1"<%If Rs("DownSpendCount")=1 Then Response.Write " Checked"%>>
        1个影币 
        <input type="radio" name="DownSpendCount" value="2"<%If Rs("DownSpendCount")=2 Then Response.Write " Checked"%>>
        2个影币 
        <input type="radio" name="DownSpendCount" value="3"<%If Rs("DownSpendCount")=3 Then Response.Write " Checked"%>>
        3个影币 
        <input type="radio" name="DownSpendCount" value="4"<%If Rs("DownSpendCount")=4 Then Response.Write " Checked"%>>
        4个影币 
        <input type="radio" name="DownSpendCount" value="5"<%If Rs("DownSpendCount")=5 Then Response.Write " Checked"%>>
        5个影币</td>
    </tr>
    <tr id="bt_3"> 
      <td valign="top"><div align="right">电影所在服务器：</div></td>
      <td><input name="DownSite" type="radio" value="1"<%If Rs("DownSite")=1 Then Response.Write " Checked"%> onclick="bshow_5()">
        外部服务器 
        <input type="radio" name="DownSite" value="2"<%If Rs("DownSite")=2 Then Response.Write " Checked"%> 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"<%If Rs("DownProtocol")=1 Then Response.Write " Checked"%>>
          rtsp:// 
          <input type="radio" name="DownProtocol" value="2"<%If Rs("DownProtocol")=2 Then Response.Write " Checked"%>>
          mms:// 
          <input type="radio" name="DownProtocol" value="3"<%If Rs("DownProtocol")=3 Then Response.Write " Checked"%>>
          http:// 
          <input type="radio" name="DownProtocol" value="4"<%If Rs("DownProtocol")=4 Then Response.Write " Checked"%>>
          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 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="DownServer" value="<%=Rs2("ID")%>"<%If Rs("DownServer")=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
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">&nbsp;</td>
      <td><input type="button" name="submit_down" value="管理下载链接" onclick="location.href='?Action=linkmanage&Assort=2&ID=<%=ID%>'"></td>
    </tr>
	
    <tr> 
      <td colspan="2"> <div align="center"> 
          <input type="submit" name="Submit3" value="修改电影">
          　 
          <input type="reset" name="Submit222" value="重新填写">
        </div></td>
    </tr>
  </form>
</table>
<%
If Rs("OnlineState")=0 Then
 Response.write "<script>"
 Response.write "document.form.submit_oneline.disabled=true;"
 Response.write "document.form.submit_oneline.value='管理在线链接(请设置在线观看设置为开放提交成功才能进入管理)';"
 Response.write "</script>"
End if

If Rs("DownState")=0 Then
 Response.write "<script>"
 Response.write "document.form.submit_down.disabled=true;"
 Response.write "document.form.submit_down.value='管理下载链接(请设置下载设置为开放提交成功才能进入管理)';"
 Response.write "</script>"
End If
%>
<%End If%>

<%If Action="linkmanage" Then%>
<%
Assort=GoBack(Chkstr(Request("Assort"),2),"链接类型不能为空")
FilmID=GoBack(Chkstr(Request("ID"),2),"电影ID不能为空")

Sql="Select * From CFFilm_Film where ID="&FilmID
Set Rs=Conn.Execute(Sql)
FilmName=Rs("FilmName")
OnlineState=Rs("OnlineState")
DownState=Rs("DownState")

Sql="Select * From CFFilm_Link where Assort="&Assort&" And FilmID="&FilmID&" Order by PartNum"
Set Rs=Conn.Execute(Sql)

ShowStr="影片 " & FilmName
If Assort=1 Then
 ShowStr=ShowStr & " 在线链接管理"
ElseIf Assort=2 Then
 ShowStr=ShowStr & " 下载链接管理"
End If
%>
  
<table width="98%" align="center" class="tba">
  <form name="form" method="post" action="">
    <tr> 
      <td colspan="5"><input type="button" name="a" value="修改此电影基本信息" onclick="location.href='?Action=filmmodify&ID=<%=FilmID%>'"> 
        &nbsp;&nbsp;<input type="button" name="b" value="返回影片列表" onclick="location.href='?Action=filmlist'"> 
        <%If RsSet("HtmOpen")=-1 Then%>&nbsp;&nbsp;<input type="button" name="c" value="更新静态页" onclick="location.href='Admin.aspx?Action=showoneupdate&ID=<%=FilmID%>'"><%End If%>
        &nbsp;&nbsp;<a href="Show/Show.asp?ID=<%=FilmID%>" target="_blank">转到此影片页面</a></td>
    </tr>

  </form>
  <tr> 
    <td height="18" colspan="4"><strong><%=ShowStr%></strong></td>
  </tr>
  <tr> 
    <td height="18" colspan="4"><input type="button" name="Submit3" value="新增集数" onClick="location.href='?Action=linkadd&FilmID=<%=FilmID%>&Assort=<%=Assort%>';"> 
      <input type="button" name="Submit3" value="批量新增集数" onClick="location.href='?Action=linkmoreadd&FilmID=<%=FilmID%>&Assort=<%=Assort%>';"> 
      <input type="button" name="Submit3" value="删除所有连接" onclick="{if(confirm('确定要所有链接吗?')){window.location='Admin.aspx?Action=linkmoredel&FilmID=<%=FilmID%>&Assort=<%=Assort%>';return true;}return false;};"> 
    </td>
  </tr>
  <tr class="tba_tr_1"> 
    <td height="18"><div align="center"><strong>第几集</strong></div></td>
    <td><div align="center"><strong>连接</strong></div></td>
     <%If Assort=1 Then%><td><div align="center"><strong>选择播放器</strong></div></td><%End If%>
    <td><div align="center">操作</div></td>
  </tr>
  <%
While Not Rs.Eof
I=I+1
%>
  <form name="<%="f"&I%>" method="post" action="Admin.aspx?Action=linkmodifysave&ID=<%=Rs("ID")%>">
    <tr
<%
if I mod 2=1 then
 response.write " bgcolor='#ffffff'"
else
 response.write " bgcolor='#e8e8e8'"
end if
%>
> 
      <td> <input name="PartNum" type="text" value="<%=Rs("PartNum")%>" size="8"> 
      </td>
      <td> <input name="Link" type="text" value="<%=Rs("Link")%>" size="60"> 
      </td>
<%If Assort=1 Then%><td><div align="center">
          <select name="PlayerType">
            <option value="0"<%If Rs("PlayerType")=0 Then Response.write " selected"%>>由扩展名自动判断</option>
            <option value="1"<%If Rs("PlayerType")=1 Then Response.write " selected"%>>REAl播放器</option>
            <option value="2"<%If Rs("PlayerType")=2 Then Response.write " selected"%>>WindowsMedia播放器</option>
            <option value="3"<%If Rs("PlayerType")=3 Then Response.write " selected"%>>Swf播放器</option>
            <option value="4"<%If Rs("PlayerType")=4 Then Response.write " selected"%>>Flv播放器</option>
			<option value="5"<%If Rs("PlayerType")=5 Then Response.write " selected"%>>自定义播放器1</option>
			<option value="6"<%If Rs("PlayerType")=6 Then Response.write " selected"%>>自定义播放器2</option>
			<option value="7"<%If Rs("PlayerType")=7 Then Response.write " selected"%>>自定义播放器3</option>
          </select>
        </div></td><%End If%>
      <td> <input type="submit" name="Submit" value="修改"> &nbsp; <input type="button" name="Submit2" value="删除" onclick="{if(confirm('确定要删除吗?')){window.location='Admin.aspx?Action=linkdel&FilmID=<%=FilmID%>&Assort=<%=Assort%>&ID=<%=Rs("ID")%>';return true;}return false;};"> 
      </td>
    </tr>
  </form>
  <%
Rs.MoveNext
Wend
%>
</table>
<%end if%>


<%If Action="linkadd" Then%>
<%
FilmID=GoBack(ChkStr(Request("FilmID"),2),"电影ID不能为空")
Assort=GoBack(ChkStr(Request("Assort"),2),"链接类别不能为空")
%>
<table width="98%" align="center" class="tba">
  <tr> 
    <td colspan="4"><input type="button" name="c" value="返回链接列表" onclick="location.href='?Action=linkmanage&ID=<%=FilmID%>&Assort=<%=Assort%>'"></td>
  </tr>
  <tr class="tba_tr_1"> 
    <td><div align="center"><strong>第几集</strong></div></td>
    <td><div align="center"><strong>连接</strong></div></td>
        <%If Assort=1 Then%><td><div align="center"><strong>选择播放器</strong></div></td><%End If%>
    <td><div align="center">操作</div></td>
  </tr>
  <form name="f" method="post" action="Admin.aspx?Action=linkaddsave&FilmID=<%=FilmID%>&Assort=<%=Assort%>">
    <tr> 
      <td><div align="center"> 
          <input name="PartNum" type="text" size="8">
        </div></td>
      <td><div align="center"> 
          <input name="Link" type="text" size="60">
        </div></td>
      <%If Assort=1 Then%><td><div align="center">
          <select name="PlayerType">
            <option value="0" selected>由扩展名自动判断</option>
            <option value="1">REAl格式</option>
            <option value="2">WindowsMedia格式</option>
            <option value="3">Swf格式</option>
            <option value="4">Flv格式</option>
            <option value="5">自定义播放器1</option>
            <option value="6">自定义播放器2</option>
            <option value="7">自定义播放器3</option>
          </select>
        </div></td><%End If%>
      <td> <input type="submit" name="Submit" value="增加"> </td>
    </tr>
  </form>
</table>
<%End If%>


<%If Action="linkmoreadd" Then%>
<%
FilmID=GoBack(ChkStr(Request("FilmID"),2),"电影ID不能为空")
Assort=GoBack(ChkStr(Request("Assort"),2),"链接类别不能为空")
%>
<table width="98%" align="center" class="tba">
  <tr> 
    <td colspan="2"><input type="button" name="c" value="返回链接列表" onclick="location.href='?Action=linkmanage&ID=<%=FilmID%>&Assort=<%=Assort%>'"></td>
  </tr>
  <form name="f" method="post" action="Admin.aspx?Action=linkmoreaddsave&FilmID=<%=FilmID%>&Assort=<%=Assort%>">
    <tr class="tba_tr_1"> 
      <td colspan="2"><div align="center"><strong>有规则增加</strong></div></td>
    </tr>
    <tr> 
      <td width="14%"><div align="right">集数：</div></td>
      <td width="86%">从 
        <input name="PartStartNum" type="text" id="PartStartNum" size="6">
        集到 
        <input name="PartEndNum" type="text" id="PartEndNum" size="6">
        集</td>
    </tr>
    <tr> 
      <td><div align="right">链接：</div></td>
      <td><input name="Link" type="text" size="80"></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>(注：(如带{a}标志代表1-20,21-100之类，如带{aa}标志代表01-20,21-100之类,如带{aaa}标志代表001-020,021-100之类</td>
    </tr>
    <tr> 
      <td colspan="2"> <div align="center"> 
          <input type="submit" name="Submit" value="有规则增加">
        </div></td>
    </tr>
  </form>
  <tr> 
    <td colspan="2" bgcolor="#FFFFFF">&nbsp;</td>
  </tr>
  <form name="f" method="post" action="Admin.aspx?Action=linkmoreaddsave_2&FilmID=<%=FilmID%>&Assort=<%=Assort%>">
    <tr class="tba_tr_1"> 
      <td colspan="2"><div align="center"><strong>无规则增加</strong></div></td>
    </tr>
<tr> 
      <td colspan="2"><div align="center"> 
          <textarea name="Link" cols="80" rows="10" id="Link"></textarea>
        </div></td>
    </tr>
    <tr>
      <td colspan="2">注：每行一个链接，并在每个链接后加上;集数参数，如：<br>
        http://a.com/aa.rm;1<br>
        http://b.com/bb.rm;2</td>
    </tr>
    <tr> 
      <td colspan="2"><div align="center"> 
          <input type="submit" name="Submit" value="无规则增加">
        </div></td>
    </tr>
  </form>
</table>
<%End If%>