📄 cf_admin_manage.asp
字号:
<%
'乘风电影程序
'制作：乘 风
'QQ：178575
'E-Mail：yliangcf@163.com
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cffilm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示，包括如何实际整合Helix,Serv-u完全的实现在线播
'放和下载防盗链等
%>
<%
Response.Expires= -1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","no-store"
%>
<!--#Include File="Conn.asp"-->
<!--#Include File="CF_MyFunction.asp"-->
<!--#Include File="CF_Md5.asp"-->
<!--#Include File="CF_GetCookie.asp"-->
<%
If Session("CFFilmAdmin")="" Then
Response.Cookies("CFFilmAdminCookie")=""
Call AlertUrl("请重新登陆!","Admin.asp")
End if
Action=Request("Action")
%>
<!--#Include File="CF_Admin_Manage_Do.asp"-->
<html>
<head>
<title><%=RsSet("Title")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="CF_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
UserName=ChkStr(Request("UserName"),1)
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFFilm_User Where UserName='"&UserName&"'"
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="980" 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> </TD>
<TD class=td2 width="116"> </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="CF_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="144"></TD>
<TD class=td6></TD>
</TR>
</TABLE></td>
</tr>
</table></td>
<td width="820" 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> </TD>
<TD class=td2 width="776"> </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="CF_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="804"></TD>
<TD class=td6></TD>
</TR>
</TABLE></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -