📄 qqcf_admin_manage_2.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="" Or Action="filmlist" Or Action="filmsearch" Then%>
<%
ClassID=ChkStr(Request("ClassID"),2)
PorduceArea=ChkStr(Request("PorduceArea"),2)
OnlineLevel=ChkStr(Request("OnlineLevel"),2)
OnlineServer=ChkStr(Request("OnlineServer"),2)
FilmName=ChkStr(Request("FilmName"),1)
Player=ChkStr(Request("Player"),1)
CommendLevel=ChkStr(Request("CommendLevel"),2)
Px=ChkStr(Request("Px"),1)
If Action="" Then Action="filmlist"
If Px="" Then Px="ID"
Call PxFilter(Px,"ID,filmname,ClassID,OnlineLevel,ListID,PorduceArea,ClickTotal,AddDate")
Sql="Select Count(*) From CFFilm_Film"
Set Rs=Conn.Execute(Sql)
FilmTotal=Rs(0)
Sql="Select Top 2000 * From CFFilm_Film Where 1=1"
If Action="filmsearch" Then
If ClassID<>"" Then Sql=Sql&" And ClassID="&ClassID
If PorduceArea<>"" Then Sql=Sql&" And PorduceArea="&PorduceArea
If OnlineLevel<>"" Then Sql=Sql&" And OnlineLevel="&OnlineLevel
If OnlineServer<>"" Then Sql=Sql&" And OnlineServer="&OnlineServer
If FilmName<>"" Then Sql=Sql&" And FilmName Like '%"&FilmName&"%'"
If Player<>"" Then Sql=Sql&" And Player Like '%"&Player&"%'"
If CommendLevel<>"" Then Sql=Sql&" And CommendLevel="&CommendLevel
End If
Sql=Sql&" Order By "&Px&" Desc"
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
If Not Rs.Eof Then
IF Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
Page=1
Else
Page=Int(Abs(Request("page")))
End if
Rs.PageSize=10
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
%>
<table width="98%" border="0" cellspacing="0" cellpadding="4" align="center" height="20">
<form name="thisForm" method="post" action="?Action=filmsearch">
<tr>
<td><div align="right">类 别</div></td>
<td> <select name="ClassID" id="ClassID">
<option value=""<%If ClassID="" Then Response.Write " selected"%>>全部类别</option>
<%Sql="Select ID,ClassName From CFFilm_Class Order By MenuTaxis"
Set Rs2=Conn.ExeCute(Sql)
While Not Rs2.Eof%>
<option value="<%=Rs2("ID")%>"<%If ClassID=CStr(Rs2("ID")) Then Response.Write " selected"%>><%=Rs2("ClassName")%></option>
<%Rs2.MoveNext
Wend%>
</select></td>
<td><div align="right">出产地区</div></td>
<td> <select name="PorduceArea">
<option value=""<%If PorduceArea="" Then Response.Write " selected"%>>全部地区</option>
<option value="1"<%If PorduceArea="1" Then Response.Write " selected"%>>大陆影片</option>
<option value="2"<%If PorduceArea="2" Then Response.Write " selected"%>>港台影片</option>
<option value="3"<%If PorduceArea="3" Then Response.Write " selected"%>>日本影片</option>
<option value="4"<%If PorduceArea="4" Then Response.Write " selected"%>>韩国影片</option>
<option value="5"<%If PorduceArea="5" Then Response.Write " selected"%>>欧美影片</option>
<option value="6"<%If PorduceArea="6" Then Response.Write " selected"%>>其它影片</option>
</select></td>
<td><div align="right">电影级别</div></td>
<td> <select name="OnlineLevel">
<option value=""<%If OnlineLevel="" Then Response.Write " selected"%>>全部级别</option>
<option value="1"<%If OnlineLevel="1" Then Response.Write " selected"%>>免费电影</option>
<option value="2"<%If OnlineLevel="2" Then Response.Write " selected"%>>需要点数观看</option>
</select></td>
<td>所在服务器</td>
<td><select name="OnlineServer" id="OnlineServer">
<option value=""<%If OnlineServer="" Then Response.Write " selected"%>>全部类别</option>
<%Sql="Select ID,ServerIP From CFFilm_FilmServer"
Set Rs2=Conn.ExeCute(Sql)
While Not Rs2.Eof%>
<option value="<%=Rs2("ID")%>"<%If OnlineServer=CStr(Rs2("ID")) Then Response.Write " selected"%>><%=Rs2("ServerIP")%></option>
<%Rs2.MoveNext
Wend%>
</select></td>
</tr>
<tr>
<td><div align="right">电影名称</div></td>
<td> <input name="FilmName" type="text" id="title9" size="15" value="<%=Request("FilmName")%>"></td>
<td><div align="right">领衔主演</div></td>
<td><input name="Player" type="text" id="title210" size="15" value="<%=Request("Player")%>"> </td>
<td><div align="right">推荐级别</div></td>
<td><select name="CommendLevel">
<option value=""<%If CommendLevel="" Then Response.Write " selected"%>>全部级别</option>
<option value="1"<%If CommendLevel="1" Then Response.Write " selected"%>>一颗星</option>
<option value="2"<%If CommendLevel="2" Then Response.Write " selected"%>>二颗星</option>
<option value="3"<%If CommendLevel="3" Then Response.Write " selected"%>>三颗星</option>
<option value="4"<%If CommendLevel="4" Then Response.Write " selected"%>>四颗星</option>
<option value="5"<%If CommendLevel="5" Then Response.Write " selected"%>>五颗星</option>
<option value="6"<%If CommendLevel="6" Then Response.Write " selected"%>>六颗星</option>
</select></td>
<td> </td>
<td><input type="submit" name="Submit24" value="开始搜索">
</td>
</tr>
</form>
</table>
<table width="98%" align="center" class="tba">
<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>
<form name="form4" method="post" action="QQCF.aspx?Action=filmmoredel">
<tr bgcolor="#FFFFFF" class="Table_head">
<td colspan="10"><strong><font color="#FF0000">
<input type="button" name="Button" value="增加电影" onClick="window.location='?Action=filmadd';return false">
电影列表</font></strong> (点击标题可按序排列)</td>
</tr>
<tr class="tba_tr_1">
<td align="center"></td>
<td align="center"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&FilmLevel=<%=FilmLevel%>&FilmSite=<%=FilmSite%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=ID"><strong>序号</strong></a></td>
<td align="center"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&FilmLevel=<%=FilmLevel%>&FilmSite=<%=FilmSite%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=filmname"><strong>电影名称</strong></a></strong></td>
<td align="center"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&FilmLevel=<%=FilmLevel%>&FilmSite=<%=FilmSite%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=ClassID"><strong>类别</strong></a></td>
<td align="center"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&FilmLevel=<%=FilmLevel%>&FilmSite=<%=FilmSite%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=OnlineLevel"><strong>级别</strong></a></td>
<td align="center"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&FilmLevel=<%=FilmLevel%>&FilmSite=<%=FilmSite%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=ListID"><strong>排序数字</strong></a></td>
<td align="center"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&FilmLevel=<%=FilmLevel%>&FilmSite=<%=FilmSite%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=PorduceArea"><strong>产地</strong></a></td>
<td align="center"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&FilmLevel=<%=FilmLevel%>&FilmSite=<%=FilmSite%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=ClickTotal"><strong>点数次数</strong></a></td>
<td align="center"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&FilmLevel=<%=FilmLevel%>&FilmSite=<%=FilmSite%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=AddDate"><strong>增加时间</strong></a></td>
<td align="center"><strong>操作</strong></td>
</tr>
<%
While Not Rs.Eof And MyPageSize>0
%>
<tr
<%If MyPageSize Mod 2=0 Then
Response.Write " bgcolor='#ffffff'"
Else
Response.Write " bgcolor='#e8e8e8'"
End If
%>>
<td align="center"><input name="id" type="checkbox" id="box" value="<%=Rs("ID")%>"></td>
<td align="center"><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></td>
<td height="20" valign="middle"><a href="Show/Show.asp?ID=<%=Rs("ID")%>" target="_blank"><%=Rs("FilmName")%></a></td>
<td align="center"><%=GetFieldValues("CFFilm_Class","ID",Rs("ClassID"),1,"ClassName")%></td>
<td align="center"><%=GetFilmLevel(RS("OnlineLevel"))%></td>
<td align="center"><%=Rs("ListID")%></td>
<td align="center"><%=GetPorduceArea(RS("PorduceArea"))%></td>
<td align="center"><%=Rs("ClickTotal")%></td>
<td align="center"><%=GetTurnTime(Month(Rs("AddDate")))&"-"&GetTurnTime(Day(Rs("AddDate")))%></td>
<td align="center"><a href="?Action=filmmodify&ID=<%=Rs("ID")%>">修改</a>
<a href="QQCF.aspx?Action=filmdel&ID=<%=Rs("ID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a>
</td>
</tr>
<%MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
<tr bgcolor="#FFFFFF">
<td height="15" colspan="10">
<div align="right">
<INPUT name="button" type=button onclick=this.value=check(this.form.id) value="选定该页">
<INPUT name="Submit" type=submit value="删除">
</div></td>
</tr></form>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&FilmLevel=<%=FilmLevel%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=<%=Px%>&Page=1">第一页</a>
<%If Page>1 Then%><a href='?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&FilmLevel=<%=FilmLevel%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a><%End If%>
<%If Page<TotalPage Then%> <a href='?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&FilmLevel=<%=FilmLevel%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a><%End If%>
<a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&FilmLevel=<%=FilmLevel%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=<%=Px%>&Page=<%=TotalPage%>">最后一页</a>
页次：<font color="#ff0000"><%=Page%></font>/<%=TotalPage%>页 共<%=FilmTotal%>条记录 </td>
<form name="form1" method="post" action="?"><td>
转到第<Select name="page" onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%For I=1 to TotalPage
Response.Write "<option value="&filename&"?Action="&Action&"&ClassID="&ClassID&"&PorduceArea="&PorduceArea&"&FilmLevel="&FilmLevel&"&FilmName="&FilmName&"&Player="&Player&"&CommendLevel="&CommendLevel&"&Px="&Px&"&Page="&I
If Page=I Then Response.Write " selected"
Response.Write ">"&I&"</option>"
Next
%>
</select>页
</td></form>
</tr>
</table>
<%End If%>
<%If Action="filmadd" Then%>
<SCRIPT>
function ashow_1(){
at_1.style.display = "";
at_2.style.display = "none";
at_3.style.display = "";
at_4.style.display = "none";
at_5.style.display = "none";
at_6.style.display = "";
at_7.style.display = "none";
}
function ashow_2(){
at_1.style.display = "none";
at_2.style.display = "none";
at_3.style.display = "none";
at_4.style.display = "none";
at_5.style.display = "none";
at_6.style.display = "none";
at_7.style.display = "none";
}
function ashow_3(){
at_2.style.display = "none";
}
function ashow_4(){
at_2.style.display = "";
}
function ashow_5(){
at_4.style.display = "none";
at_5.style.display = "none";
}
function ashow_6(){
at_4.style.display = "";
at_5.style.display = "";
}
function ashow_7(){
at_7.style.display = "";
}
function bshow_1(){
bt_1.style.display = "";
bt_2.style.display = "none";
bt_3.style.display = "";
bt_4.style.display = "none";
bt_5.style.display = "none";
bt_6.style.display = "";
bt_7.style.display = "none";
}
function bshow_2(){
bt_1.style.display = "none";
bt_2.style.display = "none";
bt_3.style.display = "none";
bt_4.style.display = "none";
bt_5.style.display = "none";
bt_6.style.display = "none";
bt_7.style.display = "none";
}
function bshow_3(){
bt_2.style.display = "none";
}
function bshow_4(){
bt_2.style.display = "";
}
function bshow_5(){
bt_4.style.display = "none";
bt_5.style.display = "none";
}
function bshow_6(){
bt_4.style.display = "";
bt_5.style.display = "";
}
function bshow_7(){
bt_7.style.display = "";
}
</SCRIPT>
<script>
function filmaddcheck()
{
if ((document.form.filmname.value)=="")
{
window.alert ('电影名称必须填写');
document.form.filmname.focus();
return false;
}
var check_length = document.form.classid.length;
var i_count=0
for(var i=0;i<check_length;i++)
{
if (document.form.classid(i).checked)
{
i_count=i_count+1;
}
}
if(i_count==0)
{
window.alert("电影分类必须选择");
return false;
}
if ((form.porducearea.options[form.porducearea.selectedIndex].value)==""){
window.alert ('请选择电影地区!');
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -