📄 listserver.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="security.asp"-->
<%if session("flag")>2 then
response.write "<br><p align=center>您的操作权限不够！</p>"
response.end
end if
%>
<html><!--#include file="../checkpost.asp"-->
<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="css/css.css">
<title>电影修改</title>
</head>
<style type=text/css>
body { background:#799AE1; 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:#428EFF;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 makesort(typeid)
{
var filename="makesort.asp?page=1&typeid="+typeid;
window.open(filename,"显示窗口","scrollbars=yes,width=300,height=100,status=yes,resizable=no");
}
function makesoft(id)
{
var filename="makesoft.asp?id="+id;
window.open(filename,"显示窗口","scrollbars=yes,width=300,height=100,status=yes,resizable=no");
}
function makeallsort(id)
{
if(confirm("确定要使用本功能吗?将占用大量CPU时间")==true)
{
var filename="makeallsort.asp"
window.open(filename,"显示窗口","scrollbars=yes,width=300,height=100,status=yes,resizable=no");
}
}
function makeallsoft()
{
if(confirm("确定要使用本功能吗?将占用大量CPU时间")==true)
{
var filename="makeallsoft.asp?Dtype=all";
window.open(filename,"显示窗口","scrollbars=yes,width=300,height=100,status=yes,resizable=no");
}
}
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>
<body leftmargin="0" topmargin="0">
<%
MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim typename
serv=request("serv")
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 border="0" width="95%" 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>
<hr size="1" color="#000080">
<div align="center">
<div align="center">
</div>
</div>
</td>
</tr>
</table>
<%
if typeid="" and request("moviename")="" then
sql="select * from learning where serverip="&serv&" order by articleid desc"
else if request("moviename")<>"" then
sql="select articleid,title,serverip,name from learning where title like '%"&request("moviename")&"%' order by articleid desc"
else
sql="select articleid,title,serverip,name from learning where typeid='"+typeid+"' 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
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,"listserver.asp"
showContent
showpage totalput,MaxPerPage,"listserver.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpage totalput,MaxPerPage,"listserver.asp"
showContent
showpage totalput,MaxPerPage,"listserver.asp"
else
currentPage=1
showpage totalput,MaxPerPage,"listserver.asp"
showContent
showpage totalput,MaxPerPage,"listserver.asp"
end if
end if
end if
sub showContent
dim i
i=0
%>
<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 border="0" cellspacing="1" width="95%" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0" height="48">
<form method="Post" action="lgmovie.asp?page=<%=request("page")%>&typeid=<%=request("typeid")%>" name="forms">
<tr bgcolor="#CCCCCC">
<td width="53" align="center" bgcolor="#CCCCCC" height="21"><b>
<font color="#000000">ID号</font></b></td>
<td width="490" align="center" bgcolor="#CCCCCC" height="21"><b>
<font color="#000000">电影名称</font></b></td>
<td width="157" align="center" bgcolor="#CCCCCC" height="21"><b>
<font color="#000000">隶属服务器</font></b></td>
<td width="97" align="center" bgcolor="#CCCCCC" height="21"><b>
<font color="#000000">修改</font></b></td>
<td width="95" align="center" bgcolor="#CCCCCC" height="21"><b>
<font color="#000000">删除</font></b></td>
<td width="131" align="center" bgcolor="#CCCCCC" height="21">
<input name="chkall" onClick="CheckAll(document.forms.chkall.checked)" type="checkbox" value="on">全
选/<input name="act" type="submit" title="生成选定软件的HTML页" onClick="{if(confirm('确定删除选定电影吗!?')){this.document.forms.submit();return true;}return false;}" value="删除"></td>
</tr>
<%do while not rs.eof%>
<tr>
<td height="23" width="53" bgcolor="#FFFFFF">
<p align="center"><%=rs("articleid")%> </td>
<td width="490" height="23" bgcolor="#FFFFFF">·<a href="../movie.asp?id=<%=rs("articleid")%>" target="_blank"><%=rs("title")%></a></td>
<td width="157" 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%>
<a href=listserver.asp?serv=<%=rs("serverip")%>><%=c%>号服务器</a>
<% end if
c=c+1
rs4.movenext
loop
rs4.close
set rs4=nothing
%></div></td>
<td width="97" height="23" bgcolor="#FFFFFF">
<p align="center"><a href="edit.asp?id=<%=rs("articleid")%>">
<font color="#000000">修改</font></a></td>
<td width="95" height="23" bgcolor="#FFFFFF">
<p align="center"><a href="delete.asp?articleid=<%=rs("articleid")%>">
<font color="#000000">删除</font></a></td>
<td width="131" 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>
<div align="center">
<center>
<p> </p>
</center>
</div>
<%
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
response.write "<form method=Post action="&filename&"?typeid="&typeid&"&serv="&serv&">"
if CurrentPage<2 then
response.write "<font color='#000080'>首页 上一页</font> "
else
response.write "<a href="&filename&"?page=1&typeid="&typeid&"&serv="&serv&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&typeid="&typeid&"&serv="&serv&">上一页</a> "
end if
if n-currentpage<1 then
response.write "<font color='#000080'>下一页 尾页</font>"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&typeid="&typeid&"&serv="&serv&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&typeid="&typeid&"&serv="&serv&">尾页</a>"
end if
response.write "<font color='#000080'> 页次：</font><strong><font color=red>"&CurrentPage&"</font><font color='#000080'>/"&n&"</strong>页</font> "
response.write "<font color='#000080'> 共<b>"&totalnumber&"</b>个电影 <b>"&maxperpage&"</b>个电影/页</font> "
response.write " <font color='#000080'>转到：</font><input type='text' name='page' size=4 maxlength=10 class=smallInput value="¤tpage&">"
response.write " <input class=buttonface type='submit' value='Goto' name='cndok'></span></p></form>"
end function
rs.close
set rs=nothing
conn.close
set conn=nothing
%> </center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -