'-------------------------------------------------
'PageSize:每页的纪录数
'tmpPageNo:第几页
'PageCount:总页数
'FileName:分页的asp文件
'Param:传递的参数
'----------------------------------------------------
Function getPageUpDownInfo(PageSize, tmpPageNo, PageCount, FileName, Param)
dim strTemp
dim PageNo
if tmpPageNo = "" or not IsNumeric(tmpPageNo) then
PageNo = 1
else
PageNo = CLng(tmpPageNo)
if PageNo > PageCount then
PageNo = PageCount
end if
end if
' strTemp = strTemp & "<table align='center'><tr><td>" & chr(13)
strTemp = strTemp & CStr(pageNo) & "<font color='#8A8A8A'>/" & CStr(PageCount) & "页" & chr(13)
strTemp = strTemp & " "
if Param = "" then
if PageNo <= 1 then
strTemp = strTemp & "首页" & chr(13)
strTemp = strTemp & " "
strTemp = strTemp & "前页" & chr(13)
else
strTemp = strTemp & "<a href='" & FileName & "?" & "PageNo=1&PageSize=" & PageSize & "'>首页</a>" & chr(13)
strTemp = strTemp & " "
strTemp = strTemp & "<a href='" & FileName & "?" & "PageNo=" & CStr(PageNo - 1) & "&PageSize=" & PageSize & "'>前页</a>" & chr(13)
end if
strTemp = strTemp & " "
if PageNo = PageCount then
strTemp = strTemp & "后页" & chr(13)
strTemp = strTemp & " "
strTemp = strTemp & "尾页" & chr(13)
else
strTemp = strTemp & "<a href='" & FileName & "?" & "PageNo=" & CStr(PageNo + 1) & "&PageSize=" & PageSize & "'>后页</a>" & chr(13)
strTemp = strTemp & " "
strTemp = strTemp & "<a href='" & FileName & "?" & "PageNo=" & CStr(PageCount) & "&PageSize=" & PageSize & "'>尾页</a>" & chr(13)
end if
else
if PageNo <= 1 then
strTemp = strTemp & "首页" & chr(13)
strTemp = strTemp & " "
strTemp = strTemp & "前页" & chr(13)
else
strTemp = strTemp & "<a href='" & FileName & "?" & Param & "&PageNo=1&PageSize=" & PageSize & "'>首页</a>" & chr(13)
strTemp = strTemp & " "
strTemp = strTemp & "<a href='" & FileName & "?" & Param & "&PageNo=" & CStr(PageNo - 1) & "&PageSize=" & PageSize & "'>前页</a>" & chr(13)
end if
strTemp = strTemp & " "
if PageNo = PageCount then
strTemp = strTemp & "后页" & chr(13)
strTemp = strTemp & " "
strTemp = strTemp & "尾页" & chr(13)
else
strTemp = strTemp & "<a href='" & FileName & "?" & Param & "&PageNo=" & CStr(PageNo + 1) & "&PageSize=" & PageSize & "'>后页</a>" & chr(13)
strTemp = strTemp & " "
strTemp = strTemp & "<a href='" & FileName & "?" & Param & "&PageNo=" & CStr(PageCount) & "&PageSize=" & PageSize & "'>尾页</a>" & chr(13)
end if
end if
strTemp = strTemp & "</font>" & chr(13)
' strTemp = strTemp & "</td></tr></table>" & chr(13)
getPageUpDownInfo = strTemp
end function
结合函数GetListByPage(strSQL, PageSize, PageNo, PageCount, arrList)和函数getPageUpDownInfo(PageSize, tmpPageNo, PageCount, FileName, Param)分页的例子
<%
dim strSQL, arrList
dim PageSize, PageNo, PageCount
dim strTemp
strTemp = Trim(Request("PageSize"))
if strTemp = "" or not IsNumeric(strTemp) then
PageSize = 15
else
PageSize = CLng(strTemp)
end if
strTemp = Trim(Request("PageNo"))
if strTemp = "" or not IsNumeric(strTemp) then
PageNo = 1
else
PageNo = CLng(strTemp)
end if
intID = cInt(Request("ID"))
%>
<table width="100%" border="0" cellspacing="20" cellpadding="0">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="1">
<tr>
<td width="30" bgcolor="#FFC277"> </td>
<td height="22" align="center" bgcolor="#FFAE4A" class="wh">新 闻 标 题</td>
<td width="100" align="center" bgcolor="#FFC277" class="wh">发 布 时 间</td>
</tr>
<%
strSQL = "select * from News WHERE ID=" & intID & " order by ID Desc"
if GetList(strSQL, PageSize, PageNo, PageCount, arrList) then
for i = 0 to ubound(arrList, 2)
%>
<tr>
<td align="center" background="images/sub_bg2.gif"><font color="#29BECE">·</font></td>
<td height="25" background="images/sub_bg2.gif"><A class=a2 href="/ReadNews.asp?id=<%=arrList(0, i)%>&ID=<%=arrList(1, i)%>" title="<%=arrList(2, i)%>" target=_blank><%=arrList(2, i)%></A></td>
<td height="25" background="images/sub_bg2.gif" class="link01">[<%=FormatDateTime(arrList(4, i),vbShortDate)%>]</td>
</tr>
<%
next
else
Response.write "<tr><td colspan='3' align='center'>暂时没有数据。</td></tr>"
end if
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" align="Right" bgcolor="#FFAE4A" class="wh"><%=getPageUpDownInfo(PageSize, PageNo, PageCount, "List.asp", " ID="&intID)%> </td>
</tr>
</table>