寻求给一个分页带提交跳转的 谢谢
给一个分页带上一页 下一页 最后一页 及 提交跳转的代码谢谢谢谢
<%
Set lendlist= Server.CreateObject("ADODB.Recordset")
sql="select * from car_lend"
lendlist.open sql,conn,1,1
lendnum=0
const MaxPerPage=20
if lendlist.eof and lendlist.bof then
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td colspan="15" align="center" class="form"><strong>暂无车辆信息！</strong></td>
</tr>
</table>
<%
response.End()
end if
lendlist.MoveFirst '注意放到前面来,否则到任何页总是在第一个记录上
lendlist.pagesize=MaxPerPage '设置每页最多显示多少条记录
If trim(Request("Page"))<>"" then '如果请求的页次不为空
CurrentPage= CLng(request("Page")) 'clng是转换成长整型数据类型,并赋值到当前页次上
If CurrentPage> lendlist.PageCount then '如果当前页次大于总页数,则将最大页次赋值到当前页次上
CurrentPage = lendlist.PageCount
End If
Else
CurrentPage= 1 '一切条件不成立,将当前页设为第一页
if session("page")<>"" then
CurrentPage=session("page")
end if
End If
totalPut=lendlist.recordcount '将总记录赋值于TOTALPUT
if CurrentPage<>1 then '如果当前页数不等于第一页
if (currentPage-1)*MaxPerPage<totalPut then '如果当前页减一乘以每页最大的记录数小于总记录的话
lendlist.move(currentPage-1)*MaxPerPage '相对当前记录数向后移动
dim bookmark '定义书签变量
bookmark=lendlist.bookmark '将当前记录的标签赋于变量BOOKMARK上
end if
end if
dim n,k
if (totalPut mod MaxPerPage)=0 then '总记录数与每页最大记录数求余的结果为零时,则N返回整数页次,否则再加一.
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
do while not lendlist.eof and lendnum<MaxPerPage
lendnum=lendnum+1
%>
……记录……
<%
lendlist.movenext
loop
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="form">
<tr>
<form method=POST action="syregister.asp" name=setPagesList>
<td align="center" valign="middle" class="text_black">
<!-- 分页显示代码块 可独立使用,注意和上面分页功能代码配使用 -->
<div align="center"><br>
<span class="text">共有<%=lendlist.recordcount%>条车辆使用记录
<%
k=currentPage
if k<>1 then
response.write "|<b>"+"<a href='?page=1'class='text_black'>首页</a></b>| "
response.write "<b>"+"<a href='?page="&cstr(k-1)&"&px="&px&"'class='text_black'>上一页</a></b>| "
else
Response.Write "|首页|上一页|"
end if
if k<>n then
response.write "<b>"+"<a href='?page="&cstr(k+1)&"'class='text_black'>下一页</a></b>| "
response.write "<b>"+"<a href='?page="&cstr(n)&"'class='text_black'>尾页</a></b>| "
else
Response.Write "下一页|尾页|"
end if
%>
第<%=currentpage%>/<%=n%>页
<input name=page type=text class="loginfrom" value="<%= currentpage %>" size=5 maxlength=10>
</span></div> </td>
</form>
</tr>
</table>
