我帮你ＵＰ

你可以参考一下我的分页程序:
<%
maxpage=0
maxperpage=25
maxip=rs1.recordcount

maxpage=maxip/maxperpage

if instr(maxpage,".") then
maxpage=cint(maxpage)+1
end if
page=request("page")
if request("page")<=0 then
page=1
end if
%>
<%
        if rs1.eof and rs1.bof then
        response.write "几天没有记录"
        else
        counti=0
        rs1.move(page-1)*maxperpage
        do while not rs1.eof%>
<tr>
          <td width="15%" style="text-align: left"> &nbsp;<a href=# title=<%=address(rs1("ip"))%>><%=rs1("ip")%></a></td>
          <td width="22%" style="text-align: left"> &nbsp;<%=rs1("fromtime")%></td>
          <td width="22%" style="text-align: left"> &nbsp;<%=rs1("ietype")%></td>
          <td width="18%" style="text-align: left"> &nbsp;<%=rs1("os")%></td>
          <td width="12%" style="text-align: left"> &nbsp;<%=address(rs1("ip"))%></td>
  <td width="11%" style="text-align: left"> &nbsp;<%=rs1("count")%></td>
        </tr>
        <%
        counti=counti+1
        if counti>=maxperpage then
        exit do
        end if
        rs1.movenext
        loop
        end if
        
        
        %>

理想分页方法--------->手动分页:
在添加长文章时加入手动分页符,前台输出根据分页符分页

如果要实现自动分的话,万一是一些在线编辑器,会有很多的代码,再还有一些图的高度,宽度等,如果用自动分页好像不现实

自动不太爽。很多问题地。。。

手动分页:

我的有点乱。但是很好用。

<%
m_Page = ""

if Request.ServerVariables("REQUEST_METHOD")= "POST" then
m_Page = "1"
if Request.Form("submit") <> "" then 
m_Page = "1"
elseif Request.Form("submit2") <> "" then 
m_Page  = Request.Form("page")
if m_Page="" or m_Page="0" then
m_Page="1"
end if
else
m_Page  = Request.QueryString("pPage")
end if 
end if 
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="218" valign="top">
<!-- #include file="menu.asp" -->
  </td>
          <td valign="top"><div align="center"> 
              <table width="90%" border="0" align="center" cellpadding="0" cellspacing="3" >
<% n = 10
i = 1
record.PageSize  = n 
mRecordCount = record.RecordCount
mPageCount  = record.PageCount
if Not record.Eof then 
if Cint(m_page) < 1 Or Cint(m_page) > mPageCount then 
m_page = 1 
end if 
record.AbsolutePosition = n*(Cint(m_Page)-1)+1%>
<%while Not record.Eof and i<=n
m_dbname=record("dbname")
if m_bijiao<>m_dbname then%>
                <tr> 
                  <td  class="unnamed5"><span style="letter-spacing: 1">
<br>风景名胜查询\<strong><%=record("dbname")%><br></strong></span><hr>
                    </td>
                </tr>
<% m_bijiao=m_dbname 
end if%>
                <tr> 
                  <td> <span style="letter-spacing: 1"> <a href="fjqueryinfo.asp?name=<%=record("mc")%>" target="_blank" class="p1"><%=record("mc")%></a></span></td>
                </tr>
                <tr> 
                  <td align="center"><div align="left"> 
                      <p style="line-height: 150%"> <span style="letter-spacing: 1pt"><span class="p1">交通：
<%=""&record("jt")%></span></span><br></div>
                    </td>
                </tr>
<tr> 
                  <td align="center"><div align="left"> 
                      <p style="line-height: 150%"> <span style="letter-spacing: 1pt"><span class="p1">门票：
<%=record("mp")%>电话：<%=record("dh")%></span></span><br></div><hr>
<%i = i + 1%>
                    </td>
                </tr>
<% record.MoveNext
Wend
else%>
<%="没有查找到您想要的数据！"%>
<%end if%>
<% if mPageCount > 1 then %>
<form name="form2" method="post" action="">
<input type="hidden" name = "section" value = "<%=m_section%>">
<input type="hidden" name = "content" value = "<%=m_content%>">
<tr>
<td> 
<div align="left"><font size="2"><font color="#CC3333"></font>
                <a onClick="return CheckOK();" href="javascript:immeSubmit(<%=1%>,<%=mPageCount%>);">首页</a>&nbsp; 
                <a onClick="return CheckOK();" href="javascript:immeSubmit(<%=Cint(m_Page)-1%>,<%=mPageCount%>);">上页</a>&nbsp; 
                <a onClick="return CheckOK();" href="javascript:immeSubmit(<%=Cint(m_Page)+1%>,<%=mPageCount%>);">下页</a>&nbsp; 
                <a onClick="return CheckOK();" href="javascript:immeSubmit(<%=mPageCount%>,<%=mPageCount%>);">末页</a>&nbsp;<%=m_Page%>/<%=mPageCount%>&nbsp; 
                到第</font> 
                <input name="page" type="text" id="page" size="2" value="1"> 
                <font size="2">页</font> 
<input type="submit" name="Submit2" value="Go">&nbsp;&nbsp;<font color="#0000FF" size="2">总记录：<%=mRecordCount%></font>
</div> 
</td> 
</tr> 
</form>
<%end if%>
  </tr>