📄 movielistserver.asp
字号:
<%@language=vbscript codepage=936 %>
<!--#include file="../inc/conn.asp"-->
<!--#include file="AdminChkPurview.asp"-->
<script language="JavaScript">
function sel()
{
o=document.getElementsByName("selAnnounce")
for(i=0;i<o.length;i++)
o[i].checked=event.srcElement.checked
}
function delete_confirm(e)
{
if (event.srcElement.value=="删除选定的文章" )
event.returnValue=confirm("您确认执行删除选定的文章操作么？");
else
if (event.srcElement.outerText=="删除")
event.returnValue=confirm("您确认执行删除操作么？");
}
document.onclick=delete_confirm;
</script>
<html>
<head>
<title>电影修改</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" type="text/css" href="../inc/Admin_Style.css"></head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
if request("areyou")="删除" then
conn.execute"delete from learning where articleid="&request("articleid")
conn.execute"delete from movieurl where nameid='"&request("articleid")&"'"
conn.close
set conn=nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
end if
movieid=replace(request("selAnnounce")," ","")
if movieid="" then
serv=request("serv")
%>
<table cellpadding="0" cellspacing="1" border="0" width="100%" class="border" align=center>
<tr>
<td colspan="2" align="center" class="title"><strong>影 片 管 理</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="28"><strong>管理导航：</strong></td>
<td>
<a href="Moviemanage.asp">全部电影</a><%
set rst=server.createobject("adodb.recordset")
rst.open "select * from type",conn,1
if rst.EOF then
response.write "没有栏目："
else
do while NOT rst.EOF
%>｜<a href="Moviemanage.asp?typeid=<%=rst("typeid")%>"><%=rst("type")%></a><%
rst.MoveNext
loop
end if
rst.close
set rst=nothing
%></td>
</tr>
</table>
<table cellpadding="0" cellspacing="1" border="0" width="100%" class="border" align=center>
<tr valign="middle" class="tdbg">
<td width="70" height="28"><strong>服 务 器：</strong></td>
<td><%
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="movielistserver.asp?serv=<%=rst1("id")%>"><b>第<%=i%>组服务器</b></a><b>｜</b><%
rst1.MoveNext
loop
end if
rst1.close
set rst1=nothing
%></td>
</tr>
</table>
<table width='100%' border="0" cellpadding="0" cellspacing="0">
<tr>
<form name="myform" method="Post" action="?serv=<% =serv %>" onSubmit="return ConfirmDel();">
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="border">
<tr class="tdbg">
<td width="70" height="28"><strong>电影搜索：</strong></td>
<td>
<b>按电影名查询：</b>
<input type="text" name="moviename" size="20">
<input type="submit" value="查询" style="cursor: hand;background-color: #cccccc;">
</td>
</tr>
</table>
<%
moviename=request("moviename")
if serv="" and moviename="" then
sql="select * from learning order by articleid desc"
else if serv<>"" then
sql="select * from learning where serverip="&serv&" order by articleid desc"
else
sql="select * from learning where title like '%"&moviename&"%' order by articleid desc"
end if
end if
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<table width="100%" height="169" border="0" cellpadding="0" cellspacing="1" class="border">
<tr class="title" height="22">
<td height="22" align="center"> </td>
</tr>
<tr class="tdbg">
<td height="70" align="center">对不起！这里没有电影！</td>
</tr>
</table>
<%
else
dim curpage,perpage
perpage=10
if request("page")="" then
curpage = 1
else
curpage = cint(request("page"))
end if
rs.pagesize = perpage
rs.absolutepage = curpage
%>
<table class="border" border="0" cellspacing="1" width="100%" cellpadding="0">
<tr class="title" height="22">
<td height="22" width="30" align="center"><strong>选中</strong></td>
<td width="28" align="center" height="22"><strong>ID</strong></td>
<td width="501" align="center" ><strong>文章标题</strong></td>
<td width="102" align="center" ><strong>类别</strong></td>
<td width="127" align="center" ><strong>隶属服务器</strong><strong></strong></td>
<td width="180" align="center" ><strong>操作
</strong></td>
</tr>
<% do while not rs.eof %>
<tr class="tdbg">
<td width="30" align="center">
<input type="checkbox" name="selAnnounce" value="<%=rs("articleid")%>" style="border: 0px;background-color: #eeeeee;"> </td>
<td width="28" align="center"><%=rs("articleid")%></td>
<td>·<a href="../movie.asp?id=<%=rs("articleid")%>" target="_blank"><%=rs("title")%></a></td>
<td align="center">
<%
set rst1=server.createobject("adodb.recordset")
sql1="select * from type where typeid="&rs("typeid")&""
rst1.open sql1,conn,1,1
if rst1.eof and rst1.bof then
response.write "<font color='#FF0000'><strong>没有分类</strong></font>"
else
%>
<a href="Moviemanage.asp?typeid=<%=rst1("typeid")%>"><%=rst1("type")%></a>
<%
end if
rst1.close
set rst1=nothing
%>
</td>
<td 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 %>
<% x=c %>
<%
exit do
end if
c=c+1
rs4.movenext
loop
rs4.close
set rs4=nothing
%>
<% if x<c then
response.write "<font color='#FF0000'><strong>没有隶属服务器</strong></font>"
else
%>
<a href=Movielistserver.asp?serv=<%=rs("serverip")%>><%=c%>号服务器</a>
<%
end if
%>
</td>
<td width="180" align="center">
<a href="Movieedit.asp?id=<%=rs("articleid")%>">修改</a>
<a href="Moviemanage.asp?articleid=<%=rs("articleid")%>&areyou=删除">删除</a></td>
</tr>
<% w=w+1
if w=rs.pagesize then exit do
rs.movenext
loop
%>
<tr class="tdbg">
<td colspan="6" align="center">
<%
response.write "<div align='center'>"
response.write "总<font color='#FF0000'>"&rs.recordcount&"</font>条 "
response.write "第<font color='#FF0000'>"&curpage&"</font>/<font color='#FF0000'>"&rs.pagecount&"</font>页 "
response.write "<font color='#FF0000'>"&perpage&"</font>条/页 "
if curpage = 1 then
response.write "首页 上一页 "
else
response.write "<a href='?moviename="&moviename&"&serv="&serv&"&page=1'>首页</a> <a href='?moviename="&moviename&"&serv="&serv&"&page="&curpage-1&"'>上一页</a> "
end if
pp=curpage-4
if pp<1 then
pp=1
end if
for pno=pp to rs.pagecount
p=p+1
if pno=curpage then
response.write "<b><font color=#FF0000>["&pno&"]</font></b> "
else
response.write "<b><a href='?moviename="&moviename&"&serv="&serv&"&page="&pno&"'>["&pno&"]</a></b> "
end if
if p>=9 then exit for
next
if curpage = rs.pagecount then
response.write "下一页 末页 "
else
response.write "<a href='?moviename="&moviename&"&serv="&serv&"&page="&curpage+1&"'>下一页</a> <a href='?moviename="&moviename&"&serv="&serv&"&page="&rs.pagecount&"'>末页</a> "
end if
response.write "转到：<select name='page' size='1' onChange='javascript:submit()'>"
for pagei = 1 to rs.pagecount
response.write "<option value='"&pagei&"'"
if curpage=cint(pagei) then
response.write "selected"
end if
response.write ">第"&pagei&"页</option>"
next
response.write "</select></div>"
rs.close
set rs=nothing
%> </td>
</tr>
</table>
<%end if%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="border">
<tr class="tdbg">
<td width="250" height="30">
<input type="checkbox" onclick='sel()'style="border: 0px;background-color: #eeeeee;">
选中本页显示的所有文章 </td>
<td>
<input name="del" type='submit' value='删除选定的文章' style="cursor: hand;background-color: #cccccc;">
</td>
</tr>
</table>
</td>
</form>
</tr>
</table>
<%
else if request("del")="删除选定的文章" then
conn.execute("delete from learning where articleid in ("&movieid&")")
conn.execute("delete from movieurl where nameid in ('"&movieid&"')")
conn.close
response.redirect Request.ServerVariables("HTTP_REFERER")
end if
end if
%>
<!--#include file="AdminFooder.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -