<!--#include file="../checkLogin.asp"-->
<!--#include file="../SQLconn.asp"--> 
 <%  
   bumen=Request.QueryString("bumen")
   ftype=Request.QueryString("ftype")
   
   Set rs=Server.CreateObject("Adodb.Recordset")
   sql="SELECT * from bumenfile  where bumen='"&bumen& "' and  ftype like  '%"&ftype& "%'  order by id desc"
   rs.open sql,conn,1,1
%>

<%
   rs.pagesize=20'每页记录条数
   curpage=Request.QueryString("curpage") '将URL参数curpage传给curpage变量
   rs.absolutepage=curpage '将本页设为curpage设置的页数
   if curpage=0 then
     curpage=1
   end if 
%>

<link rel="stylesheet" type="text/css" href="../images/<%=request.cookies("imgdir")%>/css/style.css" media="all"/>
<table width="100%" border="0" align="center">
  
  <tr>
    <td>
	<table width="100%" align="center" border="1" cellpadding="3"   cellspacing="0"  bordercolor="#6D8DD8"  style="border-collapse:collapse" class="mtable">   
     <tr style="background-color:#D6E4FF"  class="TableHeader">
       <td class="STYLE1"><div align="center">部门</div></td>
        <td height="30" class="STYLE1"><div align="center">类别</div></td>
        <td class="STYLE1"><div align="center" class="STYLE4"><%=Ftype%></div></td>
        <td class="STYLE1" ><div align="center">发布人</div></td>
        <td class="STYLE1" ><div align="center">日期</div></td>
      </tr>
      <%
   for i= 1 to  rs.pagesize
      if rs.eof then
         exit for
      end if
%>
     
      <tr height="30" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#EFF8FF'">
         <td width="154" class="STYLE1"><div align="center"><a href="filelist.asp?bumen=<%=rs("bumen")%>" target="_self"><span class="STYLE4"><%=rs("bumen")%></span></a><span class="STYLE4"></span></div></td>
           <td width="154" class="STYLE1"><div align="center"><a href="filelist.asp?bumen=<%=rs("bumen")%>&ftype=<%=rs("ftype")%>" target="_self"><span class="STYLE4"><%=rs("ftype")%></span></a><span class="STYLE4"></span></div></td>
        <td width="621" class="STYLE1 STYLE3"><a href="newfile.asp?id=<%=rs("id")%>"  target="_blank" class="STYLE1">&nbsp;<%=rs("title")%></a></td>
         <td width="154" class="STYLE1"><div align="center"><a href="find.asp?faburen=<%=rs("author")%>" target="_self"><span class="STYLE4"><%=rs("author")%></span></a><span class="STYLE4"></span></div></td>
        <td width="209" class="STYLE1" ><div align="center"><%=formatdatetime(rs("upDatetime"),2)%></div></td>
      </tr>
      <%  rs.movenext
    next%>
    </table></td>
  </tr>
  
  <tr>
    <td><div align="center" class="STYLE1">
      <br>
     
      <%if curpage=1 then%>
      首页
      <%else%>
      <a href="?bumen=<%=bumen%>&Ftype=<%=Ftype%>&curpage=1">首页</a>
      <%end if%>
      <%if curpage=1 then%>
      上一页
      <%else%>
      <a href="?bumen=<%=bumen%>&Ftype=<%=Ftype%>&curpage=<%=curpage-1%>">上一页</a>
      <%end if%>
      <%if rs.pagecount<curpage+1 then%>
      下一页
      <%else%>
      <a href="?bumen=<%=bumen%>&Ftype=<%=Ftype%>&curpage=<%=curpage+1%>">下一页</a>
      <%end if%>
      <%if rs.pagecount<curpage+1 then%>
      尾页
      <%else%>
      <a href="?bumen=<%=bumen%>&Ftype=<%=Ftype%>&curpage=<%=rs.pagecount%>">尾页</a>
      <%end if%>
  (当前第<%=curpage%>页，共有<%=rs.pagecount%>页，共有：<%=rs.recordcount%>条记录)</div></td>
  </tr>
</table>


  
