长文章分页

[arbran]

各位：你好，小妹有事情相求，我碰到一篇长文章，怎么样让他们主动分开几页显示呢？求求帮帮忙呀！！

[qiao198]

我帮你ＵＰ

[yslcuk]

你可以参考一下我的分页程序:
<%
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">  <a href=# title=<%=address(rs1("ip"))%>><%=rs1("ip")%></a></td>
<td width="22%" style="text-align: left">  <%=rs1("fromtime")%></td>
<td width="22%" style="text-align: left">  <%=rs1("ietype")%></td>
<td width="18%" style="text-align: left">  <%=rs1("os")%></td>
<td width="12%" style="text-align: left">  <%=address(rs1("ip"))%></td>
<td width="11%" style="text-align: left">  <%=rs1("count")%></td>
</tr>
<%
counti=counti+1
if counti>=maxperpage then
exit do
end if
rs1.movenext
loop
end if


%>

[zjwz001]

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

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

[bingbingcha]

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

[liaoxing]

手动分页:

[银狐被占用]

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

<%
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> 
<a onClick="return CheckOK();" href="javascript:immeSubmit(<%=Cint(m_Page)-1%>,<%=mPageCount%>);">上页</a> 
<a onClick="return CheckOK();" href="javascript:immeSubmit(<%=Cint(m_Page)+1%>,<%=mPageCount%>);">下页</a> 
<a onClick="return CheckOK();" href="javascript:immeSubmit(<%=mPageCount%>,<%=mPageCount%>);">末页</a> <%=m_Page%>/<%=mPageCount%> 
到第</font>
<input name="page" type="text" id="page" size="2" value="1">
<font size="2">页</font>
<input type="submit" name="Submit2" value="Go">  <font color="#0000FF" size="2">总记录：<%=mRecordCount%></font>
</div>
</td>
</tr>
</form>
<%end if%>
</tr>