分页问题
比如我有一篇很长的文字，我想分页显示怎么写代码啊
<title>蓝鹰留言本</title>
</head>
<body>
<p align="center"><a href="/index.asp">蓝鹰留言本</a></p>
<p align="right">
<%
if Session("Sname")<>"" then
response.write("<a href="/"logout.asp"">退出管理</a>")
else
response.write("<a href="/"login.asp"">管理登陆</a>")
end if
%></p>
<table width="780" border="1" align="center" cellspacing="0" >
<tr>
<td width="100" height="20"><div align="center">留言人</div></td>
<td width="200"><div align="center">留言标题</div></td>
<td width="380"><div align="center">留言内容</div></td>
<td width="100"><div align="center">时间</div></td>
</tr>
<% Language="VBScript"
dim connstr
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim sql
on error resume next
'定义每页文章显示数
const MaxPerPage=10
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
'数库表guesttext
sql="select * from guesttext order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
mb_demo=replace(rs("mb_demo"),chr(10)+chr(13),"<br>")
if rs.eof and rs.bof then
response.write "<p align='center'> 还没有任何留言</p>"
else totalPut=rs.recordcount '数据库中留言数totalput
if currentpage<1 then
currentpage=1
end if
'统计总页数currentpage
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpage totalput,MaxPerPage,"index.asp"
showContent
showpage totalput,MaxPerPage,"index.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpage totalput,MaxPerPage,"index.asp"
showContent
showpage totalput,MaxPerPage,"index.asp"
else currentPage=1
showpage totalput,MaxPerPage,"index.asp"
showContent
showpage totalput,MaxPerPage,"index.asp"
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i
i=0
do while not rs.eof
%>
<table width="780" border="1" align="center" cellspacing="0">
<tr>
<td width="100" height="80"><% =rs("guest") %></td>
<td width="200" height="80"><% =rs("title") %></td>
<td width="380" height="80"><% =rs("text") %></td>
<td width="100" height="80"><% =rs("time") %></td>
</tr>
<tr bgcolor="#9999FF">
<td height="20" colspan="4"><A href="send.asp?ID=<%=rs("id")%>">回复</a> ｜<a href="del.asp?ID=<% =RS("ID")%>">删除</A></td>
</tr>
</table>
<% '当显示记录大于maxperpage时结束这页
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end sub
function showpage(totalnumber,maxperpage,filename)
'求出当每页5条记录时总共的页数
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else n= totalnumber \ maxperpage+1
end if
response.write "<form method=Post action="&filename&">"
response.write "<p align='center'><font color='#000080'>>>分页</font> "
'显示页数链接的条件
if CurrentPage<2 then
response.write "<font color='#000080'>首页 上一页</font> "
else response.write "<a href="&filename&"?page=1&>首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&">上一页</a> "
end if
if n-currentpage<1 then
response.write "<font color='#000080'>下一页 尾页</font>"
else response.write "<a href="&filename&"?page="&(CurrentPage+1)
response.write ">下一页</a> <a href="&filename&"?page="&n&">尾页</a>"
end if
response.write "<font color='#000080'> 页次：</font><strong><font color=red>"&CurrentPage&"</font><font color='#000080'>/"&n&"</strong>页</font>"
response.write "<font color='#000080'> 共<b>"&totalnumber&"</b>笔记录<b> "&maxperpage&"</b>笔记录/页</font>"
response.write "<font color='#000080'>转到：</font><input class=smallInput type='text' name='page' size=4 maxlength=10 value="&Currentpage&">"
response.write "<input class=buttonface type='submit' value=' Goto ' name='cndok'></span></p></form>"
end function
%>
