asp内容分页代码
我做个汇感之舟的网站，在内容显示页面，如果文章太大，那么就会拉的太长，所以请高手给我改些代码，能分页显示：代码如下：
<!--#include file="inc/fun.asp"-->
<!--#include file="inc/sys.asp"-->
<%
'====================================== 信息显示
infoid=request("keyid")
if infoid="" or IsNumeric(infoid)<>true then
response.write "<script>alert('错误，下面是产生错误的可能原因：\n\n·请输入正确的ID号！');history.go(-1);</Script>"
Response.End
end if
sql="select * from news where info_id="&infoid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
infoshow=infoshow&"<br><div align=center>此内容不存在</div>"
else
newstitle=rs("info_title")
postime=rs("info_time")
classname=rs("info_clsname")
classid=rs("info_cls")
infojs=delhtml(left(replhtml(trim(rs("info_body"))),150))
neirong=rs("info_body")
cishuo=rs("info_click")
end if
conn.execute("update news set info_click=info_click+1 where info_id="&infoid)
rs.close
'定义一个nextrs函数来找出下一篇的ID
function nextrs
nextrsd=server.CreateObject("adodb.recordset")
sql="select top 1 * from news where info_id>"&infoid&" and info_cls="&classid&" order by info_id"
set nextrsd=conn.execute(sql)
if nextrsd.eof then
response.Write "上一篇：这是"&classname&"栏目的第一条信息"
else
a2=nextrsd("info_id")
response.Write "上一篇：<a href='newshow.asp?keyid="&a2&"'>"&nextrsd("info_title")&"</a>"
end if
end function
'定义一个backrs函数来找出上一篇的ID
function backrs
backrsd=server.CreateObject("adodb.recordset")
sql="select top 1 * from news where info_id<"&infoid&" and info_cls="&classid&" order by info_id desc"
set backrsd=conn.execute(sql)
if backrsd.eof then
response.Write "下一篇：这是"&classname&"栏目的最后一条信息"
else
a0=backrsd("info_id")
response.Write "下一篇：<a href='newshow.asp?keyid="&a0&"'>"&backrsd("info_title")&"</a>"
end if
end function
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
这是顶部的一部分代码，请问怎么让内容显示分页
请高手别再网上搜些代码，我试了不行的，谁能在我这上面改，就是内容分页显示
<%
Dim currentpage,page_count,Pcount
dim totalrec,endpage
currentPage=request("page")
if currentpage="" then
currentpage=1
else
currentpage=clng(currentpage)
if err then
currentpage=1
err.clear
end if
end if
%>
一下是连接数据库
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from "你的表名"where "条件""
rs.open sql,conn,1,1
if not rs.eof then '1.判断是否有记录
rs.PageSize = 18 '每页18条记录
rs.AbsolutePage=currentpage
page_count=0
while (not rs.eof) and (not page_count =18)
for a=1 to rs.PageSize
page_count = page_count + 1
rs.movenext
if rs.eof then exit for
next
wend
Pcount=rs.PageCount
end if
%>
分页开始
<%
if currentpage > 4 then
response.write "<a href=""?page=1">[1]</a> ..."
end if
if Pcount>currentpage+3 then
endpage=currentpage+3
else
endpage=Pcount
end if
for i=currentpage-3 to endpage
if not i<1 then
if i = clng(currentpage) then
response.write "<font color=red>["&i&"]</font>"
else
response.write "<a href=""?page="&i&">["&i&"]</a>"
end if
end if
next
if currentpage+3 < Pcount then
response.write "... <a href=""?page="&Pcount&">["&Pcount&"]</a>"
end if
%>
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 >...
