📄 movieerror.asp
字号:
<%@language=vbscript codepage=936 %>
<!--#include file="../inc/conn.asp"-->
<!--#include file="AdminChkPurview.asp"-->
<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>
<%
if request("del")="2" then
conn.execute "delete from totalk WHERE now()-times >=3"
conn.close
set conn=nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
end if
%>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table cellpadding="0" cellspacing="1" border="0" width="100%">
<tr>
<td height="22" align="center" class="title"><b>错误报告管理</b></td>
</tr>
<tr class="tdbg">
<td height="468" align="center">
<table width="70%" height="83" border="0" cellpadding="0" cellspacing="1" bgcolor="#666666">
<tr>
<td height="24" colspan="4" align="center" bgcolor="#999999"><a href="?del=2" onClick="{if(confirm('你真的要删除此栏目吗？将会删除栏目下的所有数据？')){this.document.form1.submit();return true;}return false;}"><font color="#FFFFFF"><strong>删除三天前的数据</strong></font></a></td>
</tr>
<%
sql="select * from totalk order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<tr><td colspan='4' bgcolor='#CCCCCC' align='center' height='40'>暂时没有人报错!</td></tr>"
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
do while not rs.eof%>
<tr>
<td width="12%" height="24" align="right" bgcolor="#CCCCCC">报告时间：</td>
<td width="41%" bgcolor="#CCCCCC"><%=rs("times")%></td>
<td width="12%" align="right" bgcolor="#CCCCCC">报告人员：</td>
<td width="35%" bgcolor="#CCCCCC"><%=rs("user")%></td>
</tr>
<tr>
<td height="24" align="right" bgcolor="#CCCCCC">错误原因：</td>
<td colspan="3" bgcolor="#CCCCCC"><%=rs("conten")%></td>
</tr>
<%
i=i+1
if i>=rs.pagesize then exit do
rs.movenext
loop
%>
<tr>
<td colspan="4" bgcolor="#CCCCCC">
<%
response.write "<div align='center'><form method=Post action='?'>"
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='?page=1'>首页</a> <a href='?page="&curpage-1&"'>上一页</a> "
end if
pp=curpage-2
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='?page="&pno&"'>["&pno&"]</a></b> "
end if
if p>=5 then exit for
next
if curpage = rs.pagecount then
response.write "下一页 末页 "
else
response.write "<a href='?page="&curpage+1&"'>下一页</a> <a href='?page="&rs.pagecount&"'>末页</a> "
end if
response.write "转到：<select name='page' size='1' onChange='javascript:submit()'>"
for i = 1 to rs.pagecount
response.write "<option value='"&i&"'"
if curpage=cint(i) then
response.write "selected"
end if
response.write ">第"&i&"页</option>"
next
response.write "</select></form></div><br>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</td>
</tr>
</table></td>
</tr>
<tr class="tdbg">
<td width="254" align="right"> </td>
</tr>
</table>
<!--#include file="AdminFooder.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -