主题:  ASP整除问题

yayue510
职务：普通成员
等级：1
金币：0.0
发贴：14
注册：2002/9/10 15:30:00
#12003/10/11 20:11:43
ASP整除问题
if lTotalRecords MOD iPageSize <> 0 then iTotalPages = iTotalPages + 1

这是BBS里的，这句话意思是如果不能整除就+1
是吧？可我总觉得对分页显示没作用啊？

删掉此句就出问题了，比如 我10个记录，每页为5个，可是为什么会显示共三页呢？
最后一页为空记录，不能整除的时候正常

原程序：



留言簿






留言内容

<%
cmd.CommandText="messagetheads"
cmd.CommandType=4
ipagesize=3
ipage=cint(Request.QueryString("page")
if ipage=0 then ipage=1
rs.open cmd, , 1,3
if not rs.Eof and not rs.bof then
rs.MOvefirst
ItotalRecords=rs.RecordCount
iTotalPages=int(ItotalRecords/ipagesize)
if


%>
<%
cmd.CommandText = "MESSAGETHREADS"
cmd.CommandType = 4
iPageSize = 2
iPage = cint(Request.QueryString("Page"))
if iPage = 0 then iPage = 1
rs.open cmd, , 1, 3
if not rs.Eof and not rs.bof then
rs.MoveLast
lTotalRecords = rs.RecordCount
iTotalPages = int(lTotalRecords / iPageSize)
if lTotalRecords MOD iPageSize <> 0 then iTotalPages = iTotalPages + 1
if lTotalRecords <= iPageSize then
rs.MoveFirst
bOnePage = true
lPageEnd = lTotalRecords
lPageStart = 1
iTotalPages = 1
else
lPageStart = ((iPage - 1) * iPageSize) + 1
lPageEnd = lPageStart + (iPageSize - 1)
if lPageEnd >= lTotalRecords Then
lPageEnd = lTotalRecords
bLastPage = true
end if
if iPage > 1 then
rs.AbsolutePosition = ((iPage - 1) * iPageSize) + 1
else
rs.MoveFirst
end if
end if
else
bNoRecords = true
end if
%>