asp通用分页类
作者:wang 日期:2010-04-06
一、类的属性、方法
这是个asp通用分页类。你能用他方便的给记录集分页，当然在网上有许多的分页类和分页函数。本分页主要有conn、sql、url、fieldlist、pagesize、template、init、show、close等属性和方法。
1.conn属性 ：用来获取一个已创建的connection对象。
2.sql属性 ：根据传入的sql语句，自动创建recordset对象
3.pagesize属性 ：设置第页的记录条数
4.fieldlist属性 ：如果需要显示库中的数据，一定要设置此属性。他是用来获取需要显示的正确的字段名。
5.url属性 ：设置分页条中链接的文件地址。
6.template属性 ：设置分页文件的模版。
7.init过程 ：分页类初始化数据。
8.show过程 ：显示数据。
9.close过程 ：分页类结束
全部代码由此下载
二、类的原始码(inc_clspage.asp)
<%
/************************************************
* *
* name : asp pagnation class *
* author : cjj *
* version : v2.8 *
* time : 2004-01-16 *
* comefrom: http://www.blueidea.com/ *
* homepage: none (maybe soon) *
* notice : you can use and modify it freely, *
* but please hold this item. *
* if you modify it that i hope you *
* can send a mail for me. *
* *
************************************************/
#########声明变量#########
定义链接的显示类型
const sw_intshowchinese = 0 汉字，如"上一页、下一页"
const sw_intshowenglish = 1 英文，如"back、next"
const sw_intshowcharacter = 2 特别字符
定义数据的显示类型
const sw_inthorizontalview = 0 横排
const sw_intverticalview = 1 竖排
线的显示类型
const sw_intshowbigborder = 2 粗线
const sw_intshowsmallborder = 1 细线
const sw_intshownoborder = 0 无线
标题栏线的显示类型
const sw_inttlesmallborder = 1 细线
const sw_inttlenoborder = 0 无线
显示分页信息的位置
const sw_intpageinnone = 0 不显示分页条
const sw_intpageintop = 1 在顶部显示
const sw_intpageinbottom = 2 在底部显示
const sw_intpageinall = 3 在顶、底部显示
显示的页数的数字个数
const sw_intshowpages = 10
swpage class
private sw_blnishavers,sw_strfields,sw_blninconn,sw_intshowpagepos,sw_strshowwidth
#########初始化变量##########
sw_blnishavers = false 设置记录集获取标志为fasle，就是无记录集状态
sw_strshowwidth = "90%" 默认的显示宽度为90%
sw_strfields = ""
sw_blninconn = true 由内部创建connection,如果设为false则由外部创建
sw_intshowpagepos = sw_intpageinall
*****************************************
类型： 类
目的： 给记录集分页
*****************************************
class swpage
声明类私有变量
private sw_objrs,sw_objconn
private sw_strsql,sw_strurl,sw_strerror,sw_strformaction,sw_strheadjs,sw_strfootjs
private sw_intpagesize,sw_inttlebdtype,sw_intshowpagetype,sw_intshowtype
private sw_lngtotalpage,sw_lngtotalrecord,sw_lngpageno
private sw_aryfldname,sw_aryfldnote,sw_aryfldwidth,sw_aryfldalign,sw_aryfldlink
private sw_blninit,sw_blnopenrs,sw_blnconn,sw_blnpagesize,sw_blnfieldlist,sw_blngeturl,sw_blnshowtype,sw_blnshowpagetype,sw_blntemplate
*****************************************
类型： 属性
目的： 根据获取的信息，创建数据库连接
输入： a_strconn:数据类型字符串
返回： 无
*****************************************
public property let conn(a_strconn)
dim strerror
sw_blnconn = false
set sw_objconn = createobject("adodb.connection")
on error resume next
sw_objconn.open a_strconn
if err.number <> 0 then strerror = strerror & "
创建connection对象失败"
on error goto 0
if trim(strerror)="" then
sw_blnconn = true
else
sw_strerror = sw_strerror & "conn属性：
sw_strerror = sw_strerror & "" & strerror & "
end if
end property
*****************************************
类型： 属性
目的： 设定或显示sql语句。
输入： a_strsql: sql语句。
返回： sql语句。
*****************************************
public property let sql(a_strsql)
dim strerror
sw_blnopenrs = false
sw_strsql = a_strsql
创建recordset对象
set sw_objrs = createobject("adodb.recordset")
on error resume next
sw_objrs.open sw_strsql,sw_objconn,1,1
if err.number <> 0 then strerror = "
记录集打开失败"
on error goto 0
if trim(strerror)="" then
sw_blnopenrs = true
else
sw_strerror = sw_strerror & "sql属性：
sw_strerror = sw_strerror & "" & strerror & "
end if
end property
*****************************************
类型： 属性
目的： 设置需要显示的数据的字段名
输入： a_strfldname:字段名字符串，多个字段之间以逗号分隔
返回： 无
*****************************************
public property let fieldlist(a_strfldname)
dim strerror
sw_blnfieldlist = false
if trim(a_strfldname) <> "" then
sw_aryfldname = split(lcase(a_strfldname),",")
else
strerror = strerror & "
你必须设置需要显示的字段名，否则无法显示数据"
end if
if trim(strerror)="" then
sw_blnfieldlist = true
else
sw_strerror = sw_strerror & "fieldlist属性：
sw_strerror = sw_strerror & "" & strerror & "
end if
end property
*****************************************
类型： 属性
目的： 设定或显示每页的记录数。
输入： a_intpagesize: 每页显示的记录数。
返回： 每页显示的记录数。
*****************************************
public property let pagesize(a_intpagesize)
dim strerror
pagesize获取失败标志
sw_blnpagesize = false
if trim(a_intpagesize) = "" or (not(isnumeric(a_intpagesize))) then
strerror = strerror & "
非法的pagesize"
else
if (a_intpagesize <= 2147483647 and a_intpagesize>=-2147483648) then
sw_intpagesize = clng(a_intpagesize)
else
strerror = strerror & "
pagesize溢出"
end if
if (sw_intpagesize<=0) then
strerror = strerror & "
pagesize只能是正整数"
end if
end if
if trim(strerror)="" then
sw_blnpagesize = true
else
sw_strerror = sw_strerror & "pagesize属性：
sw_strerror = sw_strerror & "" & strerror & "
end if
end property
*****************************************
类型： 属性
目的： 设定分页文件显示模板信息。
输入： a_strtemplate: 模板描述。
返回： 无。
*****************************************
public property let template(a_strtemplate)
dim arytemplate,i,j,strerror,strtemp,intitem,arytemp,arytemp1
sw_blntemplate = false
arytemplate = split(trim(lcase(a_strtemplate)),"+")
intitem = ubound(arytemplate)
if intitem < 4 then strerror = "
此属性是必选项"
if intitem < 4 then
获取文件头
strtemp = trim(arytemplate(0))
if strcomp(left(strtemp,6),"[file=")= 0 then
sw_strheadjs = ""
else
sw_strheadjs = mid(strtemp,7,len(strtemp)-7)
end if
获取文件尾
strtemp = trim(arytemplate(3))
if strcomp(left(strtemp,6),"[file=") = 0 then
sw_strfootjs = ""
else
sw_strfootjs = mid(strtemp,7,len(strtemp)-7)
end if
获取分页模版
arytemp = split(arytemplate(1),",")
if arytemp(0) <> "" then strtemp = replace(arytemp(0),"[page=","")
if isnumeric(strtemp) then strtemp = cint(strtemp)
if strtemp <> sw_intpageinnone then
if isnumeric(strtemp) then strtemp = cint(strtemp)
sw_intshowpagepos = strtemp
strtemp = arytemp(1)
if strtemp <> "" then strtemp = replace(strtemp,"]","")
if isnumeric(strtemp) then strtemp = cint(strtemp)
sw_intshowpagetype = strtemp
else
sw_intshowpagepos = sw_intpageshowinnone
end if
获取数据显示模版
arytemp = split(arytemplate(2),"|")
for i = 0 to ubound(arytemp)
strtemp = lcase(trim(arytemp(i)))
select case i
case 0 获取并设置显示宽度
if strtemp <> "" then strtemp = replace(strtemp,"[data=","")
sw_strshowwidth = strtemp
case 1 获取数据显示方式
if isnumeric(strtemp) then strtemp = cint(strtemp)
sw_intshowtype = strtemp
case 2
if strtemp <> "" then strtemp = replace(strtemp,"]","")
arytemp1 = split(trim(strtemp),"#")
if ubound(arytemp1) >= 3 then
sw_aryfldnote = split(arytemp1(0),",")
sw_aryfldalign = split(arytemp1(1),",")
sw_aryfldwidth = split(arytemp1(2),",")
sw_aryfldlink = split(arytemp1(3),",")
end if
end select
next
end if
if strerror = "" then
sw_blntemplate = true
else
sw_strerror = sw_strerror & "template属性：
sw_strerror = sw_strerror & "" & strerror & "
end if
end property
*****************************************
类型： 属性
目的： 设定或显示url。
输入： a_strurl: 需要分页的文件地址。
返回： 需要分页的文件地址。
*****************************************
public property let url(a_strurl)
dim strerror,objfso
sw_blngeturl = false
if trim(a_strurl)="" then
strerror = "
非法的url地址"
else
set objfso = createobject("scripting.filesystemobject")
if objfso.fileexists(server.mappath(a_strurl)) then
sw_strurl = a_strurl
else
strerror = strerror & "
你能确定文件 " & a_strurl & " 存在么？"
end if
set objfso = nothing
end if
if strerror = "" then
sw_blngeturl = true
else
sw_strerror = sw_strerror & "url属性：
sw_strerror = sw_strerror & "" & strerror & "
end if
end property
*****************************************
类型： 属性
目的： 设置显示标题时单元格的宽度
输入： a_strtlewidth:单元格宽度字符串
返回： 无
*****************************************
public property let tlewidth(a_strwidth)
sw_strtlewidth = a_strwidth
end property
*****************************************
类型： 属性
目的： 设置显示标题时单元格分隔线的类型
输入： a_intbdtype 单元格分隔线的类型
返回： 无
*****************************************
public property let tlebdtype(a_intbdtype)
sw_inttlebdtype = a_intbdtype
end property
*****************************************
类型： 过程
目的： 统计总记录数、计算总页数
输入： 无
返回： 无
*****************************************
sub init()
dim intpostion,strerror,i,objrstemp,lngtotalrecord
if not (sw_blnconn and sw_blnopenrs and sw_blnpagesize and sw_blngeturl) then
call showerrors()
exit sub
end if
if sw_objrs.eof and sw_objrs.bof then
strerror = strerror & "
库中无所有记录"
end if
计算总计录数
set objrstemp = sw_objconn.execute("select * from sw_reccount")
lngtotalrecord = clng(objrstemp("sw_reccount").value)
sw_lngtotalrecord = lngtotalrecord
if (sw_lngtotalrecord<=2147483647 and sw_lngtotalrecord>=-2147483648) then
sw_lngtotalrecord = clng(sw_lngtotalrecord)
else
strerror = strerror & "
分页初始化时：总记录数溢出"
end if
if sw_lngtotalrecord <=0 then strerror = strerror & "
分页初始化时：总记录数小于零"
计算总页数
if sw_lngtotalrecord mod sw_intpagesize = 0 then
sw_lngtotalpage = clng(sw_lngtotalrecord ＼ sw_intpagesize * -1)*-1
else
sw_lngtotalpage = clng(sw_lngtotalrecord ＼ sw_intpagesize * -1)*-1 + 1
end if
获取页数
sw_lngpageno = trim(request.querystring("pageno"))
if sw_lngpageno = "" then sw_lngpageno = trim(request.form("pageno"))
if sw_lngpageno = "" then sw_lngpageno = 1
如果没有选择第几页，则默认显示第一页
if sw_lngpageno <> "" and isnumeric(sw_lngpageno) then
if (sw_lngpageno <= 2147483647 and sw_lngpageno>=-2147483648) then
sw_lngpageno = clng(sw_lngpageno)
else
strerror = strerror & "
页数溢出，请检查！"
end if
if (sw_lngpageno<=0) then strerror = strerror & "
页数只能是正整数！"
else
strerror = strerror & "
你确信此页数 " & sw_lngpageno & " 存在？"
end if
if (sw_lngpageno > sw_lngtotalpage and sw_lngtotalpage<>0) then sw_lngpageno = sw_lngtotalpage
sw_objrs.pagesize = sw_intpagesize
sw_objrs.absolutepage = sw_lngpageno
intpostion = instrrev(sw_strurl,"?")
sw_strformaction = sw_strurl
if intpostion > 0 then
sw_strurl = sw_strurl & "&pageno="
else
sw_strurl = sw_strurl & "?pageno="
end if
if trim(sw_strfields) = "" then
for i = 0 to sw_objrs.fields.count-1
sw_strfields = sw_strfields & sw_objrs(i).name & ","
next
end if
sw_strfields = lcase("," & trim(sw_strfields))
if isarray(sw_aryfldname) then
for i = lbound(sw_aryfldname) to ubound(sw_aryfldname)
if instr(sw_strfields,"," & sw_aryfldname(i) & ",") = 0 then strerror = strerror & "
字段名 " & sw_aryfldname(i) & " 正确吗？"
next
if (isarray(sw_aryfldnote) and ubound(sw_aryfldname)>ubound(sw_aryfldnote)) then strerror = strerror & "
字段相应中文说明项目不能小于字段个数"
if (isarray(sw_aryfldwidth) and ubound(sw_aryfldname)>ubound(sw_aryfldwidth)) then strerror = strerror & "
字段相应宽度项目不能小于字段个数"
if (isarray(sw_aryfldalign) and ubound(sw_aryfldname)>ubound(sw_aryfldalign)) then strerror = strerror & "
字段数据相应对齐方式项目不能小于字段个数"
if (isarray(sw_aryfldlink) and ubound(sw_aryfldname)>ubound(sw_aryfldlink)) then strerror = strerror & "
字段数据相应文件链接项目不能小于字段个数"
end if
if trim(strerror) = "" then
sw_blninit = true
else
sw_strerror = sw_strerror & "init过程：
sw_strerror = sw_strerror & "" & strerror & "
end if
response.write(sw_strheadjs & vbcrlf)
end sub
*****************************************
类型： 过程
目的： 显示分页信息
输入： 无
返回： 无
*****************************************
private sub pages()
dim strpages,k,inttemp,inttemp1
if not(sw_blninit) then call showerrors()
if sw_lngtotalpage = 1 then exit sub
response.write("" & vbcrlf)
" & vbcrlf)
end sub
*****************************************
类型： 过程
目的： 显示分页数据
输入： 无
返回： 无
*****************************************
sub show()
dim i,j
if not(sw_blninit) then call showerror()
j = 0
if sw_objrs.eof and sw_objrs.bof then
response.write("库中无所有记录
")
response.end
else
if sw_intshowpagepos = sw_intpageinall or sw_intshowpagepos = sw_intpageintop then call pages()
空行
response.write("
" & vbcrlf)
select case sw_intshowtype
case sw_inthorizontalview 横排
do while (not sw_objrs.eof and j" & vbcrlf)
" & vbcrlf)
空行
response.write("
" & vbcrlf)
sw_objrs.movenext
j = j + 1
loop
case sw_intverticalview 竖排
if sw_inttlebdtype = sw_inttlenoborder then
response.write("" & vbcrlf) " & vbcrlf)
" & vbcrlf)
response.write("
" & vbcrlf)
case else
response.write("
你还没设置数据的显示方式?或你的设置的显示方式swpage不支持！
")
response.end
end select
if sw_intshowpagepos = sw_intpageinall or sw_intshowpagepos = sw_intpageinbottom then call pages()
response.write( sw_strfootjs & vbcrlf)
end if
end sub
*****************************************
类型： 过程
目的： 显示分页类中出现的错误信息
输入： 无
返回： 无
*****************************************
private sub showerrors()
if sw_strerror <> "" then
sw_strerror = "" & vbcrlf & "
" & vbcrlf
response.write(sw_strerror)
response.end
end if
end sub
*****************************************
类型： 过程
目的： 释放资源
输入： 无
返回： 无
*****************************************
sub close()
set sw_objrs = nothing
set sw_objconn = nothing
end sub
end class
%>
三、类的应用代码
<%option explicit
dim strstarttime,intusetime,clspage,strshowtemp
strstarttime = timer()
%>
<%
分页显示的位置：sw_intpageinall,sw_intpageintop,sw_intpageinbottom
页数的显示模式：sw_intshowchinese,sw_intshowenglish,sw_intshowcharacter,sw_intshowimage
页面显示模板设置 <文件头> + <页数设置：分页显示模式,页数显示的位置> + <数据显示> + <页数显示> + <文件尾>如果某项不必，只要设置成<>就行了，不过<文件头>和<文件尾是必须的>
设置分页文件头,能直接跟html代码({code=....})
strshowtemp = "[file=head.js] + "
设置分页条显示信息
strshowtemp = strshowtemp & "[page=" & sw_intpageinall & "," & sw_intshowcharacter & "] + "
########设置数据模版信息
strshowtemp = strshowtemp & "[data="
设置显示的宽度
strshowtemp = strshowtemp & "90%|"
数据显示方式，竖排、横排
strshowtemp = strshowtemp & sw_intverticalview & "|"
需要显示的字段的相应的中文说明
strshowtemp = strshowtemp & "编号,用户名,生日#"
需要显示的字段的相应的对齐方式
strshowtemp = strshowtemp & "left,center,right#"
需要显示的字段的相应的宽度
strshowtemp = strshowtemp & "30%,30%,30%#"
需要显示的字段的相应的链接文件名
strshowtemp = strshowtemp & "list.asp,,,"
strshowtemp = strshowtemp & "] + "
#########数据模版结束
#########设置文件尾
strshowtemp = strshowtemp & "[file=foot.js]"
set clspage = new swpage
clspage.conn = "driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../db/datatest.mdb")
clspage.sql = "select * from datatest"
clspage.pagesize = 10
clspage.url = "pages.asp"
clspage.fieldlist = "id,field1,field2"
clspage.template = strshowtemp 显示模版
clspage.init()
clspage.show
clspage.close
set clspage = nothing
intusetime = formatnumber((timer()-strstarttime)*1000,3)
response.write("
共用时 " & intusetime & " 毫秒 ")
%>
这是个asp通用分页类。你能用他方便的给记录集分页，当然在网上有许多的分页类和分页函数。本分页主要有conn、sql、url、fieldlist、pagesize、template、init、show、close等属性和方法。
1.conn属性 ：用来获取一个已创建的connection对象。
2.sql属性 ：根据传入的sql语句，自动创建recordset对象
3.pagesize属性 ：设置第页的记录条数
4.fieldlist属性 ：如果需要显示库中的数据，一定要设置此属性。他是用来获取需要显示的正确的字段名。
5.url属性 ：设置分页条中链接的文件地址。
6.template属性 ：设置分页文件的模版。
7.init过程 ：分页类初始化数据。
8.show过程 ：显示数据。
9.close过程 ：分页类结束
全部代码由此下载
二、类的原始码(inc_clspage.asp)
<%
/************************************************
* *
* name : asp pagnation class *
* author : cjj *
* version : v2.8 *
* time : 2004-01-16 *
* comefrom: http://www.blueidea.com/ *
* homepage: none (maybe soon) *
* notice : you can use and modify it freely, *
* but please hold this item. *
* if you modify it that i hope you *
* can send a mail for me. *
* *
************************************************/
#########声明变量#########
定义链接的显示类型
const sw_intshowchinese = 0 汉字，如"上一页、下一页"
const sw_intshowenglish = 1 英文，如"back、next"
const sw_intshowcharacter = 2 特别字符
定义数据的显示类型
const sw_inthorizontalview = 0 横排
const sw_intverticalview = 1 竖排
线的显示类型
const sw_intshowbigborder = 2 粗线
const sw_intshowsmallborder = 1 细线
const sw_intshownoborder = 0 无线
标题栏线的显示类型
const sw_inttlesmallborder = 1 细线
const sw_inttlenoborder = 0 无线
显示分页信息的位置
const sw_intpageinnone = 0 不显示分页条
const sw_intpageintop = 1 在顶部显示
const sw_intpageinbottom = 2 在底部显示
const sw_intpageinall = 3 在顶、底部显示
显示的页数的数字个数
const sw_intshowpages = 10
swpage class
private sw_blnishavers,sw_strfields,sw_blninconn,sw_intshowpagepos,sw_strshowwidth
#########初始化变量##########
sw_blnishavers = false 设置记录集获取标志为fasle，就是无记录集状态
sw_strshowwidth = "90%" 默认的显示宽度为90%
sw_strfields = ""
sw_blninconn = true 由内部创建connection,如果设为false则由外部创建
sw_intshowpagepos = sw_intpageinall
*****************************************
类型： 类
目的： 给记录集分页
*****************************************
class swpage
声明类私有变量
private sw_objrs,sw_objconn
private sw_strsql,sw_strurl,sw_strerror,sw_strformaction,sw_strheadjs,sw_strfootjs
private sw_intpagesize,sw_inttlebdtype,sw_intshowpagetype,sw_intshowtype
private sw_lngtotalpage,sw_lngtotalrecord,sw_lngpageno
private sw_aryfldname,sw_aryfldnote,sw_aryfldwidth,sw_aryfldalign,sw_aryfldlink
private sw_blninit,sw_blnopenrs,sw_blnconn,sw_blnpagesize,sw_blnfieldlist,sw_blngeturl,sw_blnshowtype,sw_blnshowpagetype,sw_blntemplate
*****************************************
类型： 属性
目的： 根据获取的信息，创建数据库连接
输入： a_strconn:数据类型字符串
返回： 无
*****************************************
public property let conn(a_strconn)
dim strerror
sw_blnconn = false
set sw_objconn = createobject("adodb.connection")
on error resume next
sw_objconn.open a_strconn
if err.number <> 0 then strerror = strerror & "
创建connection对象失败"
on error goto 0
if trim(strerror)="" then
sw_blnconn = true
else
sw_strerror = sw_strerror & "
sw_strerror = sw_strerror & "
end if
end property
*****************************************
类型： 属性
目的： 设定或显示sql语句。
输入： a_strsql: sql语句。
返回： sql语句。
*****************************************
public property let sql(a_strsql)
dim strerror
sw_blnopenrs = false
sw_strsql = a_strsql
创建recordset对象
set sw_objrs = createobject("adodb.recordset")
on error resume next
sw_objrs.open sw_strsql,sw_objconn,1,1
if err.number <> 0 then strerror = "
记录集打开失败"
on error goto 0
if trim(strerror)="" then
sw_blnopenrs = true
else
sw_strerror = sw_strerror & "
sw_strerror = sw_strerror & "
end if
end property
*****************************************
类型： 属性
目的： 设置需要显示的数据的字段名
输入： a_strfldname:字段名字符串，多个字段之间以逗号分隔
返回： 无
*****************************************
public property let fieldlist(a_strfldname)
dim strerror
sw_blnfieldlist = false
if trim(a_strfldname) <> "" then
sw_aryfldname = split(lcase(a_strfldname),",")
else
strerror = strerror & "
你必须设置需要显示的字段名，否则无法显示数据"
end if
if trim(strerror)="" then
sw_blnfieldlist = true
else
sw_strerror = sw_strerror & "
sw_strerror = sw_strerror & "
end if
end property
*****************************************
类型： 属性
目的： 设定或显示每页的记录数。
输入： a_intpagesize: 每页显示的记录数。
返回： 每页显示的记录数。
*****************************************
public property let pagesize(a_intpagesize)
dim strerror
pagesize获取失败标志
sw_blnpagesize = false
if trim(a_intpagesize) = "" or (not(isnumeric(a_intpagesize))) then
strerror = strerror & "
非法的pagesize"
else
if (a_intpagesize <= 2147483647 and a_intpagesize>=-2147483648) then
sw_intpagesize = clng(a_intpagesize)
else
strerror = strerror & "
pagesize溢出"
end if
if (sw_intpagesize<=0) then
strerror = strerror & "
pagesize只能是正整数"
end if
end if
if trim(strerror)="" then
sw_blnpagesize = true
else
sw_strerror = sw_strerror & "
sw_strerror = sw_strerror & "
end if
end property
*****************************************
类型： 属性
目的： 设定分页文件显示模板信息。
输入： a_strtemplate: 模板描述。
返回： 无。
*****************************************
public property let template(a_strtemplate)
dim arytemplate,i,j,strerror,strtemp,intitem,arytemp,arytemp1
sw_blntemplate = false
arytemplate = split(trim(lcase(a_strtemplate)),"+")
intitem = ubound(arytemplate)
if intitem < 4 then strerror = "
此属性是必选项"
if intitem < 4 then
获取文件头
strtemp = trim(arytemplate(0))
if strcomp(left(strtemp,6),"[file=")= 0 then
sw_strheadjs = ""
else
sw_strheadjs = mid(strtemp,7,len(strtemp)-7)
end if
获取文件尾
strtemp = trim(arytemplate(3))
if strcomp(left(strtemp,6),"[file=") = 0 then
sw_strfootjs = ""
else
sw_strfootjs = mid(strtemp,7,len(strtemp)-7)
end if
获取分页模版
arytemp = split(arytemplate(1),",")
if arytemp(0) <> "" then strtemp = replace(arytemp(0),"[page=","")
if isnumeric(strtemp) then strtemp = cint(strtemp)
if strtemp <> sw_intpageinnone then
if isnumeric(strtemp) then strtemp = cint(strtemp)
sw_intshowpagepos = strtemp
strtemp = arytemp(1)
if strtemp <> "" then strtemp = replace(strtemp,"]","")
if isnumeric(strtemp) then strtemp = cint(strtemp)
sw_intshowpagetype = strtemp
else
sw_intshowpagepos = sw_intpageshowinnone
end if
获取数据显示模版
arytemp = split(arytemplate(2),"|")
for i = 0 to ubound(arytemp)
strtemp = lcase(trim(arytemp(i)))
select case i
case 0 获取并设置显示宽度
if strtemp <> "" then strtemp = replace(strtemp,"[data=","")
sw_strshowwidth = strtemp
case 1 获取数据显示方式
if isnumeric(strtemp) then strtemp = cint(strtemp)
sw_intshowtype = strtemp
case 2
if strtemp <> "" then strtemp = replace(strtemp,"]","")
arytemp1 = split(trim(strtemp),"#")
if ubound(arytemp1) >= 3 then
sw_aryfldnote = split(arytemp1(0),",")
sw_aryfldalign = split(arytemp1(1),",")
sw_aryfldwidth = split(arytemp1(2),",")
sw_aryfldlink = split(arytemp1(3),",")
end if
end select
next
end if
if strerror = "" then
sw_blntemplate = true
else
sw_strerror = sw_strerror & "
sw_strerror = sw_strerror & "
end if
end property
*****************************************
类型： 属性
目的： 设定或显示url。
输入： a_strurl: 需要分页的文件地址。
返回： 需要分页的文件地址。
*****************************************
public property let url(a_strurl)
dim strerror,objfso
sw_blngeturl = false
if trim(a_strurl)="" then
strerror = "
非法的url地址"
else
set objfso = createobject("scripting.filesystemobject")
if objfso.fileexists(server.mappath(a_strurl)) then
sw_strurl = a_strurl
else
strerror = strerror & "
你能确定文件 " & a_strurl & " 存在么？"
end if
set objfso = nothing
end if
if strerror = "" then
sw_blngeturl = true
else
sw_strerror = sw_strerror & "
sw_strerror = sw_strerror & "
end if
end property
*****************************************
类型： 属性
目的： 设置显示标题时单元格的宽度
输入： a_strtlewidth:单元格宽度字符串
返回： 无
*****************************************
public property let tlewidth(a_strwidth)
sw_strtlewidth = a_strwidth
end property
*****************************************
类型： 属性
目的： 设置显示标题时单元格分隔线的类型
输入： a_intbdtype 单元格分隔线的类型
返回： 无
*****************************************
public property let tlebdtype(a_intbdtype)
sw_inttlebdtype = a_intbdtype
end property
*****************************************
类型： 过程
目的： 统计总记录数、计算总页数
输入： 无
返回： 无
*****************************************
sub init()
dim intpostion,strerror,i,objrstemp,lngtotalrecord
if not (sw_blnconn and sw_blnopenrs and sw_blnpagesize and sw_blngeturl) then
call showerrors()
exit sub
end if
if sw_objrs.eof and sw_objrs.bof then
strerror = strerror & "
库中无所有记录"
end if
计算总计录数
set objrstemp = sw_objconn.execute("select * from sw_reccount")
lngtotalrecord = clng(objrstemp("sw_reccount").value)
sw_lngtotalrecord = lngtotalrecord
if (sw_lngtotalrecord<=2147483647 and sw_lngtotalrecord>=-2147483648) then
sw_lngtotalrecord = clng(sw_lngtotalrecord)
else
strerror = strerror & "
分页初始化时：总记录数溢出"
end if
if sw_lngtotalrecord <=0 then strerror = strerror & "
分页初始化时：总记录数小于零"
计算总页数
if sw_lngtotalrecord mod sw_intpagesize = 0 then
sw_lngtotalpage = clng(sw_lngtotalrecord ＼ sw_intpagesize * -1)*-1
else
sw_lngtotalpage = clng(sw_lngtotalrecord ＼ sw_intpagesize * -1)*-1 + 1
end if
获取页数
sw_lngpageno = trim(request.querystring("pageno"))
if sw_lngpageno = "" then sw_lngpageno = trim(request.form("pageno"))
if sw_lngpageno = "" then sw_lngpageno = 1
如果没有选择第几页，则默认显示第一页
if sw_lngpageno <> "" and isnumeric(sw_lngpageno) then
if (sw_lngpageno <= 2147483647 and sw_lngpageno>=-2147483648) then
sw_lngpageno = clng(sw_lngpageno)
else
strerror = strerror & "
页数溢出，请检查！"
end if
if (sw_lngpageno<=0) then strerror = strerror & "
页数只能是正整数！"
else
strerror = strerror & "
你确信此页数 " & sw_lngpageno & " 存在？"
end if
if (sw_lngpageno > sw_lngtotalpage and sw_lngtotalpage<>0) then sw_lngpageno = sw_lngtotalpage
sw_objrs.pagesize = sw_intpagesize
sw_objrs.absolutepage = sw_lngpageno
intpostion = instrrev(sw_strurl,"?")
sw_strformaction = sw_strurl
if intpostion > 0 then
sw_strurl = sw_strurl & "&pageno="
else
sw_strurl = sw_strurl & "?pageno="
end if
if trim(sw_strfields) = "" then
for i = 0 to sw_objrs.fields.count-1
sw_strfields = sw_strfields & sw_objrs(i).name & ","
next
end if
sw_strfields = lcase("," & trim(sw_strfields))
if isarray(sw_aryfldname) then
for i = lbound(sw_aryfldname) to ubound(sw_aryfldname)
if instr(sw_strfields,"," & sw_aryfldname(i) & ",") = 0 then strerror = strerror & "
字段名 " & sw_aryfldname(i) & " 正确吗？"
next
if (isarray(sw_aryfldnote) and ubound(sw_aryfldname)>ubound(sw_aryfldnote)) then strerror = strerror & "
字段相应中文说明项目不能小于字段个数"
if (isarray(sw_aryfldwidth) and ubound(sw_aryfldname)>ubound(sw_aryfldwidth)) then strerror = strerror & "
字段相应宽度项目不能小于字段个数"
if (isarray(sw_aryfldalign) and ubound(sw_aryfldname)>ubound(sw_aryfldalign)) then strerror = strerror & "
字段数据相应对齐方式项目不能小于字段个数"
if (isarray(sw_aryfldlink) and ubound(sw_aryfldname)>ubound(sw_aryfldlink)) then strerror = strerror & "
字段数据相应文件链接项目不能小于字段个数"
end if
if trim(strerror) = "" then
sw_blninit = true
else
sw_strerror = sw_strerror & "
sw_strerror = sw_strerror & "
end if
response.write(sw_strheadjs & vbcrlf)
end sub
*****************************************
类型： 过程
目的： 显示分页信息
输入： 无
返回： 无
*****************************************
private sub pages()
dim strpages,k,inttemp,inttemp1
if not(sw_blninit) then call showerrors()
if sw_lngtotalpage = 1 then exit sub
response.write("
| " & vbcrlf) response.write("
response.write(" | " & vbcrlf)
end sub
*****************************************
类型： 过程
目的： 显示分页数据
输入： 无
返回： 无
*****************************************
sub show()
dim i,j
if not(sw_blninit) then call showerror()
j = 0
if sw_objrs.eof and sw_objrs.bof then
response.write("库中无所有记录
")
response.end
else
if sw_intshowpagepos = sw_intpageinall or sw_intshowpagepos = sw_intpageintop then call pages()
空行
response.write("
select case sw_intshowtype
case sw_inthorizontalview 横排
do while (not sw_objrs.eof and j
| " & vbcrlf & "") if (isarray(sw_aryfldnote)) then response.write(sw_aryfldnote(i) & vbcrlf) else response.write(sw_aryfldname(i) & vbcrlf) end if response.write(" | " & vbcrlf & "
空行
response.write("
sw_objrs.movenext
j = j + 1
loop
case sw_intverticalview 竖排
if sw_inttlebdtype = sw_inttlenoborder then
response.write("
| " & vbcrlf) response.write("
|
| if (isarray(sw_aryfldwidth)) then response.write(" width=""" & sw_aryfldwidth(i) & """>") |
| if (isarray(sw_aryfldalign)) then response.write(" align=""" & sw_aryfldalign(i) & """ width=""" & sw_aryfldwidth(i) & """>") |
response.write("
case else
response.write("
你还没设置数据的显示方式?或你的设置的显示方式swpage不支持！
")
response.end
end select
if sw_intshowpagepos = sw_intpageinall or sw_intshowpagepos = sw_intpageinbottom then call pages()
response.write( sw_strfootjs & vbcrlf)
end if
end sub
*****************************************
类型： 过程
目的： 显示分页类中出现的错误信息
输入： 无
返回： 无
*****************************************
private sub showerrors()
if sw_strerror <> "" then
sw_strerror = "
| swpage分页类错误信息 |
response.write(sw_strerror)
response.end
end if
end sub
*****************************************
类型： 过程
目的： 释放资源
输入： 无
返回： 无
*****************************************
sub close()
set sw_objrs = nothing
set sw_objconn = nothing
end sub
end class
%>
三、类的应用代码
<%option explicit
dim strstarttime,intusetime,clspage,strshowtemp
strstarttime = timer()
%>
<%
分页显示的位置：sw_intpageinall,sw_intpageintop,sw_intpageinbottom
页数的显示模式：sw_intshowchinese,sw_intshowenglish,sw_intshowcharacter,sw_intshowimage
页面显示模板设置 <文件头> + <页数设置：分页显示模式,页数显示的位置> + <数据显示> + <页数显示> + <文件尾>如果某项不必，只要设置成<>就行了，不过<文件头>和<文件尾是必须的>
设置分页文件头,能直接跟html代码({code=....})
strshowtemp = "[file=head.js] + "
设置分页条显示信息
strshowtemp = strshowtemp & "[page=" & sw_intpageinall & "," & sw_intshowcharacter & "] + "
########设置数据模版信息
strshowtemp = strshowtemp & "[data="
设置显示的宽度
strshowtemp = strshowtemp & "90%|"
数据显示方式，竖排、横排
strshowtemp = strshowtemp & sw_intverticalview & "|"
需要显示的字段的相应的中文说明
strshowtemp = strshowtemp & "编号,用户名,生日#"
需要显示的字段的相应的对齐方式
strshowtemp = strshowtemp & "left,center,right#"
需要显示的字段的相应的宽度
strshowtemp = strshowtemp & "30%,30%,30%#"
需要显示的字段的相应的链接文件名
strshowtemp = strshowtemp & "list.asp,,,"
strshowtemp = strshowtemp & "] + "
#########数据模版结束
#########设置文件尾
strshowtemp = strshowtemp & "[file=foot.js]"
set clspage = new swpage
clspage.conn = "driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../db/datatest.mdb")
clspage.sql = "select * from datatest"
clspage.pagesize = 10
clspage.url = "pages.asp"
clspage.fieldlist = "id,field1,field2"
clspage.template = strshowtemp 显示模版
clspage.init()
clspage.show
clspage.close
set clspage = nothing
intusetime = formatnumber((timer()-strstarttime)*1000,3)
response.write("
%>
上一篇: 
下一篇: 
文章来自: 
引用通告: 
Tags: 
相关日志:
评论: 0 | 引用: 0 | 查看次数: 2783
发表评论
Category
About Me
Name:Baihezi
QQ:12631176
yongchuang8257@163.com
http://www.2369.net
Recent Comments
这个我做过这个成绩系统不能导出导入成绩厉害了不要跟旁人抱怨，免得怎么死的都不知道！对。你好，请问1.0和2.0资源被删了吗，下载不了。大哥，你一年就写一篇东西啊。</br>换 </br>啊我把con.asp和dbcon.asp中的serv...谢谢支持!兄弟 佩服你 支持你！ 敢于把理想变为现实的强者!...
Powered By PJBlog3 V3.2.9.518 CopyRight 2005 - 2011, 白河子工作室-ASP成绩查询系统、在线报名系统 xhtml | css
Processed in 0.703125 second(s) , 6 queries , Nuvola Style For PJBlog2 Design By PuterJam 
豫ICP备15015504号-1