求翻页程序代码？？？？ - ASP技术论坛

得分:0

这样的代码网上有的是
方法也有很多
给你一个简单的例子：

<%
'判断用哪种方式跳转
slt1= request.Form("select")
if slt1= "" then
'以page传过来的值跳转
if not isempty(request.QueryString("page")) then
dpage = cint(request.QueryString("page"))
else
'如果dpage没有值，就给dpage初始化值为1
dpage = 1
end if
else
'以下拉菜单传过来的值跳转这个跳转是2次的跳转第1次是正常的提交表单,执行的这条语句
'这里是重点,第2次是传page值跳转,执行的上边的语句
response.Redirect("index.asp?page="&slt1)
end if

'每页显示记录数
const drecord = 5
'打开记录集
set rs = server.CreateObject("adodb.recordset")
sql = "select * from liuyan order by id desc"
rs.open sql,conn,1,1
'判断是否有记录
if rs.eof and rs.bof then
response.Write "<p><p><center>对不起！暂时没有留言！"
else
'有记录的话执行下边语句

'获得总的记录数
mrecord = rs.recordcount
'判断总的页数
if (mrecord mod drecord) = 0 then
mpage = mrecord \ drecord
else
mpage = mrecord \ drecord + 1
end if
'判断当前页是否是第1页,并把rs记录集相应的下移
if dpage <> 1 then
't是rs记录集要下移的个数
t = drecord * (dpage -1)
rs.move t
end if
%>

<body>
<table width="500" height="80" border="0" align="center" cellpadding="0" cellspacing="0">
<%
'进行循环输出留言信息,注意i的初始化要写在循环外
i = 0
do while not rs.eof
%>
<tr>
<td height="18" bgcolor="#99CCFF"><%=rs("name")%>在<%=rs("time")%>时，发表了留言：</td>
</tr>
<tr>
<td height="39" bgcolor="#CCFFFF"><%=rs("text")%></td>
</tr>
<%
'进行判断，确保每也输出的记录数为5条，大于5条立即停止do while循环
i = i + 1

if i >= 5 then
exit do
end if

rs.movenext
loop
%>
<tr>
<td>
<% response.Write "<p align = 'left'>信息分页"
'进行for循环，循环输出分页号码
for k = 1 to mpage
'判断页号,当页号是当前页时,不加连接
if k = dpage then
response.Write "[<b>"&cstr(k)&"</b>]"
else
if k < dpage + 3 and k > dpage - 3 then
response.Write "[<b><a href = 'index.asp?page="&cstr(k)&"'>"&cstr(k)&"</a></b>]"
end if
end if

next
'显示出当前页是多少
if isempty(request("page")) then
response.Write "当前为第1页"
else
response.Write "当前为第"&cstr(request("page"))&"页"
end if
'显示出总页数是多少
response.Write("共"&mpage&"页")
'显示出上下翻页功能
if dpage = 1 then
'当当前页是第1页并且总页数大于1的时候,显示下一页
if mpage > 1 then
response.Write "<b><a href='index.asp?page="&dpage+1&"'>下一页</a></b>"
end if
'否则什么也不显示,就是说就1页时
elseif dpage = mpage then
'当当前页等于总页数并且总页数大于1的时候,显示上一页
if mpage > 1 then
response.Write "<b><a href='index.asp?page="&dpage-1&"'>上一页</a></b>"
end if
'否则什么也不显示,就是说就1页时
else
'剩下的是当前页不是第1页和最大页
response.Write "<b><a href='index.asp?page="&dpage+1&"'>下一页</a></b>"
response.Write "<b><a href='index.asp?page="&dpage-1&"'>上一页</a></b>"
end if
response.Write "<p>"

%>
<form id="form2" name="form2" method="post" action="index.asp">
<label>跳转到
<select name="select">
<%
'用循环的方法,显示出下拉菜单中的分页号
for aa = 1 to mpage
'把下拉菜单中的当前页的分页号设成默认
if aa = dpage then
%>
<option value="<%=aa%>" selected="selected"><%=aa%></option>
<%
else
%>
<option value="<%=aa%>"><%=aa%></option>
<%
end if
next
%>
</select>
</label>
页
<label>
<input type="submit" name="Submit2" value="提交" />
</label>
</form>
<%end if%>
</td>
</tr>
</table>
<%
'关闭记录集和断开数据库连接
rs.close
set rs = nothing
conn.close
set conn = nothing
%>

其实我很低调,只是你不知道...