[求助]谁可以把这段不错的分页代码~转换成函数Function 或者告诉我怎么改`` ... - ASP

冰feng￡落叶

电梯直达

1^#

发表于 2010-1-8 03:20:42 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<%
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from download where bigclassname='产品中心' and smallclassname='儿科类' order by id desc"
rs.open sql,conn,1,1
lendnum=0
const MaxPerPage=6
if rs.eof and rs.bof then
response.write("<font color='red'>现在没有任何记录，请到后台添加</font>")
response.End()
end if
rs.MoveFirst '注意放到前面来,否则到任何页总是在第一个记录上
rs.pagesize=MaxPerPage '设置每页最多显示多少条记录
If trim(Request("Page"))<>"" then '如果请求的页次不为空
CurrentPage= CLng(request("Page")) 'clng是转换成长整型数据类型,并赋值到当前页次上
If CurrentPage> rs.PageCount then '如果当前页次大于总页数,则将最大页次赋值到当前页次上
CurrentPage = rs.PageCount
End If
Else
CurrentPage= 1 '一切条件不成立,将当前页设为第一页
if session("page")<>"" then
CurrentPage=session("page")
end if
End If
totalPut=rs.recordcount '将总记录赋值于TOTALPUT
if CurrentPage<>1 then '如果当前页数不等于第一页
if (currentPage-1)*MaxPerPage<totalPut then '如果当前页减一乘以每页最大的记录数小于总记录的话
rs.move(currentPage-1)*MaxPerPage '相对当前记录数向后移动
dim bookmark '定义书签变量
bookmark=rs.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 rs.eof and lendnum<MaxPerPage
lendnum=lendnum+1
nN=nN+1
%>
<%=rs("title")%>
<%
rs.movenext
loop
%>
<form method=POST action="pro.asp" name=setPagesList>

共有<font color="#FF0000"><%=rs.recordcount%></font>条记录　
<%
k=currentPage
if k<>1 then
response.write "|<b>"+"<a href='?page=1'>首页</a></b>| "
response.write "<b>"+"<a href='?page="&cstr(k-1)&"&px="&px&"'>上一页</a></b>| "
else
Response.Write "|首页|上一页|"
end if
if k<>n then
response.write "<b>"+"<a href='?page="&cstr(k+1)&"'>下一页</a></b>| "
response.write "<b>"+"<a href='?page="&cstr(n)&"'>尾页</a></b>| "
else
Response.Write "下一页|尾页|"
end if
%>
第<font color="#FF0000"><%=currentpage%></font>/<%=n%>页 转到<input name=page type=text class="loginfrom" value="<%=currentpage %>" size=3 maxlength=3>页
</form>

收藏0