cf_admin_manage_3.asp

支持多种播放器RealPlayer,MediaPlayer

<%
'乘风电影程序
'制作：乘　风
'QQ：178575
'E-Mail：[e-mail]
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cffilm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示，包括如何实际整合Helix,Serv-u完全的实现在线播
'放和下载防盗链等
%>

<%If Action="htmmanage" Then%>

<%
UpdateType=Chkstr(Request("UpdateType"),1)

Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFFilm_Admin"
Rs.open Sql,Conn,1,1
%>

<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td>
<%If Rs("HtmOpen")=0 Then%>
 <input type="submit" name="Submit3322" value="开启网站静态页功能" onclick="{if(confirm('确定要开启网站静态页功能吗?')){window.location='Admin.aspx?Action=htmopen';return true;}return false;};"> 
<%ElseIf Rs("HtmOpen")=-1 Then%>
 <input type="submit" name="Submit3322" value="关闭网站静态页功能" onclick="{if(confirm('确定要关闭网站静态页功能吗?')){window.location='Admin.aspx?Action=htmclose';return true;}return false;};"> 
&nbsp;
 <input type="button" name="Submit3322" value="首页更新静态页" onclick="{if(confirm('确定要更新首页静态页功能吗?')){window.location='Admin.aspx?Action=indexupdate';return true;}return false;};"> 
&nbsp;
 <input type="button" name="Submit332" value="列表页更新静态页" onClick="window.location='?Action=<%=Action%>&UpdateType=list';return false"<%If UpdateType="list" Then%> style="BACKGROUND-COLOR: #9cc5f8;"<%End If%>> 
&nbsp;
 <input type="button" name="Submit332" value="内容页更新静态页" onClick="window.location='?Action=<%=Action%>&UpdateType=show';return false"<%If UpdateType="show" Then%> style="BACKGROUND-COLOR: #9cc5f8;"<%End If%>> 
<%End If%>
 </td>
  </tr>
</table>

<%If UpdateType="list" Then%>

<SCRIPT language=JavaScript>
<!-- Begin
var checkflag = "false";
function check(field) {
if (checkflag == "false") {
for (i = 0; i < field.length; i++) {
field[i].checked = true;}
checkflag = "true";
return "取消选定该页"; }
else {
for (i = 0; i < field.length; i++) {
field[i].checked = false; }
checkflag = "false";
return "选定该页"; }
}
//  End -->
</SCRIPT>
<table width="98%" align="center" class="tba">
<form name="form4" method="post" action="Admin.aspx?Action=classupdate">
<tr class="tba_tr_1"> 
    <td><div align="center"></div></td>
    <td><div align="center"><strong>类别ID</strong></div></td>
    <td><div align="center"><strong>类别名称</strong></div></td>
  </tr>
  <%
Assort=ChkStr(Request("Assort"),1)

Sql="Select * From CFFilm_Class Order By"

If Assort="" Then
 Sql=Sql&" ClassTaxis"
ElseIf Assort="menu" Then
 Sql=Sql&" MenuTaxis"
ElseIf Assort="index" Then
 Sql=Sql&" IndexTaxis"
Else
 Sql=Sql&" ClassTaxis"
End If


Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open Sql,Conn,1,1

While Not Rs.Eof
%>
  <tr> 
    <td><div align="center"><input name="classid" type="checkbox" id="box" value="<%=Rs("ID")%>"></div></td>
    <td><div align="center"><%=Rs("ID")%></div></td>
    <td><div align="center"><%=Rs("ClassName")%> </div></td>
  </tr>
  <%Rs.Movenext
		  Wend%>
    <tr> 
      <td height="15" colspan="3">
<div align="right"> 
<INPUT name="button" type=button onclick=this.value=check(this.form.classid) value="选定该页">
<INPUT name="Submit" type=submit value="更新静态页">
</div></td>
    </tr></form>
</table>
<%End If%>


<%If UpdateType="show" Then%>

