📄 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 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" type="text/css" href="inc/Admin_STYLE.CSS">
<title>管理页</title>
<style type="text/css">
<!--
.样式1 {
color: #FFFFFF;
font-weight: bold;
}
.样式2 {color: #FFFFFF}
-->
</style>
</head>
<body leftmargin="0" topmargin="0">
<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>
<%
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
%>
<!--#include file="top1.asp"-->
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="83">
<div align="center">
</div>
<form method="POST" action="manage.asp">
<p align="center"><b>按电影名查询：</b><input type="text" name="moviename" size="20">
<input type="submit" value="查询"><br>
</form>
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="border" align=center>
<tr>
<td><div align="left">
<div align="center">
<div align="center">
<div align="center">
<div align="center">
<p>｜<a href="manage.asp?canlook=0">免费电影</a>｜<a href="manage.asp?canlook=1">普通电影</a>｜<a href="manage.asp?canlook=3">黄金电影</a>｜</p>
<p>｜
<%
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
%>
</p>
</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>
</div>
</div>
</div></td>
</tr>
</table> </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="100%" height="48" border="0" cellpadding="0" cellspacing="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" class="border">
<form method="Post" action="gmovie.asp?page=<%=request("page")%>&typeid=<%=request("typeid")%>" name="forms"> <tr bgcolor="#429AEF">
<td width="83" align="center" height="21"><span class="样式1">
ID号</span></td>
<td width="300" align="center" height="21"><span class="样式1"> 电影名称</span></td>
<td width="185" align="center"><span class="样式1">电影级别</span></td>
<td width="185" align="center" height="21"><span class="样式1"> 隶属服务器</span></td>
<td width="147" align="center" height="21"><span class="样式1"> 修改<br>
</span></td>
<td width="145" align="center" height="21"><span class="样式1"> 删除电影<br>
</span></td>
<td width="124" align="center" height="21">
<span class="样式2">全
<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="删除">
</span></td>
</tr>
<%do while not rs.eof%>
<tr bgcolor="#E1F4EE" class="tdbg">
<td height="23" width="83">
<p align="center" class="tdbg"><%=rs("articleid")%> </td>
<td width="300" height="23" class="tdbg">·<a href="../movie.asp?id=<%=rs("articleid")%>" target="_blank"><%=rs("title")%></a></td>
<td width="185"><div align="center">
<% 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%>
</div></td>
<td width="185" height="23"><div align="center" class="tdbg">
<%
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 width="147" height="23">
<p align="center"><a href="edit.asp?id=<%=rs("articleid")%>"><font color="#000000">修改</font></a></td>
<td width="145" height="23">
<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 width="124" height="23" align="center">
<input type="checkbox" name="selAnnounce" value="<%=rs("articleid")%>"></td>
</tr>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%> </form>
</table>
<div align="center">
<%
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" cellspacing="0" height="25" width="100%">
<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 + -