📄 qqcf_admin_manage.asp

📁 免费电影程序:系统做免费
💻 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.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>

<%
Response.Expires= -1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","no-store"
%>
<!--#Include File="Conn.asp"-->
<!--#Include File="QQCF_MyFunction.asp"-->
<!--#Include File="QQCF_Md5.asp"-->
<!--#Include File="QQCF_GetCookie.asp"-->
<%
If Session("CFFilmAdmin")="" Then
 Response.Cookies("CFFilmAdminCookie")=""
 Call AlertUrl("请重新登陆!","QQCF_Admin.asp")
End if

Action=Request("Action")
%>
<!--#Include File="QQCF_Admin_Manage_Do.asp"-->
<html>
<head>
<title><%=RsSet("Title")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="QQCF_Style.asp"-->

<%
If Action="filmadd" Then
 Show="ashow_2();bshow_2();"
End If

If Action="filmmodify" Then
 ID=ChkStr(request("ID"),2)
 Set Rs=Server.CreateObject("ADODB.RecordSet")
 Sql="Select * From CFFilm_Film Where ID="&ID
 Rs.Open Sql,Conn,1,1
 
 
 If Rs("OnlineState")=0 Then
  Show=Show & "ashow_2();"
 Else
  Show=Show & "ashow_1();"
  
  If Rs("OnlineLevel")=1 Then
   Show=Show & "ashow_3();"
  ElseIf Rs("OnlineLevel")=2 Then
   Show=Show & "ashow_4();"
  End If

  If Rs("OnlineSite")=1 Then
   Show=Show & "ashow_5();"
  ElseIf Rs("OnlineSite")=2 Then
   Show=Show & "ashow_6();"
  End If
 End If
 
 If Rs("DownState")=0 Then
  Show=Show & "bshow_2();"
 Else
  Show=Show & "bshow_1();"
  
  If Rs("DownLevel")=1 Then
   Show=Show & "bshow_3();"
  ElseIf Rs("DownLevel")=2 Then
   Show=Show & "bshow_4();"
  End If

  If Rs("DownSite")=1 Then
   Show=Show & "bshow_5();"
  ElseIf Rs("DownSite")=2 Then
   Show=Show & "bshow_6();"
  End If  
 End If
 
End If

If Action="usermodify" Then
 User_Name=ChkStr(Request("User_Name"),1)

 Set Rs=Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From CFFilm_RegUser Where User_Name='"&User_Name&"'"
 Rs.Open Sql,Conn,1,1

 If Rs("VipState")=-1 Then
  show="ashow_1();"
 ElseIf  Rs("VipState")=0 Then
  show="ashow_2();"
 End If
End If

If Action="sysmodify" Then
 If RsSet("EmailSendType")=1 Then
  show=show&"dshow_1();"
 ElseIf RsSet("EmailSendType")=2 Then
  show=show&"dshow_2();"
 End If 
End If


If Action="sysrecset" Then
 If RsSet("RegType")=1 Then
  show="ashow()"
 ElseIf RsSet("RegType")=2 Then
  show="bshow()"
 ElseIf RsSet("RegType")=3 Then
  show="cshow()"
 ElseIf RsSet("RegType")=4 Then
  show="dshow()"
 End If
End If

If Action="qqmodify" Then
 If RsSet("QQShow")=-1 Then
  show="ashow_1()"
 ElseIf RsSet("QQShow")=0 Then
  show="ashow_2()"
 End If
End If
%>




</head>

<body<%If Action="filmadd" Or Action="filmmodify" Or Action="usermodify" Or Action="sysmodify" Or Action="sysrecset" Or Action="qqmodify"  Then Response.write " onload='"&Show&"'"%>>


<table width="98%" border="0" align="center" cellpadding="2" cellspacing="0">
  <tr> 
    <td width="160" valign="top"><table width="100%" border="0" cellspacing="1" cellpadding="0">
        <tr> 
          <td width="51%" valign="top"><TABLE align=center border=0 cellPadding=0 cellSpacing=0 
            width="100%">
              <TR> 
                <TD class=td1>&nbsp;</TD>
                <TD class=td2 width="120px">&nbsp;</TD>
                <TD class=td3></TD>
              </TR>
            </TABLE>
            <TABLE align=center bgColor=#cccccc cellPadding=0 cellSpacing=1 
            style="WORD-BREAK: break-all" width="100%">
              <TR bgColor=#ffffff> 
                <TD colSpan=2 vAlign=top>
				<!--#Include File="QQCF_Admin_Manage_Menu.asp"-->
				</TD>
              </TR>
            </TABLE>
            <TABLE align=center border=0 cellPadding=0 cellSpacing=0 
            width="100%">
              <TR> 
                <TD class=td4></TD>
                <TD class=td5 width="108px"></TD>
                <TD class=td6></TD>
              </TR>
            </TABLE></td>
        </tr>
      </table></td>
    <td valign="top">
	<table width="100%" border="0" cellspacing="1" cellpadding="0">
        <tr> 
          <td width="51%" valign="top"><TABLE align=center border=0 cellPadding=0 cellSpacing=0 
            width="100%">
              <TR> 
                <TD class=td1>&nbsp;</TD>
                <TD class=td2 width="800px">&nbsp;</TD>
                <TD class=td3></TD>
              </TR>
            </TABLE>
            <TABLE align=center bgColor=#cccccc cellPadding=0 cellSpacing=1 
            style="WORD-BREAK: break-all" width="100%">
              <TR bgColor=#ffffff> 
                <TD colSpan=2 vAlign=top style="padding-top:3px;padding-bottom:8px;">
<!--#include file="QQCF_Admin_Manage_Select.asp"-->
				</TD>
              </TR>
            </TABLE>
            <TABLE align=center border=0 cellPadding=0 cellSpacing=0 
            width="100%">
              <TR> 
                <TD class=td4></TD>
                <TD class=td5 width="730px"></TD>
                <TD class=td6></TD>
              </TR>
            </TABLE></td>
        </tr>
      </table>
	  </td>
  </tr>
</table>


</body>
</html>

<%Call ConnClose()%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -