基于组件的asp编程之二--分页对象 来源
wrclub.net 佚名
在asp中，分页使用的最多的程序段了，把分页写成函数，调用起来，要传很多参数，写成对象，可以使分页
对象调用简单，本文在参考众多网友的分页函数基础上，用javascript把它写成了一个对像放于文件
夹"_ScriptCom"下，文件名为"JPageNavbar.asp",先看一下分页对象的调用方式(由于大多数的asp开发人员使
用vbscript，所以本文的实例采用vbscript编写)：
<%@LANGUAGE="VBSCRIPT" %>
<%
Response.Buffer=true
on error resume next
if trim(Request.ServerVariables("REQUEST_METHOD")) = "POST" then
'取得查询字符串
chxstr=readForm("chxstr")
xshstr=readForm("xshstr")
r1=readForm("R1")
'保存查询条件
session("r1")=r1
session("chxstr")=chxstr
session("xshstr")=xshstr
else
如果不是从form提交，则是分页，从session取的查询条件
r1=readSession("r1")
chxstr=readSession("chxstr")
xshstr =readSession("xshstr")
end if
'这里是一些关于业务的逻辑运算
if xshstr=empty then
xshstr ="查询所有记录"
end if
select case r1
case 1 '在校学生
sql=" select * from v_student_base where graduate=0"
if chxstr<>empty then
sql=sql+" and "+ chxstr
end if
cddr="在校学生"
case 2 ' 毕业学生
sql=" select * from v_student_base where graduate=1"
if chxstr<>empty then
sql=sql+" and "+ chxstr
end if
cddr="毕业学生"
case 0 '全部学生
if chxstr<>empty then
sql="select * from v_student_base where"+" "+chxstr
else
sql="select * from v_student_base"
end if
cddr="全部学生"
case else
response.write "系统参数错误，请与系统管理员联系！"
response.End
end select
'生成connection 和 Recordset
set conn=connCreate(getDBLink())
set rs=rsCreate()
rs.open sql,conn,1,3
if (rs.eof ) then
show_msg "很遗憾,没有您要的记录!",4,"infoQuery.asp"
end if
dim gd(1)
gd(0)="未毕业"
gd(1)="已毕业"
'***************************************************************************
'注意：这里是分页
RowCount =15
set fy=createJPageNavbar()
if (not isEmpty(rs)) then
rs.PageSize = RowCount '设置数据集的页记录
fy.PageSize=RowCount
rs.AbsolutePage =fy.getCurrentPage()
fy.RecordCount=rs.RecordCount
fy.PageCount=rs.pageCount
fy.PnWidth="100%"
fy.PnAlign="center"
fy.PlWidth="100%" '表格宽度
fy.PlAlign="right" ' 表格的对齐方式
end if
'***********************************************************************************
%>
学生信息查询
ID="Table1">
:::学生信息搜索结果::: |
==>>查询条件： <%=xshstr %> |
onclick="gofind()" ID="Button1" NAME="Button1"> |
class="t_table" ID="Table2">
<%
'***************************************************
fy.pnDisplay() '分页的“上一页” “下一页”
'***********************************************************
%> |
学号 |
姓名 |
性别 |
年级 |
专业 |
二级学院 |
状态 |
<% i=0
'********************************************************
while (not rs.eof and i '*********************************************************
%>
')"><%= rs("stu_num") %> |
<%= rs("name") %> |
<%= rs("sex") %> |
<%= rs("gread") %> |
<%= rs("speciality_name") %> |
<%= rs("secondary") %> |
<%=gd(rs("graduate")) %> |
<% i=i+1
rs.moveNext
wend %>
<%
'**************************************************************
fy.plDisplay() '分页列表
'**************************************************************
%> |
|
<%
rsNull(rs)
connNull(conn)
%>
这里是分页显示的效果图（做了一下处理）
/*//Ado.RecordSet记录分页对象
//设置分页
var RowCount =3
var fy=new JPageNavbar()
if (!rsRpt.Eof){
rs.PageSize = RowCount //设置数据集的页记录
fy.PageSize=RowCount
rs.AbsolutePage =fy.getCurrentPage()
fy.RecordCount=rs.RecordCount
fy.PageCount=rs.pageCount
fy.PnWidth="100%"
fy.PnAlign="right"
fy.PlWidth="100%" //表格宽度
fy.PlAlign="right" // 表格的对齐方式
}
//显示分页
<%fy.pnDisplay()%>
<%fy.plDisplay()%>
*/
function createJPageNavbar(){
//这个函数是vbscript的接口函数 ，vbscript不是基于对象的脚本语言
var objJPageNavbar=new JPageNavbar
return objJPageNavbar
}
function JPageNavbar(){
// public members
this.PageSize="0"
this.RecordCount="0" //总记录数
this.PageCount="1" //总页数
this.CurrentPage="1"
this.PnWidth="100%"
this.PnAlign="right"
this.PlWidth="100%" //表格宽度
this.PlAlign="right" // 表格的对齐方式
// private members
//public methods
this.getCurrentPage=_getCurrentPage
this.pnDisplay = _PN_show;
this.plDisplay = _PL_show;
//private methods
}
function _getCurrentPage(){
//当前显示的是第几页
//取得当前页
var pageNo = Request.QueryString ("PageNo")
//如果没有选择第几页，则默认显示第一页；
if (isNaN(pageNo)) {
pageNo = 1
}
this.CurrentPage=pageNo
return pageNo
}
function _PL_show(){
var strBuilder=new String()
strBuilder=""
var p=(this.CurrentPage-(this.CurrentPage%10))/10 //计算分页显示的页数
//首组为第0族
strBuilder+="
"
Response.Write(strBuilder)
}
function _PN_show(){
var strBuilder=new String()
var nextPageNo
strBuilder=""
strBuilder+="
strBuilder+=" width=\""+this.PnWidth+"\" align=\""+this.PnAlign+"\">"
strBuilder+=""
strBuilder+="页次：
["+this.CurrentPage+"/"+this.PageCount+"]页 每页["+this.PageSize+"]条 总记录
数：["+this.RecordCount+"]条 | "
strBuilder+=""
if (this.CurrentPage>1){
nextPageNo=this.CurrentPage
nextPageNo--
strBuilder+="[上一页]"
}
if (this.CurrentPage nextPageNo=this.CurrentPage
nextPageNo++
strBuilder+="[下一页]"
}
strBuilder+=" |
"
Response.Write(strBuilder)
}
关联文档