<%
 str="select * from in_user "
  page=clng(Request.QueryString("page"))
  If page<1 then page=1
  set Rs=server.CreateObject("ADODB.Recordset")
  Rs.pagesize=record_num
    Rs.open str,conn,1
    If Rs.Recordcount>0 then
     Rs.Absolutepage=page
    End if
    %>
    <table width="49%"  border="0" cellspacing="0" cellpadding="0" align="left"  >
      <tr align="center">
        <td width="16%" align="center" bgcolor="#9ACBEC" class="font_blue">姓名</td>
        <td width="16%" height="25" align="center" bgcolor="#9ACBEC" class="font_blue1">性别</td>
        <td width="24%" height="25" align="center" bgcolor="#9ACBEC" class="font_blue">年龄</td>
        <td width="44%" height="25" align="center" bgcolor="#9ACBEC" class="font_blue">简历刷新日期</td>       
       </tr>  
      <tr align="center">
        <td><%=Rs("Real_name")%></td>
        <td>      
    <%
     If Rs ("Sex")=1 Then
       Response.Write("男")
     Else
       Response.Write("女")
          End if
    %>
       </td>
        <td ><%=DATEDIFF("yyyy",Rs("Birthday"),Date())%>岁</td>
        <td ><%=DateValue(Rs("Refresh_time"))%></td>
      </tr>
  <tr>
GG JJ    帮我 看一下 为什么只能 显示一排 数据 出来了？？？？  

你没有循环，当然只显示一行啦

怎么循环了 ……   帮帮忙  
搞不懂了哦……

<%
  Do Until Rs.EOF
     '这里写循环体的代码
     Rs.MoveNext'这句不能省略
  Loop
%>

<%
  str="select Real_name,Sex,Birthday,Refresh_time from in_user order by Refresh_time desc"
  page=clng(Request.QueryString("page"))
  If page<1 then page=1
  set Rs=server.CreateObject("ADODB.Recordset")
  Rs.pagesize=record_num
  Rs.open str,conn,1
 %>

    <table width="50%"  border="0" cellspacing="0" cellpadding="0" align="left" class="bian"  >
      <tr align="center">
        <td width="16%" align="center" bgcolor="#9ACBEC" class="font_blue">姓名</td>
        <td width="16%" height="25" align="center" bgcolor="#9ACBEC" class="font_blue1">性别</td>
        <td width="24%" height="25" align="center" bgcolor="#9ACBEC" class="font_blue">年龄</td>
        <td width="44%" height="25" align="center" bgcolor="#9ACBEC" class="font_blue">简历刷新日期</td>
        </tr>
        
        <%
         do while Rs.eof and i<Rs.pagesize
         i=i+1
        %>
        
      <tr align="center">  
        <td><%=Rs("Real_name")%></td>
        <td>      
       <%
         If Rs ("Sex")=1 Then
               Response.Write("男")
            Else
               Response.Write("女")
            End if
        %>
       </td>
        <td><%=DATEDIFF("yyyy",Rs("Birthday"),Date())%>岁</td>
        <td><%=Rs("Refresh_time")%></td>
      </tr>
      
      <%
        Rs.MoveNext()
        Loop
      %>
这样写 可以吗 ？
可是 为什么 一条 数据 也没了

楼主是想都显示还是分页显示？

显示

是 分页显示    打错了

帮帮  忙
才学 什么都  不懂

搞定   了非常感谢 各位 朋友