qqcf_admin_manage_3.asp

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

<%
' 乘风电影V3.3 Mssql版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 程序安装演示:http://www.qqcf.com/?Action=setup&Setup=cffilmforsql
' 使用帮助：http://www.qqcf.com/?Action=help&Help=cffilmforsql

' 功　能：
' 1.系统做免费或收费的电影网站都可以，支持免费，点数，包月等方式观看和下载电影
' 2.支持全站生成htm静态页面，生成速度极快，全自动生成
' 3.支持防盗链，用户无法获取实际链接，可随时更改所有内部影片的链接地址
' 4.在后台可以自由管理网站上的广告
' 5.支持网站上的注册用户在线支付购买电影点数，也可升级包月等方式
' 6.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>

<!--#include file="QQCF_Style.asp"-->

<%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='QQCF.aspx?Action=htmopen';return true;}return false;};"> 
<%ElseIf Rs("HtmOpen")=-1 Then%>
 <input type="submit" name="Submit3322" value="关闭网站静态页功能" onclick="{if(confirm('确定要关闭网站静态页功能吗?')){window.location='QQCF.aspx?Action=htmclose';return true;}return false;};"> 
&nbsp;
 <input type="button" name="Submit3322" value="首页更新静态页" onclick="{if(confirm('确定要更新首页静态页功能吗?')){window.location='QQCF.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="QQCF.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="QQCF.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="QQCF.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='QQCF.aspx?Action=showupdate_2&TimeType=1';return false">
		  &nbsp;<INPUT name="button" type=button value="最近一小时" onClick="window.location='QQCF.aspx?Action=showupdate_2&TimeType=2';return false">
		  &nbsp;<INPUT name="button" type=button value="今天之内的" onClick="window.location='QQCF.aspx?Action=showupdate_2&TimeType=3';return false">
          &nbsp;<INPUT name="button" type=button value="本月之内" onClick="window.location='QQCF.aspx?Action=showupdate_2&TimeType=4';return false">
		  &nbsp;<INPUT name="button" type=button value="所有时间内" onClick="window.location='QQCF.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>