📄 adminerr.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("admin")="" then
response.redirect "../"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>绿岛视频</title>
<style type="text/css">
<!--
td { font-size: 12px; line-height: 17px }
body { font-size: 12px; line-height: 17px }
p { margin-top: 1px; margin-bottom: 1px }
a:link { text-decoration: none; color: black }
a:visited { text-decoration: none; color: black }
a:active { text-decoration: none }
a:hover { text-decoration: underline; color: red }
-->
</style>
<script language= "javascript">
function newpage(htmlurl) {
var newwin=window.open(htmlurl,"newWin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,top=20,left=200,width=400,height=375");
newwin.focus();
return false;
}
</script>
<SCRIPT LANGUAGE="JavaScript">
<!--//
function checkadd()
{
if (document.search.keyword.value.length<1)
{
alert("请输入查询关键字！");
document.search.keyword.focus();
return false;
}
if (document.search.keyword.value=="输入关键字")
{
alert("请输入查询关键字！");
document.search.keyword.focus();
return false;
}
}
//-->
</SCRIPT>
</head>
<body leftmargin="0" topmargin="0">
<div align="center">
<center>
<%
if session("admin")="" then
response.redirect "../"
else
sql="select * from data where err>0 order by err and id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,1,1
end if
if rs.eof then
response.write "<p align=center><font color=#FF0000>暂时没有任何电影！</font></p>"
else
const maxperpage=50
dim currentpage
rs.pagesize=maxperpage
currentpage=request.querystring("pageid")
if currentpage="" then
currentpage=1
elseif currentpage<1 then
currentpage=1
else
currentpage=clng(currentpage)
if currentpage > rs.pagecount then
currentpage=rs.pagecount
end if
end if
if not isnumeric(currentpage) then
currentpage=1
end if
dim totalput,n
totalput=rs.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
rs.move(currentpage-1)*maxperpage
%>
<table border="0" cellpadding="0" cellspacing="0" width="98%" height="30">
<tr>
<td background="../images/bak.gif" height="30" width="758" colspan="2"><a href="admin.asp">全部视频</a> <a href="admin01.asp">视频审核</a> <a href="adminerr.asp">网友报错</a> <a href="add.asp">添加电影</a> <a href="additem.asp">添加栏目</a> <a href="adminitem.asp">管理栏目</a> <a href="pass.asp">修改管理密码</a> <font color="#FF0000"> </font><a href="quit.asp"><font color="#FF0000">退出管理</font></a>
</td>
</tr>
</table>
<table border="1" width="98%" cellspacing="0" cellpadding="0" bordercolorlight="#F1F1F1" bordercolordark="#FFFFFF">
<tr>
<td width="758" colspan="7" height="30">
<p align="left"> 页数：<%=currentpage%>/
<% =n%>
<%k=currentpage
if k<>1 then%>
<a href="admin.asp?pageid=1">首页</a> <a href="admin.asp?pageid=<%=k-1%>">上一</a>
<%else%>
首页 上一页
<%end if%>
<%if k<>n then%>
<a href="admin.asp?pageid=<%=k+1%>">下一</a> <a href="admin.asp?pageid=<%=n%>">尾页</a>
<%else%>
下一页 尾页
<%end if%>
共收录<%=totalput%>部影片</p></td>
</tr>
<tr>
<td background="../images/bg.gif" height="30"> <img border="0" src="../images/biao_left.gif" width="15" height="15"> 影片名字</td>
<td width="120" background="../images/bg.gif" height="30" align="center">在线播放</td>
<td width="80" background="../images/bg.gif" height="30" align="center">电影类型</td>
<td width="70" background="../images/bg.gif" height="30" align="center">播放格式</td>
<td width="50" background="../images/bg.gif" height="30" align="center">点击</td>
<td width="70" background="../images/bg.gif" height="30" align="center">加入日期</td>
<td width="10%" background="../images/bg.gif" height="30" align="center">推荐度</td>
</tr>
<%
i=0
do while i< maxperpage and not rs.eof
%>
<tr>
<td height="30"> <font color=#FF0000>(错:<%=rs("err")%>)</font> <%=rs("name")%>
<%if rs("yesno")<>"1" then%>
<font color=#FF0000>未审核</font>
<%end if%>
<a href="edit.asp?id=<%=rs("id")%>" target="_blank"><font color="#008000">修改</font></a> <a href="del2.asp?id=<%=rs("id")%>"><font color="#FF0000">删除</font></a> <a href="#" onClick="window.open('delerr.asp?id=<%=rs("id")%>','errr','scrollbars=no,resizable=no,width=200,height=80,menubar=no,top=168,left=168')"><font color="#FF0000">清错</font></a></td>
<td height="30" align="center">
<%
if rs("address1")<>"" then
response.write"<a href=../play.asp?id="&rs("id")&"&see=1 style='text-decoration: underline' onClick='return newpage(this.href);'>[1]</a> "
end if
if rs("address2")<>"" then
response.write"<a href=../play.asp?id="&rs("id")&"&see=2 style='text-decoration: underline' onClick='return newpage(this.href);'>[2]</a> "
end if
if rs("address3")<>"" then
response.write"<a href=../play.asp?id="&rs("id")&"&see=3 style='text-decoration: underline' onClick='return newpage(this.href);'>[3]</a> "
end if
if rs("address4")<>"" then
response.write"<a href=../play.asp?id="&rs("id")&"&see=4 style='text-decoration: underline' onClick='return newpage(this.href);'>[4]</a> "
end if
if rs("address5")<>"" then
response.write"<a href=../play.asp?id="&rs("id")&"&see=5 style='text-decoration: underline' onClick='return newpage(this.href);'>[5]</a> "
end if
%>
</td>
<td height="30" align="center"><a href="type.asp?item=<%=rs("item")%>"><%=rs("item")%></a></td>
<td height="30" align="center"><%=rs("type")%></td>
<td height="30" align="center"><%=rs("hits")%></td>
<td height="30" align="center"><%=rs("date")%></td>
<td width="100" height="30" align="center"><font color="red"><%=rs("mark")%></font></td>
</tr>
<%
i=i+1
rs.movenext
loop
end if
set rs=nothing
%>
<tr>
<td width="758" colspan="7" height="30">
<p align="left"> 页数：<%=currentpage%>/
<% =n%>
<%k=currentpage
if k<>1 then%>
<a href="admin.asp?pageid=1">首页</a> <a href="admin.asp?pageid=<%=k-1%>">上一</a>
<%else%>
首页 上一页
<%end if%>
<%if k<>n then%>
<a href="admin.asp?pageid=<%=k+1%>">下一</a> <a href="admin.asp?pageid=<%=n%>">尾页</a>
<%else%>
下一页 尾页
<%end if%>
共收录<%=totalput%>部影片</p></td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -