📄 adminerr.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("admin")="" then
response.redirect "../0_1.htm"
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>好吧免费电影 http://www.hao8.cn 生成HTML版</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=350");
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 "../0_1.htm"
else
sql="select * from data order by err 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 width="100%" height="60" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="197" align="center" valign="bottom" background="../images/top1.gif"><IMG SRC="../images/top4.gif" WIDTH=760 HEIGHT=106 ALT=""> </td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="760" height="30">
<tr>
<td background="../images/bak.gif" height="30" width="758" colspan="2">
<%
sql="select * from item"
set rs_item=server.createobject("adodb.recordset")
rs_item.open sql,connstr,1,1
if rs_item.eof then
response.write "<p align=center><font color=#FF0000>暂时没有分类！</font></p>"
else
response.write "<p align=center><a href=admin.asp>全部电影</a>/<a href=fsoindex.asp target=_blank>制</a> "
do while not rs_item.eof
response.write "<a href=type.asp?item="&rs_item("name")&">"&rs_item("name")&"</a>/<a href=fsotype.asp?item="&rs_item("name")&" target=_blank>制</a> "
rs_item.movenext
loop
end if
rs_item.close
%>
</td>
</tr>
<tr>
<td height="30" width="447">
<a href="../hits_1.htm"><img border="0" src="../images/top.gif"></a>
<a href="add.asp"><img border="0" src="../images/add.gif"></a>
<a href="http://www.hao8.cn" target="_blank"><img border="0" src="../images/new.gif"></a>
</td>
<form action="search.asp" method="post" name="search" onsubmit="return checkadd()">
<td height="30" width="313" align="center">
<img border="0" src="../images/dian.gif"> <b>输入电影名：</b><input maxLength="20" name="keyword" onfocus="this.value=''" size="18" value="输入关键字" style="border: 1 solid #000000">
<input type="submit" width="20" height="20" value="查找" style="font-size: 12px" name="search">
</td>
</form>
</tr>
</table>
<table border="1" width="760" 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 width="30%" background="../images/bg.gif" height="30"> <img border="0" src="../images/biao_left.gif" width="15" height="15"> 影片名字</td>
<td width="20%" background="../images/bg.gif" height="30" align="center">在线播放</td>
<td width="10%" background="../images/bg.gif" height="30" align="center">电影类型</td>
<td width="10%" background="../images/bg.gif" height="30" align="center">播放格式</td>
<td width="10%" background="../images/bg.gif" height="30" align="center">点击</td>
<td width="10%" 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")%>"><font color="#008000">修改</font></a> <a href="del.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")%></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 height="30" align="center"><font color="red"><%=rs("mark")%></a></td>
</tr>
<%
i=i+1
rs.movenext
loop
end if
set rs=nothing
%>
</center>
<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>
<TABLE WIDTH=1002 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD ROWSPAN=2> <IMG SRC="../images/foot_1.gif" WIDTH=167 HEIGHT=92 ALT=""></TD>
<TD COLSPAN=2> <IMG SRC="../images/foot_2.gif" WIDTH=835 HEIGHT=22 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="../images/foot_3.jpg" WIDTH=418 HEIGHT=70 ALT=""></TD>
<TD> <IMG SRC="../images/foot_4.gif" WIDTH=417 HEIGHT=70 ALT=""></TD>
</TR>
</TABLE>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -