2013-09-26
展开全部
<%page=request("page")id1=request("id")Set rs = Server.CreateObject("ADODB.Recordset")rs.Open "Select * From Conews where id="&id1 ,conn,3,3PageLength=2000if not isempty(page)thenpage=cint(page)elsepage=1end ifif page<1 thenpage=1end ifcontent=rs("content")Length = Len(content)PageCount = CInt(length/PageLength) %>
<% if page=1 thenwen= mid(content,1,2000)response.write(wen)elsewen= mid(content,(page-1)*pagelength,2000)response.write(wen)end if%>
<div align=center><font>本章共有<%=length%>字</font><%Response.write ( ("本节共")) & PageCount & ("页")&" "&("当前为"&page&"页")
&"<br/>"if page<2 then%> 首页 上一页<%else%><a href=fenye.asp?id=<%=request("id")%>&Page=1>首页 </a><a href=fenye.asp?id=<%=request("id")%>&Page=<%= page-1%>>上一页 </a><%end ifif pagecount-page<1 then %>下一页 末页<%else%><a href=fenye.asp?id=<%=request("id")%>&Page=<%= page+1%>>下一页</a><a href=fenye.asp?id=<%=request("id")%>&Page=<%=pagecount%>>末页</a><%end if%><br></div>
<% if page=1 thenwen= mid(content,1,2000)response.write(wen)elsewen= mid(content,(page-1)*pagelength,2000)response.write(wen)end if%>
<div align=center><font>本章共有<%=length%>字</font><%Response.write ( ("本节共")) & PageCount & ("页")&" "&("当前为"&page&"页")
&"<br/>"if page<2 then%> 首页 上一页<%else%><a href=fenye.asp?id=<%=request("id")%>&Page=1>首页 </a><a href=fenye.asp?id=<%=request("id")%>&Page=<%= page-1%>>上一页 </a><%end ifif pagecount-page<1 then %>下一页 末页<%else%><a href=fenye.asp?id=<%=request("id")%>&Page=<%= page+1%>>下一页</a><a href=fenye.asp?id=<%=request("id")%>&Page=<%=pagecount%>>末页</a><%end if%><br></div>
2013-09-26
展开全部
<%
rs.PageSize = 2 '每页显示记录数
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*(rs.PageSize-1)
rs.AbsolutePage = Page
%>
<div ALIGN="right">
<table width="100%">
<tr>
<form ACTION="<%=Myself%>?pages=<%=pages%>" METHOD="GET"> <td>
<p ALIGN="right"><%If Page <> 1 Then ' 如果不是位于第一页%>
<a href="<%=Myself%>?Page=1&pages=<%=pages%>">
第一页</a>
<a HREF="<%=Myself%>?Page=<%=(Page-1)%>&pages=<%=pages%>">
上一页</a>
<%
End If
If Page <> rs.PageCount Then ' 如果不是位于最后一页
%> <a HREF="<%=Myself%>?Page=<%=(Page+1)%>&pages=<%=pages%>">
下一页</a>
<a HREF="<%=Myself%>?Page=<%=rs.PageCount%>&pages=<%=pages%>">
最后一页</a> <% End If %> <font SIZE="2">输入页次:</font><input NAME="Page" SIZE="3" CLASS="s01">
<font SIZE="2">页:</font><font COLOR="Red" SIZE="2">第<%=Page%>页/共<%=rs.PageCount%>页</font></p>
</td>
</form>
</tr>
</table>
</div>
rs.PageSize = 2 '每页显示记录数
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*(rs.PageSize-1)
rs.AbsolutePage = Page
%>
<div ALIGN="right">
<table width="100%">
<tr>
<form ACTION="<%=Myself%>?pages=<%=pages%>" METHOD="GET"> <td>
<p ALIGN="right"><%If Page <> 1 Then ' 如果不是位于第一页%>
<a href="<%=Myself%>?Page=1&pages=<%=pages%>">
第一页</a>
<a HREF="<%=Myself%>?Page=<%=(Page-1)%>&pages=<%=pages%>">
上一页</a>
<%
End If
If Page <> rs.PageCount Then ' 如果不是位于最后一页
%> <a HREF="<%=Myself%>?Page=<%=(Page+1)%>&pages=<%=pages%>">
下一页</a>
<a HREF="<%=Myself%>?Page=<%=rs.PageCount%>&pages=<%=pages%>">
最后一页</a> <% End If %> <font SIZE="2">输入页次:</font><input NAME="Page" SIZE="3" CLASS="s01">
<font SIZE="2">页:</font><font COLOR="Red" SIZE="2">第<%=Page%>页/共<%=rs.PageCount%>页</font></p>
</td>
</form>
</tr>
</table>
</div>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-09-26
展开全部
你是想要长文章分页显示吧,文章分页最好采用手动分页来进行,因为文章代码中包含了html代码,如果想要采用自动分页,而不截断文章是很难做到的,手动分页其实就是在文章代码中加入一下特定的分页符号,如[RXY_NEXTPAGE],然后你在显示文章的时候使用分割函数将文章分割在数组中,然后利用js分页就可以了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-09-26
展开全部
我想楼主的意思应该是单个的长文章分页吧。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询