qqcf_admin_manage_2.asp

免费电影程序:系统做免费

		<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"%>>
        rstp:// 
        <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" width=100%>
          <%
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"%>> 
            <%=Rs2("ServerIP")%></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> 
      <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"%>>
          rstp:// 
          <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" width=100%>
          <%
Set Rs1=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFFilm_Server Order By ID Asc"
Rs1.Open Sql,Conn,1,1
linenum=4
tdwidth=int(100/linenum)&"%"
jishu=1
while not rs1.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="<%=Rs1("ID")%>"<%If Rs("DownServer")=Rs1("ID") Then Response.Write " Checked"%>> 
            <%=Rs1("ServerIP")%></td>
          <%
if jishu mod linenum=0 then
Response.write "</tr>"
end if
jishu=jishu+1
rs1.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> 
      <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="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="3">
 <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=linkmanage&Assort=1&ID=<%=FilmID%>'">&nbsp;&nbsp;<input type="button" name="c" value="管理下载链接" onclick="location.href='?Action=linkmanage&Assort=2&ID=<%=FilmID%>'">
 <input type="button" name="c" value="更新静态页" onclick="location.href='QQCF.aspx?Action=showoneupdate&ID=<%=FilmID%>'">     
      </td>
</tr>

<script>
<%
If OnlineState=0 Then Response.write "document.form.b.disabled=true;"
If DownState=0 Then Response.write "document.form.c.disabled=true;"
If RsSet("HtmOpen")=0 Then  Response.write "document.form.d.disabled=true;"
%>
</script>

</form>
  <tr> 
    <td height="18" colspan="3"><strong><%=ShowStr%></strong></td>
  </tr>
  <tr> 
    <td height="18" colspan="3"><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='QQCF.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>
    <td><div align="center">操作</div></td>
  </tr>
  <%
While Not Rs.Eof
I=I+1
%>
  <form name="<%="f"&I%>" method="post" action="QQCF.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="80"> 
      </td>
      <td> <input type="submit" name="Submit" value="修改"> &nbsp; <input type="button" name="Submit2" value="删除" onclick="{if(confirm('确定要删除吗?')){window.location='QQCF.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="3"><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>
    <td><div align="center">操作</div></td>
  </tr>
  <form name="f" method="post" action="QQCF.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="80">
        </div></td>
      <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 class="tba_tr_1"> 
    <td colspan="2" bgcolor="#FFFFFF"><input type="button" name="c" value="返回链接列表" onclick="location.href='?Action=linkmanage&ID=<%=FilmID%>&Assort=<%=Assort%>'"></td>
  </tr>
  <form name="f" method="post" action="QQCF.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="QQCF.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%>