<SCRIPT language=JavaScript>
<!-- Begin
var checkflag = "false";
function check(field) {
if (checkflag == "false") {
for (i = 0; i < field.length; i++) {
field[i].checked = true;}
checkflag = "true";
return "取消选定该页"; }
else {
for (i = 0; i < field.length; i++) {
field[i].checked = false; }
checkflag = "false";
return "选定该页"; }
}
//  End -->
</SCRIPT>
<table width="98%" align="center" class="tba">
<form name="form4" method="post" action="Admin.aspx?Action=showupdate">
<tr class="tba_tr_1"> 
    <td><div align="center"></div></td>
    <td><div align="center"><strong>类别ID</strong></div></td>
    <td><div align="center"><strong>类别名称</strong></div></td>
  </tr>
  <%
Assort=ChkStr(Request("Assort"),1)

Sql="Select * From CFFilm_Class Order By"

If Assort="" Then
 Sql=Sql&" ClassTaxis"
ElseIf Assort="menu" Then
 Sql=Sql&" MenuTaxis"
ElseIf Assort="index" Then
 Sql=Sql&" IndexTaxis"
Else
 Sql=Sql&" ClassTaxis"
End If


Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open Sql,Conn,1,1

While Not Rs.Eof
%>
  <tr> 
    <td><div align="center"><input name="classid" type="checkbox" id="box" value="<%=Rs("ID")%>"></div></td>
    <td><div align="center"><%=Rs("ID")%></div></td>
    <td><div align="center"><%=Rs("ClassName")%> </div></td>
  </tr>
  <%Rs.Movenext
		  Wend%>
    <tr> 
      <td height="15" colspan="3">
<div align="right"> 
<INPUT name="button" type=button onclick=this.value=check(this.form.classid) value="选定该页">
<INPUT name="Submit" type=submit value="更新静态页">
</div></td>
    </tr></form>
</table>
<br>
<table width="98%" align="center" class="tba">
  <form name="form4" method="post" action="Admin.aspx?Action=showupdate">
    <tr class="tba_tr_1"> 
      <td><div align="center">按时间更新</div></td>
    </tr>
    <%
Assort=ChkStr(Request("Assort"),1)

Sql="Select * From CFFilm_Class Order By"

If Assort="" Then
 Sql=Sql&" ClassTaxis"
ElseIf Assort="menu" Then
 Sql=Sql&" MenuTaxis"
ElseIf Assort="index" Then
 Sql=Sql&" IndexTaxis"
Else
 Sql=Sql&" ClassTaxis"
End If


Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open Sql,Conn,1,1

While Not Rs.Eof
%>
    <%Rs.Movenext
		  Wend%>
    <tr bgcolor="#FFFFFF"> 
      <td height="15" align="center">
		  <INPUT name="button" type=button value="最近没有生成的" onClick="window.location='Admin.aspx?Action=showupdate_2&TimeType=1';return false">
		  &nbsp;<INPUT name="button" type=button value="最近一小时" onClick="window.location='Admin.aspx?Action=showupdate_2&TimeType=2';return false">
		  &nbsp;<INPUT name="button" type=button value="今天之内的" onClick="window.location='Admin.aspx?Action=showupdate_2&TimeType=3';return false">
          &nbsp;<INPUT name="button" type=button value="本月之内" onClick="window.location='Admin.aspx?Action=showupdate_2&TimeType=4';return false">
		  &nbsp;<INPUT name="button" type=button value="所有时间内" onClick="window.location='Admin.aspx?Action=showupdate_2&TimeType=5';return false">
		  </td>
    </tr>
  </form>
</table>
<%End If%>

<%End If%>

<%If Action="classlist" Then%>
 
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td><input type="submit" name="Submit3322" value="增加栏目" onClick="window.location='?Action=classadd';return false"> 
      &nbsp;
      <input type="submit" name="Submit3322" value="全部栏目" onClick="window.location='?Action=classlist';return false"> 
      &nbsp;
      <input type="submit" name="Submit332" value="菜单排序" onClick="window.location='?Action=classlist&Assort=menu';return false"> 
      &nbsp;
      <input type="submit" name="Submit332" value="首页排序" onClick="window.location='?Action=classlist&Assort=index';return false"> 
    </td>
  </tr>
</table>
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1"> 
      <td><div align="center"><strong>类别ID</strong></div></td>
      <td><div align="center"><strong>类别名称</strong></div></td>
      <td><div align="center"><strong>类别排序</strong></div></td>
      <td><div align="center"><strong>在菜单显示</strong></div></td>
      <td><div align="center"><strong>在首页显示</strong></div></td>
      <td><div align="center"><strong>操作</strong></div></td>
    </tr>
