?? 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 + -