<%'**************************************************************************************
'* *
'* 文件说明部分 *
'* *
'****************************************************************************************
'----------------------------------------------------------------------------------------
'该文件中实现的函数:
' GetPage(Max) 获取页码,返回类型:int
' ShowPage(intCurPage,intPageCount,intPageSize,intRecordCount) 显示导航条,无返回值
'----------------------------------------------------------------------------------------
'使用实例:把以下*号中的代码放到ASP文件中的body之间
'----------------------------------------------------------------------------------------
'*<form action='' method='get' name='frmPage'>
'*< %
'* intPageSize=5 '页面大小:rs.pagesize
'* intPageCount=6 '页面数量:rs.pagecount
'* intRecordCount=29 '总共记录数量:rs.recordcount
'* intCurPage=GetPage(intPageCount ) '获取当前页:rs.absolutepage
'* call showpage(intCurPage,intPageCount,intPageSize,intRecordCount) '显示导航条
'*% >
'</form>
'----------------------------------------------------------------------------------------
'****************************************************************************************
'* *
'* 函数实现部分 *
'* *
'****************************************************************************************
%>
<script language="javascript">
function viewPage(ipage){
document.frmPage.m_page.value=ipage;
document.frmPage.submit();
}
</script>
<%
'----------------------------------------------------------------------------------------
'函数名称:GetPage(maxPageNum)
'函数功能:获取m_page并且转为正确int类型页码
'参数列表:Max最大限制页码,如:rs.pagesize
'程序设计:覃雁禄qylmail@163.com
'设计日期:2006-9-20
'----------------------------------------------------------------------------------------
function GetPage(Max)
Page=Request("m_page")
if Page="" then
Page=1
elseif not IsNumeric(Page) then
Page=1
else
Page=Cint(Page)
end if
if Page<1 then
Page=1
end if
if Page>Max then
Page=Max
end if
GetPage=Page
end function
'----------------------------------------------------------------------------------------
'函数名称:ShowPage(p_Current,p_Total,p_PageSize,r_Total)
'函数功能:显示分页导航条
'参数列表:
' p_Total:总页数
' p_Current:当前页
' p_PageSize:每页记录数
' r_Total:总记录数
'程序设计:覃雁禄qylmail@163.com
'设计日期:2006-9-20
'调用方法:
' 将该页代码包含到要调用的页面.添加名称为"frmPage"的窗体,
' 在窗体中调用 ShowPage(p_Current,p_Total,p_PageSize,r_Total).
' 要传递的其它参数可以用该形式传递:<input name="keys" type="hidden" id="keys" value="1">
' 实例如下:
' <form action="" method="get" name="frmPage">
' <input name="keys" type="hidden" id="keys" value="1">
' < %Call ShowPage(p_Current,p_Total,p_PageSize,r_Total)% >
' </form>
'备 注:
' 为方便添加其它参数,该函数不提供窗体,
' 所以调用时需放在一个窗体里,并且将窗体名称命名为:frmPage.
'------------------------------------------------------------------------------------------
Sub ShowPage(p_Current,p_Total,p_PageSize,r_Total)
response.Write "总计<font color='#FF0000'>"&r_Total&"</font>条记录 "
response.Write "页次<font color='#FF0000'>"&p_Current&"</font>/<font color='#FF0000'>"&p_Total&"</font> "
response.Write "每页<font color='#FF0000'>"&p_PageSize&"</font>条"
if p_Total>1 then '当记录大于一页时
if p_Current=1 then '当前记录为第一页
response.Write " 首页 上页 <a href='JavaScript:viewPage("&p_Current+1&")'>下页</a> "
response.Write "<a href='JavaScript:viewPage("&p_Total&")' >尾页</a>"
elseif p_Current=p_Total then '当前记录为最后一页
response.Write " <a href='JavaScript:viewPage(1)'>首页</a> "
response.Write "<a href='JavaScript:viewPage("&p_Current-1&")'>上页</a> 下页 尾页"
else
response.Write " <a href='JavaScript:viewPage(1)'>首页</a> <a href='JavaScript:viewPage("&p_Current-1&")'>上页</a> "
response.Write "<a href='JavaScript:viewPage("&p_Current+1&")'>下页</a> <a href='JavaScript:viewPage("&p_Total&")'>尾页</a>"
end if
else '当记录只有一页时
response.Write " 首页 上页 下页 尾页"
end if
response.Write " <input name='m_page' type='text' size='3' maxlength='5' value='"&p_Current&"' onMouseOver='this.focus();this.select()'/>"
response.Write " <input name='btnGo' type='submit' value='GO'/>"
End Sub
%>
'* *
'* 文件说明部分 *
'* *
'****************************************************************************************
'----------------------------------------------------------------------------------------
'该文件中实现的函数:
' GetPage(Max) 获取页码,返回类型:int
' ShowPage(intCurPage,intPageCount,intPageSize,intRecordCount) 显示导航条,无返回值
'----------------------------------------------------------------------------------------
'使用实例:把以下*号中的代码放到ASP文件中的body之间
'----------------------------------------------------------------------------------------
'*<form action='' method='get' name='frmPage'>
'*< %
'* intPageSize=5 '页面大小:rs.pagesize
'* intPageCount=6 '页面数量:rs.pagecount
'* intRecordCount=29 '总共记录数量:rs.recordcount
'* intCurPage=GetPage(intPageCount ) '获取当前页:rs.absolutepage
'* call showpage(intCurPage,intPageCount,intPageSize,intRecordCount) '显示导航条
'*% >
'</form>
'----------------------------------------------------------------------------------------
'****************************************************************************************
'* *
'* 函数实现部分 *
'* *
'****************************************************************************************
%>
<script language="javascript">
function viewPage(ipage){
document.frmPage.m_page.value=ipage;
document.frmPage.submit();
}
</script>
<%
'----------------------------------------------------------------------------------------
'函数名称:GetPage(maxPageNum)
'函数功能:获取m_page并且转为正确int类型页码
'参数列表:Max最大限制页码,如:rs.pagesize
'程序设计:覃雁禄qylmail@163.com
'设计日期:2006-9-20
'----------------------------------------------------------------------------------------
function GetPage(Max)
Page=Request("m_page")
if Page="" then
Page=1
elseif not IsNumeric(Page) then
Page=1
else
Page=Cint(Page)
end if
if Page<1 then
Page=1
end if
if Page>Max then
Page=Max
end if
GetPage=Page
end function
'----------------------------------------------------------------------------------------
'函数名称:ShowPage(p_Current,p_Total,p_PageSize,r_Total)
'函数功能:显示分页导航条
'参数列表:
' p_Total:总页数
' p_Current:当前页
' p_PageSize:每页记录数
' r_Total:总记录数
'程序设计:覃雁禄qylmail@163.com
'设计日期:2006-9-20
'调用方法:
' 将该页代码包含到要调用的页面.添加名称为"frmPage"的窗体,
' 在窗体中调用 ShowPage(p_Current,p_Total,p_PageSize,r_Total).
' 要传递的其它参数可以用该形式传递:<input name="keys" type="hidden" id="keys" value="1">
' 实例如下:
' <form action="" method="get" name="frmPage">
' <input name="keys" type="hidden" id="keys" value="1">
' < %Call ShowPage(p_Current,p_Total,p_PageSize,r_Total)% >
' </form>
'备 注:
' 为方便添加其它参数,该函数不提供窗体,
' 所以调用时需放在一个窗体里,并且将窗体名称命名为:frmPage.
'------------------------------------------------------------------------------------------
Sub ShowPage(p_Current,p_Total,p_PageSize,r_Total)
response.Write "总计<font color='#FF0000'>"&r_Total&"</font>条记录 "
response.Write "页次<font color='#FF0000'>"&p_Current&"</font>/<font color='#FF0000'>"&p_Total&"</font> "
response.Write "每页<font color='#FF0000'>"&p_PageSize&"</font>条"
if p_Total>1 then '当记录大于一页时
if p_Current=1 then '当前记录为第一页
response.Write " 首页 上页 <a href='JavaScript:viewPage("&p_Current+1&")'>下页</a> "
response.Write "<a href='JavaScript:viewPage("&p_Total&")' >尾页</a>"
elseif p_Current=p_Total then '当前记录为最后一页
response.Write " <a href='JavaScript:viewPage(1)'>首页</a> "
response.Write "<a href='JavaScript:viewPage("&p_Current-1&")'>上页</a> 下页 尾页"
else
response.Write " <a href='JavaScript:viewPage(1)'>首页</a> <a href='JavaScript:viewPage("&p_Current-1&")'>上页</a> "
response.Write "<a href='JavaScript:viewPage("&p_Current+1&")'>下页</a> <a href='JavaScript:viewPage("&p_Total&")'>尾页</a>"
end if
else '当记录只有一页时
response.Write " 首页 上页 下页 尾页"
end if
response.Write " <input name='m_page' type='text' size='3' maxlength='5' value='"&p_Current&"' onMouseOver='this.focus();this.select()'/>"
response.Write " <input name='btnGo' type='submit' value='GO'/>"
End Sub
%>