<%
Assort=ChkStr(Request("Assort"),1)

Sql="Select * From CFFilm_Class Order By"

If Assort="" Then
 Sql=Sql&" ClassTaxis"
ElseIf Assort="menu" Then
 Sql=Sql&" MenuTaxis"
ElseIf Assort="index" Then
 Sql=Sql&" IndexTaxis"
Else
 Sql=Sql&" ClassTaxis"
End If


Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open Sql,Conn,1,1

While Not Rs.Eof
%>
    <tr> 
      <td><div align="center"><%=Rs("ID")%> </div></td>
      <td><div align="center"><%=Rs("ClassName")%></div></td>
      <td><div align="center"><%=Rs("ClassTaxis")%></div></td>
      <td><div align="center"><%=Rs("MenuTaxis")%></div></td>
      <td><div align="center"> 
          <%=Rs("IndexTaxis")%>
        </div></td>
      <td><div align="center"><a href="?Action=classmodIfy&ID=<%=Rs("ID")%>">修改</a>　　<a href="Admin.aspx?Action=classdel&ID=<%=Rs("ID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a></div></td>
    </tr>
    <%Rs.Movenext
		  Wend%>
    <tr> 
      <td colspan="6"><font color="#FF0000"><strong>注意事项：</strong></font>类别排序为数字，数字越小，在栏目中越排在最前面，为0时表示不显示</td>
    </tr>
  </table>
<%End If%>


<%If Action="classadd" then%>
  
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1"> 
    <td height="19" colspan="2"><div align="center"><strong>类别增加</strong></div></td>
  </tr>
  <form name="form1" method="post" Action="Admin.aspx?Action=classaddsave">
    <tr> 
      <td><div align="right">类别名称:</div></td>
      <td> <input name="ClassName" type="text" value=""> </td>
    </tr>
    <tr> 
      <td><div align="right">类别排序:</div></td>
      <td><input type="text" name="ClassTaxis"></td>
    </tr>
    <tr> 
      <td><div align="right">菜单排序:</div></td>
      <td><input type="text" name="MenuTaxis">
        (注：为0将不出现在菜单里)</td>
    </tr>
    <tr> 
      <td><div align="right">首页排序:</div></td>
      <td><input type="text" name="IndexTaxis">(注：为0将不出现在首页)</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td><input type="submit" name="Submit22" value="增加"></td>
    </tr>
  </form>
</table>
<%End If%>
<%If Action="classmodIfy" Then%>
<%
ID=ChkStr(Request("ID"),2)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFFilm_Class Where ID="&ID
Rs.Open Sql,Conn,1,1
%>
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1"> 
    <td height="19" colspan="2"><div align="center"><strong>类别修改</strong></div></td>
  </tr>
  <form name="form1" method="post" Action="Admin.aspx?Action=classmodifysave&ID=<%=ID%>">
    <tr> 
      <td><div align="right">类别名称:</div></td>
      <td> <input name="ClassName" type="text" value="<%=Rs("ClassName")%>"> </td>
    </tr>
    <tr> 
      <td><div align="right">类别排序:</div></td>
      <td><input type="text" name="ClassTaxis" value="<%=Rs("ClassTaxis")%>"></td>
    </tr>
    <tr> 
      <td><div align="right">菜单排序:</div></td>
      <td><input type="text" name="MenuTaxis" value="<%=Rs("MenuTaxis")%>">
        (注：为0将不出现在菜单里)</td>
    </tr>
    <tr> 
      <td><div align="right">首页排序:</div></td>
      <td><input type="text" name="IndexTaxis" value="<%=Rs("IndexTaxis")%>">(注：为0将不出现在首页)</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td><input type="submit" name="Submit22" value="修改"></td>
    </tr>
  </form>
</table>
  <%End If%>
  


<%If Action="serverlist" Then%>
<%


Sql="Select * From CFFilm_Server Order by ID"
Set Rs=Conn.Execute(Sql)
%>
  
<table width="98%" align="center" class="tba">
  <tr bgcolor="#FFFFFF"> 
    <td height="18" colspan="4"><input type="submit" name="Submit3" value="新增服务器" onClick="location.href='?Action=serveradd';"> 
    </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"><strong>密码</strong></div></td>
	<td><div align="center"><strong>描述</strong></div></td>