asp最常用的分页函数(2)

    <td width="84" class="blueback2"><div align="center">更新日期</div></td>
    <td width="40" class="blueback2"><div align="center">点击</div></td>
    <td width="55" class="blueback2"><div align="center">添加人</div></td>
    <td width="44" class="blueback2"><div align="center">编辑</div></td>
    <td width="43" class="blueback2"><div align="center">删除</div></td>
    <td width="62" class="blueback2"><div align="center">生成[<a href="javascript:void(null)" onClick="window.open('cshengcheng.asp','','width=0,height=0')"><font color="#FFFFFF">归零</font></a>]</div></td>
  </tr>  
  <%

  i=1
   do while not rs.eof
%>

  <tr>
    <td width="39" height="25" bgcolor="#D6DFF7"><div align="center"><%=rs("id")%></div></td>
    <td width="34" bgcolor="#D6DFF7"><div align="center">
           <input type="checkbox" name="dxyid" value="<%=rs("id")%>">
     </div></td>
    <td bgcolor="#D6DFF7"><a href="Article_show.asp?id=<%=rs("id")%>" target="_blank">[<%=rs("type_id")%>]<%thetitle1=rs("title")
    strcounts=truelen(thetitle1)
    response.write thetitle1
    %></a></td>
    <%
    datetime=rs("datetime")
    yname=year(datetime)
mname=month(datetime)
if len(mname)<2 then mname="0"&mname
dname=month(datetime)
if len(dname)<2 then dname="0"&dname
foldername=yname&mname
    %>
    <td bgcolor="#D6DFF7"><div align="center"><a href="<%=htmlfolder%><%=foldername%>/<%=rs("id")%>.htm" title="查看生成的静态页面" target="_blank"><%=rs("datetime")%></a></div></td>
    <td bgcolor="#D6DFF7"><div align="center"><%=rs("hits")%></div></td>
    <td bgcolor="#D6DFF7"><div align="center"><%=rs("author")%></div></td>
    <td bgcolor="#D6DFF7"><div align="center"><a href="news_edit.asp?dxy_id=<%=rs("id")%>">修改</a></div></td>