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")%> <%=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"><-</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%>->></a> ]<% end sub%> </td> </tr> </table> <%end if%> </td> </tr> </table> </body> </html> <% set rs2=nothing set rs=nothing conn.close set conn=nothing%>