📄 cf_admin_manage_2.asp

📁 支持多种播放器RealPlayer,MediaPlayer
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<%
'乘风电影程序
'制作：乘　风
'QQ：178575
'E-Mail：yliangcf@163.com
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cffilm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示，包括如何实际整合Helix,Serv-u完全的实现在线播
'放和下载防盗链等
%>

<%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 10000 * 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,ServerDesc From CFFilm_Server"
		Set Rs2=Conn.ExeCute(Sql)
		While Not Rs2.Eof%>
          <option value="<%=Rs2("ID")%>"<%If OnlineServer=CStr(Rs2("ID")) Then Response.Write " selected"%>><%=Rs2("ServerIP")%>(<%=Rs2("ServerDesc")%>)</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>&nbsp;</td>
      <td><input type="submit" name="Submit24" value="开始搜索">
        &nbsp;</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="Admin.aspx?Action=filmmoredel">
    <tr class="Table_head"> 
      <td colspan="9"><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%>&OnlineLevel=<%=OnlineLevel%>&OnlineServer=<%=OnlineServer%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=ID"><strong>序号</strong></a></td>
      <td  align="center"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&OnlineLevel=<%=OnlineLevel%>&OnlineServer=<%=OnlineServer%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=filmname"><strong>电影名称</strong></a></strong></td>
      <td align="center"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&OnlineLevel=<%=OnlineLevel%>&OnlineServer=<%=OnlineServer%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=ClassID"><strong>类别</strong></a></td>
      <td align="center"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&OnlineLevel=<%=OnlineLevel%>&OnlineServer=<%=OnlineServer%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=OnlineLevel"><strong>级别</strong></a></td>
      <td align="center"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&OnlineLevel=<%=OnlineLevel%>&OnlineServer=<%=OnlineServer%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=PorduceArea"><strong>产地</strong></a></td>
      <td align="center"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&OnlineLevel=<%=OnlineLevel%>&OnlineServer=<%=OnlineServer%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=ClickTotal"><strong>点数次数</strong></a></td>
      <td align="center"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&OnlineLevel=<%=OnlineLevel%>&OnlineServer=<%=OnlineServer%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=OnlineTotal"><strong>观看次数</strong></a></td>
      <td align="center"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&OnlineLevel=<%=OnlineLevel%>&OnlineServer=<%=OnlineServer%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=DownTotal"><strong>下载次数</strong></a></td>
      <td align="center"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&OnlineLevel=<%=OnlineLevel%>&OnlineServer=<%=OnlineServer%>&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"><%=GetPorduceArea(RS("PorduceArea"))%></td>
      <td align="center"><%=Rs("ClickTotal")%></td>
	  <td align="center"><%=Rs("OnlineTotal")%></td>
	  <td align="center"><%=Rs("DownTotal")%></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="Admin.aspx?Action=filmdel&ID=<%=Rs("ID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a> 
      </td>
    </tr>
    <%MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
    <tr> 
      <td height="15" colspan="9" bgcolor="#FFFFFF"> <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%>&OnlineLevel=<%=OnlineLevel%>&OnlineServer=<%=OnlineServer%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=<%=Px%>&Page=1">第一页</a> 
<%If Page>1 Then%><a href='?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&OnlineLevel=<%=OnlineLevel%>&OnlineServer=<%=OnlineServer%>&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%>&OnlineLevel=<%=OnlineLevel%>&OnlineServer=<%=OnlineServer%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a><%End If%>
<a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&PorduceArea=<%=PorduceArea%>&OnlineLevel=<%=OnlineLevel%>&OnlineServer=<%=OnlineServer%>&FilmName=<%=FilmName%>&Player=<%=Player%>&CommendLevel=<%=CommendLevel%>&Px=<%=Px%>&Page=<%=TotalPage%>">最后一页</a> 
                  页次：<font color="#ff0000"><%=Page%></font>/<%=TotalPage%>页 共<%=FilmTotal%>条记录　&nbsp;</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&"&OnlineLevel="&OnlineLevel&"&OnlineServer="&OnlineServer&"&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;
}

if ((form.classid.options[form.classid.selectedIndex].value)==""){
 window.alert ('请选择电影分类');
 document.form.classid.focus();
 return false;
}

if ((form.porducearea.options[form.porducearea.selectedIndex].value)==""){
 window.alert ('请选择电影地区!');
 document.form.porducearea.focus();
 return false;
}

if ((document.form.timelength.value)=="")
{
 window.alert ('电影时间必须填写');
 document.form.timelength.focus();
 return false;
}

<%If CInt(GetMySet("FilmPicUpload"))=1 Then%>
var str=document.form.filmpic.value;
str = str.toLowerCase();
if (str!="" && str.indexOf("http://")>=0)
{
 window.alert ('系统设置了电影不允许使用外部链接，只允许自己上传或留空不填写');
12 3 4 下一页
💿 文件大小 526 K
👤 上传用户 liuchuyuan
📂 所属分类其他
🏷️ 相关标签

#MediaPlayer #RealPlayer #播放器
⌨️ 快捷键说明

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