📄 manage.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="security.asp"-->
<html><!--#include file="../checkpost.asp"-->
<%if session("flag")>1 then
response.write "<script>alert('您的操作权限不够！');history.back();</script>"
response.end
end if
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" type="text/css" href="css/css.css">
<title>影片管理</title>
<style type=text/css>
body { background:#336699; margin:0px; font:9pt 宋体; }
table { border:0px; }
td { font:normal 12px 宋体; }
img { vertical-align:bottom; border:0px; }
a { font:normal 12px 宋体; color:#000000; text-decoration:none; }
a:hover { color:#000000;text-decoration:underline; }
.sec_menu { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#D6DFF7; }
.menu_title { }
.menu_title span { position:relative; top:2px; left:8px; color:#215DC6; font-weight:bold; }
.menu_title2 { }
.menu_title2 span { position:relative; top:2px; left:8px; color:#428EFF; font-weight:bold; }
</style>
<script language="javascript">
function dfile(id)
{
if(confirm("确定要删除吗?")==true)
{
var filename="delfile.asp?id="+id;
window.open(filename,"显示窗口","scrollbars=yes,width=300,height=100,status=yes,resizable=no");
}
}
function CheckAll(v)
{
var i;
for (i=0;i<document.forms.elements.length;i++)
{
var e = document.forms.elements[i];
e.checked = v;
}
}
function OnDelete()
{
var del, a, i;
del = new String("");
for(i = 0; i < document.forms.elements.length ; i ++)
{
var e = document.forms.elements[i];
if(e.name == 'selAnnounce')
{
if ( e.checked == true)
{
a = e.value;
del = del + a + ";";
}
};
}
if(del == "")
{
alert("请选择要删除的电影")
}
else
{
if(confirm("确定要删除吗?")==true)
{
document.forms.submit();
}
}
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0">
<%
MaxPerPage=50
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim typename
typename=""
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim sql
dim rs
dim rstype
dim typesql
dim typeid,typename1
if not isEmpty(Replace(request("typeid"), "'", "''")) then
typeid=Replace(request("typeid"), "'", "''")
else
typeid=""
end if
if request("page")="" then
page=0
end if
%> <center>
<table width="600" border="0" cellspacing="0" cellpadding="0" height="30">
</table>
<table border="0" width="66%" cellspacing="0" cellpadding="0" >
<tr>
<td width="100%">
<p align="left"> </p>
<hr size="1" color="#000080">
<div align="center">
｜<%
set rst=server.createobject("adodb.recordset")
rst.open "select * from type",conn,1
if rst.EOF then
response.write "没有栏目："
else
%><a href="manage.asp">全部电影</a>｜<%do while NOT rst.EOF%><a href="manage.asp?typeid=<%=rst("type")%>"><%=rst("type")%></a>｜<%
rst.MoveNext
loop
end if
rst.close
set rst=nothing
%>
</div><br>
<div align="center">
｜<%
set rst1=server.createobject("adodb.recordset")
rst1.open "select * from movie",conn,1
if rst1.EOF then
response.write "没有服务器"
else
do while NOT rst1.EOF
i=i+1
%><a href="listserver.asp?serv=<%=rst1("id")%>">第<%=i%>号服务器</a>｜<%
rst1.MoveNext
loop
end if
rst1.close
set rst1=nothing
%>
</div>
</div>
<hr size="1" color="#000080">
<div align="center">
<div align="center">
</div>
</div>
</td>
</tr>
</table>
<%
if request("canlook")<>"" then
sql="select articleid,title,canlook,serverip,name from learning where canlook="&request("canlook")&" order by articleid desc"
else
if typeid="" then
if request("moviename")="" then
sql="select articleid,title,canlook,serverip,name from learning order by articleid desc"
else
name=request("moviename")
sql="select articleid,title,canlook,serverip,name from learning where title Like '%"&request("moviename")&"%' order by articleid desc"
end if
else
sql="select articleid,title,canlook,serverip,name from learning where typeid='"+typeid+"' order by articleid desc"
end if
end if
Set rs= Server.CreateObject("ADODB.Recordset")
'response.write(sql)
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'> 还 没 有 任 何 影 片</p>"
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpage totalput,MaxPerPage,"manage.asp"
showContent
showpage totalput,MaxPerPage,"manage.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpage totalput,MaxPerPage,"manage.asp"
showContent
showpage totalput,MaxPerPage,"manage.asp"
else
currentPage=1
showpage totalput,MaxPerPage,"manage.asp"
showContent
showpage totalput,MaxPerPage,"manage.asp"
end if
end if
end if
sub showContent
dim i
i=0
%>
<table width="600" border="0" cellspacing="0" cellpadding="0" height="30">
<form method="POST" action="manage.asp">
<tr>
<td bgcolor=ffffff align="center" height="30">
<b>按电影名查询：</b><input type="text" name="moviename" size="20">
<input type="submit" value="查询">
</td>
</tr>
</form>
</table>
<table border="0" cellspacing="1" width="600" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0" height="48">
<form method="Post" action="gmovie.asp?page=<%=request("page")%>&typeid=<%=request("typeid")%>" name="forms">
<tr bgcolor="#fff000">
<td align="center" bgcolor="#f3f3f3" height="25"><b>
<font color="#000000">ID号</font></b></td>
<td align="center" bgcolor="#f3f3f3" height="25"><b>
<font color="#000000">电影名称</font></b></td>
<td align="center" bgcolor="#f3f3f3" height="25"><b>
<font color="#000000">电影级别</font></b></td>
<td align="center" bgcolor="#f3f3f3" height="25"><b>
<font color="#000000">隶属服务器</font></b></td>
<td align="center" bgcolor="#f3f3f3" height="25"><b>
<font color="#000000">修改影片</font></b></td>
<td align="center" bgcolor="#f3f3f3" height="25"><b>
<font color="#000000">删除电影</font></b></td>
<td align="center" bgcolor="#f3f3f3" height="21">
全<input name="chkall" onClick="CheckAll(document.forms.chkall.checked)" type="checkbox" value="on">选<br>
<input name="act" type="submit" onClick="{if(confirm('确定删除选定电影吗!?删除前请先删除电影图片')){this.document.forms.submit();return true;}return false;}" value="删除"></td>
</tr>
<%do while not rs.eof%>
<tr>
<td height="23" bgcolor="#FFFFFF">
<p align="center"><%=rs("articleid")%> </td>
<td height="23" bgcolor="#FFFFFF"> * <a href="../movie.asp?id=<%=rs("articleid")%>" target="_blank"><%=rs("title")%></a></td>
<td align="center" height="23" bgcolor="#FFFFFF"><% if rs("canlook")=1 then%>
<a href="manage.asp?canlook=1">普通电影</a>
<%elseif rs("canlook")=3 then%>
<a href="manage.asp?canlook=3">黄金电影</a>
<%elseif rs("canlook")=0 then%>
<a href="manage.asp?canlook=0">免费电影</a>
<%end if%></td>
<td height="23" bgcolor="#FFFFFF"><div align="center"><%
set rs4=server.createobject("adodb.recordset")
rs4.open "select * from movie",conn,1,1
dim c
c=1
do while not rs4.eof
if rs4("id")=rs("serverip") then%>
<%=c%>号服务器
<% end if
c=c+1
rs4.movenext
loop
rs4.close
set rs4=nothing
%></div></td>
<td height="23" bgcolor="#FFFFFF">
<p align="center"><a href="edit.asp?id=<%=rs("articleid")%>">
<font color="#000000">修改</font></a></td>
<td height="23" bgcolor="#FFFFFF">
<p align="center"><a onClick="{if(confirm('确定删除选定电影吗!?删除前请先删除电影图片')){this.document.forms.submit();return true;}return false;}" href="delete.asp?articleid=<%=rs("articleid")%>">
<font color="#000000">删除</font></a></td>
<td height="23" align="center" bgcolor="#FFFFFF">
<input type="checkbox" name="selAnnounce" value="<%=rs("articleid")%>"></td>
</tr>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</form>
</table>
<%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
%>
<table border="0" align="center" bgcolor="FFF772" cellspacing="0" height="25" width="600">
<form method=Post action="<%=filename%>?typeid=<%=typeid%>">
<tr><td>
<center>共有<font color="#ff0000"><b><%=totalnumber%></b></font>个会员 当前:第<strong><font color="#ff0000"><%=CurrentPage%></font></strong>页/共<strong><font color="#ff0000"><%=n%></font></strong>页</center>
<td><div align="right">
<%if CurrentPage<2 then%>
<font color='888888'>首页 上一页</font>
<%else%>
<a class=left href="<%=filename%>?typeid=<%=typeid%>&page=1">首页</a>
<a class=left href="<%=filename%>?typeid=<%=typeid%>&page=<%=CurrentPage-1%>">上一页</a>
<%
end if
if n-currentpage<1 then
%>
<font color='888888'>下一页 尾页</font>
<%else%>
<a class=left href="<%=filename%>?typeid=<%=typeid%>&page=<%=(CurrentPage+1)%>">下一页</a>
<a class=left href="<%=filename%>?typeid=<%=typeid%>&page=<%=n%>">尾页</a>
<%end if%>
</div>
<td align="center"><select name="page" onchange="javascript:submit()">
<%for i = 1 to n%>
<option value="<%=i%>" <%if cint(CurrentPage)=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
<%next%></select></td>
</tr></form></table>
<%
end function
%>
<%
sub gotopage
end sub
%>
<p></p>
</center>
</body>
</html>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -