我有以下一段代码，能运行了，但是就是缺少分页效果，请各位大虾帮我看一下！！如何修改成分页效果？？先谢过了。代码如下：
<table width="750" height="70" border="1">
      <tr>
        <td height="13" colspan="8"><div align="center"></div></td>
      </tr>
      <tr>
        <td height="13" colspan="8"><div align="center"><span class="STYLE5">任务分配表单</span></div></td>
      </tr>
      <tr bgcolor="#3399FF">
        <td width="36" height="13"><div align="center">编号</div></td>
        <td width="102"><div align="center">需求部门</div></td>
        <td width="91"><div align="center">需求人员</div></td>
        <td width="121"><div align="center">需求人电话</div></td>
        <td width="102"><div align="center">需求完成时间</div></td>
        <td width="130"><div align="center">故障标题</div></td>
        <td width="57"><div align="center">执行</div></td>
        <td width="57"><div align="center">执行 </div></td>
      </tr>
      <%
        set rs=server.CreateObject("adodb.recordset")
        sql="select * from nd_msg"
        rs.open sql,conn,1,3
        do while not rs.eof
        if rs("agn_type")=0 then
        %>
      <tr>
        <td height="13"><div align="center"><%=rs("id")%></div></td>
        <td height="13"><%=rs("nd_depart")%></td>
        <td height="13"><%=rs("nd_name")%></td>
        <td><%=rs("nd_tel")%></td>
        <td><%=rs("nd_data")%></td>
        <td><%=left(rs("nd_title"),10)%></td>
        <td><div align="center"><a href="assign_form_index.asp?id=<%=rs("id")%>">分配</a></div></td>
        <td><div align="center"><a href="del.asp?id=<%=rs("id")%>">删除</a></div></td>
      </tr>
      <%
    end if
    rs.movenext
    loop
    response.end()
    rs.close
    conn.close
    set rs=nothing
    set conn=nothing
    
    %>
      <td height="2">      <div align="center"></div>      </tr>
    </table>

兄弟你不能这么懒吧.百度里搜一个加上去不就行了!

哥们我知道啊，但是就是怎么加啊？？？哥们，指点一下啊，从哪加？？

<table width="100%" height="189"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="666" align="center" valign="top" background="../images/listnews_34.gif"><table width="191" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="20"></td>
              </tr>
              <tr>
                <td height="444" align="center" valign="top"><!--#include file="ic.html"--></td>
              </tr>
              <tr>
                <td height="214"><img src="../images/listnews_37.gif" width="191" height="214"></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
    <td width="32" height="708"></td>
    <td width="538" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="538" height="33"><img src="../img/4.gif" width="538" height="33"></td>
      </tr>
      <tr>
        <td height="10" align="left" valign="top"></td>
      </tr>
      <tr>
        <td height="665" align="left" valign="top" class="zw11"><table width="100%" height="30"  border="0" cellpadding="0" cellspacing="0">
        <%
       sql="select * from news_list where news_add='林业动态' order by id desc"
       rs.open sql,conn,1,1
       
                        
                        Const MaxPerPage=20
                   dim totalPut   
                   dim CurrentPage
                   dim TotalPages
                   dim j
                   dim sql
                    if Not isempty(request("page")) then
                      currentPage=Cint(request("page"))
                   else
                      currentPage=1
                   end if
                  if rs.eof And rs.bof then
                       Response.Write "<p align='center' class='contents'> 数据库中无数据！</p>"
                   else
                      totalPut=rs.recordcount

                      if currentpage<1 then
                          currentpage=1
                      end if

                      if (currentpage-1)*MaxPerPage>totalput then
                           if (totalPut mod MaxPerPage)=0 then
                             currentpage= totalPut \ MaxPerPage
                           else
                              currentpage= totalPut \ MaxPerPage + 1
                           end if
                      end if

                       if currentPage=1 then
                        showContent
                        showpage totalput,MaxPerPage,"treedt.asp"
                       else
                          if (currentPage-1)*MaxPerPage<totalPut then
                            rs.move  (currentPage-1)*MaxPerPage
                            dim bookmark
                            bookmark=rs.bookmark
                            showContent
                             showpage totalput,MaxPerPage,"treedt.asp"
                        else
                            currentPage=1
                               showContent
                               showpage totalput,MaxPerPage,"treedt.asp"
                          end if
                       end if
                                      end if

                   sub showContent
                   dim i
                   i=0%>


          <tr>
          <%do while not rs.eof%>
            <td width="39" height="29" align="center" valign="middle"><img src="../images/bian1.gif" width="9" height="9"></td>
            <td width="399" align="left" valign="middle" class="zw11"><a href="../shownews.asp?id=<%=rs("id")%>" target="_blank">
              <%
           if rs("news_pic")<>"" then
               pic = "(图)"
           else
               pic = ""
           end if
           if len(rs("news_title"))>20 then
               response.write left(rs("news_title"),20)&pic&"…"
           else
               response.Write rs("news_title")&pic
           end if
           %></a></td>
            <td width="100" align="left" valign="middle" class="zw11"><%=rs("news_time")%></td>
          </tr>
          <tr>
            <td colspan="3" background="../images/js21.gif"></td>
          </tr>
          <%i=i+1
            if i>=MaxPerPage then Exit Do
            rs.movenext
          loop
          rs.close
          set rs=nothing%>
        </table>
        <%  
                End Sub   
  
                Function showpage(totalnumber,maxperpage,filename)  
                  Dim n
                  
                If (totalnumber Mod maxperpage)=0 Then  
                    n= totalnumber \ maxperpage  
                Else
                    n= totalnumber \ maxperpage+1  
                End If
                
                Response.Write "<form method=Post action="&filename&"?selectm="&selectm&"&selectkey="&selectkey&" >"  
                Response.Write "<p align='center' class='contents'> "  
                If CurrentPage<2 Then  
                    Response.Write "<font class='contents'>首页 上一页</font> "  
                Else  
                    Response.Write "<a href="&filename&"?page=1&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>首页</a> "  
                    Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>上一页</a> "  
                End If
                
                If n-currentpage<1 Then  
                    Response.Write "<font class='contents'>下一页 尾页</font>"  
                Else  
                    Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>"  
                    Response.Write "下一页</a> <a href="&filename&"?page="&n&"&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>尾页</a>"  
                End If  
                    Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "  
                    Response.Write "<font class='contents'> 共有"&totalnumber&"条信息 "
                    Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="&currentpage&">"  
                    Response.Write "&nbsp;<input type='submit'  class='contents' value='GO' name='cndok' ></form>"  
                End Function  
            %>        </td>
      </tr>
      <tr>
        <td align="center"></td>
      </tr>
    </table></td>
    <td width="37">&nbsp;</td>
  </tr>
</table>

你自己截取出来用!看一下你就明白了!

超级感谢你    ！！！！！！！！！！！！！