<% 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>
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>
asp内容分页代码
rs.PageSize = 8 '每页显示记录数 if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量 if Page > rs.PageCount then '如果接收的页数大于总页数 rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页 else...
ASP 分页代码 (20分)
intTotalRecords = rs.RecordCount rs.PageSize = intPageSize intTotalPages = rs.PageCount If intCurrentPage > intTotalPages Then intCurrentPage = intTotalPages If intTotalRecords > 0 Then rs.AbsolutePage = intCurrentPage strOut(0) = strOut(0) & "共 " & intTotalRecords & " 条...
asp 分页代码 可以显示<<12345678>>形式的分页
page=request("page")if page="" then page=1 else page=Cint(page)end if Section=request("section")if Section="" then Section=1 else Section=Cint(Section)end if '变量赋值 intPageSize=5 '每页显示记录数 intSectionSize=5 '多少页为一段，5表示，12345为一段。PrevSectionText="<FON...
asp 长文章内容分页
asp自动按字数分页源代码 < sub autopage()dim Maxpagelen,page,content,PageNumber,ArticleID dim contentlen dim BeginPoint,EndPoint Maxpagelen=1000 content=ubbcode(rs("content"))ArticleID=rs("ArticleID")contentlen=len(content)page=request.QueryString("page")if contentlen<=Maxpagelen t...
ASP文章过长自动分页代码
URL：***.asp?id=3&page=1 当前ID=3的文章内容假设为text="ABCDEFADSFADSFEFADF"假设每页显示字数：8个 那么，总页数=Len(text)\/8 这里注意：如果文字总数不能被8整除，说明有余数，这样的话，无论如何都要+1，而不是四舍五入。如当前是2(3\/8) 也就是2+1=3页 if page=0 then page=...
asp分页代码
记录集名为rs，粘贴上就能用 < 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 > <form ACTION="<%=Myself%>?pages=...
ASP根据长文章内容分页代码
不难 如果是按某特定字符来分的话，要用split(字段,"特定字符")如果是按字符数来分的话，就要用到mid(str,a,b)为从第a个字符开始截取字段str中b个字符 以些来给每一篇文章分页，比如定义一页显示c个字符，然后第一页a=0,第二页a=a+c,第三页就是a=c*2 ...
asp分页代码
function page(a,RCount,PCount,P,unl)'---分页函数 if a=1 then if p=1 then show= ""else show= ""end if if p>1 then show=show+" "else show=show+" "end if
急..ASP新闻内容分页代码
分页显示很简单的。分页显示必须用到Set rs=Server.CreateObject("ADODB.RECORDSET")如：首先建立RECORDSET <%Dim rs,conn,sql Set rs=Server.CreateObject("ADODB.Recordset")Set conn=Server.CreateObject("ADODB.Connection")sql="Select * From 你的数据库表名"rs.open sql,conn,1,1 '因为要用到...
ASP 内容分页代码。
< page =int(Request.QueryString("page"))set rs=server.createobject("adodb.recordset")if session("tbyhm")<>"" or session("tbjb")="admin" then exec="select * from info order by id desc"rs.open exec,conn,1,1 rs.PageSize =30 If page < 1 Then page = 1 If page >...
