📄 adminerror.asp
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="se.asp" -->
<title>网址</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="7thcss.css" rel=stylesheet>
</head>
<body background=images/zhbg.gif>
<table border="1" width="80%" cellpadding="1" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#00215a" align="center">
<tr>
<td width="51%" height="25" background="images/iebg.gif"><b> <font color="#FFFFFF">
网站名称 </font></b></td>
<td width="13%" height="25" align="center" background="images/iebg.gif"><b></b><b><font color="#FFFFFF">修改</font></b></td>
<td width="10%" height="25" align="center" background="images/iebg.gif">删除</td>
<td width="17%" height="25" align="center" background="images/iebg.gif">(<a href="error_cle.asp?type=allfile">清除全部</a>)</td>
<td width="9%" height="25" align="center" background="images/iebg.gif">报数</td>
</tr>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
'判断classid开始
classid=request("classid")
If classid <> "" then
classid = cint(classid)
if err.number <> 0 then
err.clear
classid = 1
end if
if classid < 1 then
classid = 1
end if
else
classid = 1
End if
'判断classid结束
if Request("classid")<>"" then
sql="Select * from music where class=" & classid & "and error>0 order by id Desc"
else
sql="Select * from music where error>0 order by id Desc"
end if
rs.open sql,conn,1,1
rs.pagesize=20 '每页显示数目
num=rs.recordcount
pagenum=rs.pagecount
page=request("page")
if rs.eof and rs.bof then
response.Write("还没有任何错误网址的报告")
else
'判断页码开始
If page <> "" then
page = cint(page)
if err.number <> 0 then
err.clear
page = 1
end if
if page < 1 then
page = 1
end if
else
page = 1
End if
if page*rs.pagesize > num and not((page-1)*rs.pagesize < num)then
page=1
end if
'判断页码结束
rs.absolutepage = page 'absolutepage：设置指针指向某页开头
if page<>pagenum then
for i=1 to rs.pagesize
%>
<tr>
<td bordercolorlight="#00215a" align=left width="51%"><img src=images/046.gif>
<a href="swfplay.asp?id=<%=rs("id")%>" target="_blank"><b><%=rs("name")%></b></a>
<%if rs("isgood")=true then%>
<font color="#FF0000">荐
<%end if%>
</font></td>
<td bordercolorlight="#00215a" align=center width="13%"><a href="edit.asp?id=<%=rs("id")%>">修改</a></td>
<td bordercolorlight="#00215a" align=center width="10%"><a href="dell.asp?num=<%=rs("num")%>">删除</a></td>
<td bordercolorlight="#00215a" align=center width="17%"><a href="error_cle.asp?page=<%=request("page")%>&id=<%=rs("id")%>">清除报告数</a></td>
<td bordercolorlight="#00215a" align=center width="9%"><font color="#FF0000"><%=rs("error")%></font></td>
</tr>
<%
rs.movenext
next
else
for i=1 to num-(page-1)*rs.pagesize
%>
<tr>
<td bordercolorlight="#00215a" align=left width="51%"><img src=images/046.gif>
<a href="swfplay.asp?id=<%=rs("id")%>" target="_blank" ><b><%=rs("name")%></b></a>
<%if rs("isgood")=true then%>
<font color="#FF0000">荐
<%end if%>
</font></td>
<td bordercolorlight="#00215a" align=center width="13%"><a href="edit.asp?id=<%=rs("id")%>">修改</a></td>
<td bordercolorlight="#00215a" align=center width="10%"><a href="dell.asp?num=<%=rs("num")%>">删除</a></td>
<td bordercolorlight="#00215a" align=center width="17%"><a href="error_cle.asp?page=<%=request("page")%>&id=<%=rs("id")%>">清除报告数</a></td>
<td bordercolorlight="#00215a" align=center width="9%"><font color="#FF0000"><%=rs("error")%></font></td>
</tr>
<%
rs.movenext
next
end if
end if
rs.close
Set rs=nothing
%>
<tr>
<td colspan=5 align=middle bordercolorlight="#00215a"> 共有 <%=num%> 个网站
| <a href=adminflash.asp?page=1&classid=<%=request("classid")%>>首页</a> |
<%if page>1 then%>
<a href=adminflash.asp?page=<%=page-1%>&classid=<%=request("classid")%>>
<%end if%>
上一页</a> |
<%if page<pagenum then%>
<a href=adminflash.asp?page=<%=page+1%>&classid=<%=request("classid")%>>
<%end if%>
下一页</a> | <a href=adminflash.asp?page=<%if pagenum=0 then%>1<%else%><%=pagenum%><%end if%>&classid=<%=request("classid")%>>尾页</a>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -