www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/down_sort_error.asp

    <%Admin="DownAdminAll"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_down.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网站内容管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<script language="javascript">
function delcx(id)
{window.open("down_cx_del.asp?id="+id,"","width=200,height=100,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no");}
function delcxdown(id)
{window.open("down_sort_error_del.asp?id="+id,"","width=200,height=100,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no");}
function makeHTML(id)
{window.open("down_makesoft.asp?type=page&id="+id,"","width=200,height=100,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no");}
</script>
<body bgcolor="#FFFFFF" topmargin="1" leftmargin="1">
<table border="0" cellspacing="1" class="tableBorder" width="100%" height="109">
  <tr>
    <th width="100%" height="33"><b><font color="#FFFFFF">错误软件</font></b></th>
  </tr>
  <tr>
    <td width="100%" bgcolor="#FFFFFF" height="70">
<%
 if not isempty(request("page")) and request("page")<>"" then        
      currentPage=cint(request("page"))        
   else        
      currentPage=1        
   end if
   MaxPerPage=10 '###每页显示条数
set rs=server.CreateObject("ADODB.RecordSet")
set rs2=server.CreateObject("ADODB.RecordSet")
sql="select id,cxn,cxv,error from down where error>0 order by error desc,date desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>还没有任何错误软件的报告</p>"
else
totalPut=rs.recordcount
rs.move  (currentPage-1)*MaxPerPage
rs.pagesize=MaxPerPage '得到每页数
mpage=rs.pagecount     '得到总页数
%><table border="1" width="100%" cellspacing="0" bgcolor="#F4F4F4" style="border-collapse: collapse" bordercolor="#F4F4F4">
    <tr>
      <th width="6%" align="center">ID</td>
      <th width="6%" align="center"> 
      删除
      </td>
      <th width="6%">
      <p align="center">HTML</td>
      <th>程 序 名 称 (<a href="down_sort_error_cle.asp?type=allfile">清除全部</a>)</td>          
            <th width="6%">
      <p align="center">报数</td>          
               
    </tr>
<%
i=0
do while not rs.EOF
ti=ti+1
bgcolor="#ffffff"
if ti=2 then
ti=0
bgcolor="#F4F4F4"
end if%>
    <tr bgcolor=<%=bgcolor%> valign="top">
      <td width="6%">
        <p align="center"><a target="_blank" href="../d/<%=rs("id")%>.html"><%=rs("id")%></a></td>
      <td width="10%">
        <p align="center"><a href="javascript:if(confirm('确认要删除记录吗?')) location='down_cx_del.asp?id=<%=rs("id")%>'">删除软件</a>
   </td>
      <td width="6%">
      <p align="center"><a href="javascript:makeHTML(<%=rs("id")%>)" title="生成本软件的HTML页">生成</a></td>
      <td>  <a href="down_sort_error_cle.asp?page=<%=request("page")%>&id=<%=rs("id")%>"> =<font color=red><b>清除所报错误</b></font>= </a>  <a href=down_cx_edit.asp?id=<%=rs("id")%>><%=rs("cxn")%>&nbsp;<%=rs("cxv")%></a><%
  sql2="select * from downfile where downid="&rs("id")&" order by downno"
  rs2.open sql2,conn,1,1
  if not rs2.eof then
    do while not rs2.eof%><br><a href="<%=rs2("file")%>" target="_blank"><font color="#808080"><%=rs2("file")%></font></a><%                                 
    rs2.movenext
    loop
  end if
  rs2.close%></td>
      <td width="6%">
      <p align="center"><font color="#FF0000"><%=rs("error")%></font></td>
    </tr>
<%i=i+1  
if i>=MaxPerPage then exit do
 rs.movenext
 loop %>
    <tr>
      <td width="100%" colspan="5" bgcolor="#FFFFFF">
<%
call page()
sub page()%>页次:<b><font color="#FF0000"><%=currentPage%></font>/<%=mpage%></b>,每页<b><%=MaxPerPage%></b>个,当前软件<b><%=totalPut%></b>个(<font color="#008000">&lt;-</font><a title="生成此类目下所有软件下载HTML页" href="down_makesoftall.asp?type=error"><font color="#008000">生成本类下载
页</font></a>)
 <%                                                                                                                           
    pageno=currentPage
    if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
        pageno=1
    end if
%>
[ <%if cint(pageno)>1 then%><a href=<%=filename%>?><%end if%><<-</a> <%if cint(pageno)>1 then%><a href=<%=filename%>?page=<%=pageno-1%>><%end if%><-</a><%                  
pp=cint(pageno)-3            
  if pp<1 then            
  pp=1            
  end if            
for pno=pp to mpage            
p=p+1            
if pno=cint(pageno) then%> <font color="#FF0000"><%=pno%></font><%else%> <a href=<%=filename%>?page=<%=pno%>><%=pno%></a><%end if%>                  
<%                  
if p>=7 then exit for            
next%> <%if cint(pageno)< mpage then%> <a href=<%=filename%>?page=<%=pageno+1%>><%end if%>-></a> <%if cint(pageno)< mpage then%><a href=<%=filename%>?page=<%=mpage%>><%end if%>-&gt;&gt;</a> ]<%
end sub%>
     </td>
    </tr>
  </table>
<%end if%> 
    </td>
  </tr>
</table>
</body>
</html>  
<% 
set rs2=nothing
set rs=nothing  
conn.close  
set conn=nothing%>