文章编号,一页之内

时间:2021-11-24 20:23:53

<!--#include file="conn.asp"-->
<!--#include file="nocache.asp"-->
<html>
<head>
<title>管理页面</title>
<meta http-equiv="Content-Type" content="text/html;  charset=gb2312">
<link rel="stylesheet" href="style.css"  type="text/css">
<style type="text/css">
<!--
.STYLE1 {color: #006699}
.STYLE3 {color: #FF0000}
-->
</style>
</head>
<body>
<p align="center">
<FONT size=2 color="#008000">湖北省城镇“零就业”家庭失业人员就业情况表后台管理</FONT>&nbsp;&nbsp;&nbsp;&nbsp;
<a href="printa.asp" class="STYLE3"><font size="2">查看打印页面</font></a><font size="2">&nbsp;&nbsp;
<a href="excela.asp">导出数据到Excel</a></font>
<table width="1005" border="0" cellspacing="0" cellpadding="0" class="t1">
              <tr bgcolor="#ffcccc">
                <td width="75" height="20" class="main"><div align="center">姓名</div></td>
                <td width="40" height="20" class="main"><div align="center">性别</div></td>
                <td width="133" height="20" class="main"><div align="center">身份证号码</div></td>
                <td width="137" height="20" class="main">家庭住址</td>
                <td width="89" height="20" class="main"><div align="center">就业时间</div></td>
                <td width="136" class="main"><font size="2">就业岗位性质</font></td>
                <td width="100" class="main"><font size="2">工作单位</font></td>
                <td width="107" class="main"><div align="center">是否享受社保补贴</div></td>
                <td width="164" class="main"><div align="center"><font size="2">享受社保补贴种类</font></div></td>
                <td width="79" class="main"><div align="center"><font size="2">享受期限</font></div></td>
                <td width="144" class="main"><div align="center">添加时间</div></td>
    <td width="70" class="main"><div align="center">操作</div></td>
              </tr>
</table>
  <%
   dim i,intPage,page,pre,last,filepath
  set rs = server.CreateObject("adodb.recordset")
   sql="select * from a order by adddate desc"

      rs.PageSize = 20  '这里设定每页显示的记录数
      rs.CursorLocation = 3
      rs.Open sql,conn,0,2,1  '这里执行你查询SQL并获得结果记录集
      pre = true
      last = true
 p=1
      page = trim(Request.QueryString("page"))
     
      if len(page) = 0 then
                  intpage = 1
                  pre = false
      else
          if cint(page) =< 1 then
               intpage = 1
               pre = false
          else
              if cint(page) >= rs.PageCount then
                  intpage = rs.PageCount
                  last = false
              else
                   intpage = cint(page)
             end if
         end if
      end if
    if not rs.eof then
         rs.AbsolutePage = intpage
    end if
%>
<%   
   for i=1 to rs.PageSize
     if rs.EOF or rs.BOF then exit for
  %>
<table width="1006" height="19" onMouseOver="this.className='bo1'" onMouseOut="this.className='bo2'">
                <td height="1" class="main" width="66">
                  <div align="center"><%=trim(rs("name"))%></div></td>
                <td height="1" class="main" width="41"><div align="center"><%=trim(rs("sex"))%></div></td>
                <td height="1" class="main" width="121"><div align="center"><%=trim(rs("ic"))%></div></td>
                <td height="1" align="left" class="main" width="138"><%=trim(rs("jtzz"))%></td>
                <td height="1" align="left" class="main" width="87"><%=trim(rs("jysj"))%></td>
                <td height="1" align="left" class="main" width="127"><div align="center"><%=trim(rs("jygwxz"))%></div></td>
    <td class="main" width="99" height="1"><%=trim(rs("gzdw"))%></td>
    <td class="main" width="105" height="1"><div align="center"><%=trim(rs("sfbt"))%></div></td>
    <td class="main" width="160" height="1"><div align="center"><%=trim(rs("btzl"))%></div></td>
    <td height="1" class="main" width="79"><div align="center"><%=trim(rs("xsqx"))%></div></td>
    <td height="1" class="main" width="151"><div align="center"><%=p%></div></td>
    <td height="1" class="main" width="67"><a href="del.asp?id=<%=rs("id")%>"  onclick="javascript:return  confirm('确实要删

除吗?不可恢复!?');" ><font color="red" class="main">删除</font></a><font color="red" class="main">&nbsp;</font></td>
              <%
 p=p+1
     rs.movenext
    next
   %>
   <tr><td colspan="9" width="1023" height="37"><table width="99%" border="1" cellpadding="2" bgcolor="#ffcccc"

cellspacing="2" borderColorLight="#808080" borderColorDark="#ffffff" height="18">
   <tr>
     <%if rs.pagecount > 0 then%>
     <td width="23%" align="left" class="main" height="10">当前页<font color="#ff0000"

class="main"><%=intpage%></font>/<%=rs.PageCount%>&nbsp;&nbsp; <%=rs.PageSize%>篇/页 &nbsp;&nbsp; 共<%=rs.RecordCount%>个记录

</td>            
     <%else%>
    <td width="15%" align="left" class="main" height="10">当前页0/0</td><%end if%>
    <td width="62%" align="right" bgcolor="#D4D0C8" height="10">

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp

;&nbsp;  
  <a href="totala.asp?page=1" class="main STYLE1"> 首页</a>|         
        <%if pre then%>
        <a href="totala.asp?page=<%=intpage -1%>"  class="main"">上页</a>|         
        <%end if%>
        <%if last then%>        
        <a href="totala.asp?page=<%=intpage +1%>" class=main>下页</a> |        
        <%end if%>
        <a href="totala.asp?page=<%=rs.PageCount%>" class="main">尾页</a>|<font class="main">转到第</font>        
      <select name="sel_page" onChange="javascript:location=this.options[this.selectedIndex].value;">           
      <%
       for i = 1 to rs.PageCount
       if i = intpage then%>
       <option value="totala.asp?page=<%=i%>" selected><%=i%></option>
     <%else%>
       <option value="totala.asp?page=<%=i%>"><%=i%></option>
        <%
 end if
        next
        %>
     </select><font class="main">页</font>    </td>
    </tr>
   </table>   </td>
</tr>
</table>

     <center></center>