叶子asp分页类
名称: 叶子asp分页类
name: showopage(vbs class)
rcsfile: readme.txt
revision: 0.12.20051114.f
author: yehe(叶子)
released: 2005-11-14 09:40:13
descript: asp分页类,支持access/mssql/mysql/sqlite
contact: qq:311673 msn:myehe@msn.com gt:mmyehe@gmail.com
website: http://www.yehe.org http://www.showo.com
------------------------------------------------
licenses:
本程序遵循gpl协议.
协议原文地址:http://www.gnu.org/licenses/licenses.cn.html#gpl
------------------------------------------------
thanks:
可洛: 感谢mssql分页核心部分
arbiter: 感谢部分分页思路
才子: 感谢推广
foxty: 感谢分页思路
------------------------------------------------
install:
1.具体调用方法可以看demo的asp文档.
2.mssql存储过程版的请先执行sp_util_page.sql文件添加存储过程.
3.sp调用方法:
exec sp_util_page 440000,4,10,''mid'',''mid,ip1,ip2,country,city'',''tbtemppage'',''1=1'',''mid asc''
记录条数(已有值:序外部赋值,0执行count),当前页数,每页记录数,主键,字段,表,条件(不需要where),排序(不需要order by,需要asc和desc字符)
如果不按主键排序,则排序赋值里面不能出现主键字符.
------------------------------------------------
release:
0.12
1.取text字段类型bug修正
2.存储过程bug修正
3.代码修正
0.11
1.存储过程加了非主键排序下的分页
2.去掉了mssql的非存储过程版分页
0.10：
1.条件简化
2.存储过程优化
0.09：
1.排序判断部分优化
0.08：
1.vbs bug修正
0.07：
1.bug修正，包括vbs类和js
0.06beta：
1.js浏览器兼容优化
2.类几个函数的bug修正
0.05beta：
1.全面代码优化，mysql/sqlite支持
2.参数输入方式修改
0.04beta：
1.做到调用代码一样适应多种数据库集成分页
2.js去掉了表单，支持静态提交
3.加上了存储过程
0.03beta：
1.公开发布的显示为0.02，其实为0.03，分为ac版类，mssql版类发布
2.js的bug修正
3.写成了类，进一步方便调用
0.02beta：
1.加上对mssql的支持
2.封装成了函数版，方便调用
3.js文件的优化
0.01beta：
1.没有写成函数，只是找到了比较快的ac分页方法
2.分页样式用js显示
------------------------------------------------
file:
db/ip.mdb access测试数据库
db/ip mssql备份测试数据库
cls_vbspage.asp 分页类
cls_jspage.js js分页样式
sp_util_page.sql mssql存储过程
demoac.asp ac分页调用示范
demomssql.asp mssql调用示范
demomssql_sp.asp mssql存储过程调用示范
cls_vbspage.asp
<%
class cls_vbspage
private oconn ''连接对象
private ipagesize ''每页记录数
private spagename ''地址栏页数参数名
private sdbtype
''数据库类型,ac为access,mssql为sql server2000存储过程版,mysql为mysql,pgsql为postgresql
private irectype ''记录总数(>0为另外取值再赋予或者固定值,0执行count设置存cookies,-1执行count不设置cookies)
private sjsurl ''cls_jspage.js的路径
private sfield ''字段名
private stable ''表名
private scondition ''条件,不需要where
private sorderby ''排序,不需要order by,需要asc或者desc
private spkey ''主键,必写
private ireccount
''================================================================
'' class_initialize 类的初始化
''================================================================
private sub class_initialize
ipagesize=10
spagename="page"
sdbtype="ac"
irectype=0
sjsurl=""
sfield=" * "
end sub
''================================================================
'' conn 得到数据库连接对象
''================================================================
public property set conn(byref value)
set oconn=value
end property
''================================================================
'' pagesize 设置每一页记录条数,默认10记录
''================================================================
public property let pagesize(byval intpagesize)
ipagesize=checknum(intpagesize,0,0,ipagesize,0)
end property
''================================================================
'' pagename 地址栏页数参数名
''================================================================
public property let pagename(byval strpagename)
spagename=iif(len(strpagename)<1,spagename,strpagename)
end property
''================================================================
'' dbtype 得到数据库类型
''================================================================
public property let dbtype(byval strdbtype)
sdbtype=ucase(iif(len(strdbtype)<1,sdbtype,strdbtype))
end property
''================================================================
'' rectype 取记录总数(>0为赋值或者固定值,0执行count设置存cookies,-1执行count不设置cookies适用于搜索)
''================================================================
public property let rectype(byval intrectype)
irectype=checknum(intrectype,0,0,irectype,0)
end property
''================================================================
'' jsurl 取得cls_jspage.js的路径
''================================================================
public property let jsurl(byval strjsurl)
sjsurl=strjsurl
end property
''================================================================
'' pkey 取得主键
''================================================================
public property let pkey(byval strpkey)
spkey=strpkey
end property
''================================================================
'' field 取得字段名
''================================================================
public property let field(byval strfield)
sfield=iif(len(strfield)<1,sfield,strfield)
end property
''================================================================
'' table 取得表名
''================================================================
public property let table(byval strtable)
stable=strtable
end property
''================================================================
'' condition 取得条件
''================================================================
public property let condition(byval strcondition)
s=strcondition
scondition=iif(len(s)>2," where "&s,"")
end property
''================================================================
'' orderby 取得排序
''================================================================
public property let orderby(byval strorderby)
s=strorderby
sorderby=iif(len(s)>4," order by "&s,"")
end property
''================================================================
'' reccount 修正记录总数
''================================================================
public property get reccount()
if irectype>0 then
i=irectype
elseif irectype=0 then
i=checknum(request.cookies("showopage")(spagename),1,0,0,0)
s=trim(request.cookies("showopage")("scond"))
if i=0 or scondition<>s then
i=oconn.execute("select count("&spkey&") from "&stable&" "&scondition,0,1)(0)
response.cookies("showopage")(spagename)=i
response.cookies("showopage")("scond")=scondition
end if
else
i=oconn.execute("select count("&spkey&") from "&stable&" "&scondition,0,1)(0)
end if
ireccount=i
reccount=i
end property
''================================================================
'' resultset 返回分页后的记录集
''================================================================
public property get resultset()
s=null
''记录总数
i=ireccount
''当前页
if i>0 then
ipagecount=abs(int(-abs(i/ipagesize)))''页数
ipagecurr=checknum(request.querystring(spagename),1,1,1,ipagecount)''当前页
select case sdbtype
case "mssql" ''sqlserver2000数据库存储过程版
set rs=server.createobject("adodb.recordset")
set cm=server.createobject("adodb.command")
cm.commandtype=4
cm.activeconnection=oconn
cm.commandtext="sp_util_page"
cm.parameters(1)=i
cm.parameters(2)=ipagecurr
cm.parameters(3)=ipagesize
cm.parameters(4)=spkey
cm.parameters(5)=sfield
cm.parameters(6)=stable
cm.parameters(7)=replace(scondition," where ","")
cm.parameters(8)=replace(sorderby," order by ","")
rs.cursorlocation=3
rs.locktype=1
rs.open cm
case "mysql" ''mysql数据库
resultset_sql="select "&sfield&" from "&stable&" "&scondition&" "&sorderby&" limit "&(ipagecurr-1)*ipagesize&","&ipagesize
set rs=oconn.execute(resultset_sql)
case else ''其他情况按最原始的方法处理(ac同理)
set rs = server.createobject ("adodb.recordset")
resultset_sql="select "&sfield&" from "&stable&" "&scondition&" "&sorderby
rs.open resultset_sql,oconn,1,1,&h0001
rs.absoluteposition=(ipagecurr-1)*ipagesize+1
end select
s=rs.getrows(ipagesize)
rs.close
set rs=nothing
end if
resultset=s
end property
''================================================================
'' class_terminate 类注销
''================================================================
private sub class_terminate()
if isobject(oconn) then oconn.close:set oconn=nothing
end sub
''================================================================
'' 输入:检查字符,是否有最小值,是否有最大值,最小值(默认数字),最大值
''================================================================
private function checknum(byval strstr,byval blnmin,byval blnmax,byval intmin,byval intmax)
dim i,s,imi,ima
s=left(trim(""&strstr),32):imi=intmin:ima=intmax
if isnumeric(s) then
i=cdbl(s)
i=iif(blnmin=1 and i
var s= new cls_jspage(<%=ireccount%>,<%=ipagesize%>,3,"s");
s.setpagese("<%=spagename%>=","");
s.setpageinput("<%=spagename%>");
s.seturl("");
s.setpagefrist("首页","<<");
s.setpageprev("上页","<");
s.setpagenext("下页",">");
s.setpagelast("尾页",">>");
s.setpagetext("[{$pagenum}]","第{$pagenum}页");
s.setpagetextf(" {$pagetextf} "," {$pagetextf} ");
s.setpageselect("{$pagenum}","第{$pagenum}页");
s.setpagecss("","","");
s.sethtml("共{$reccount}记录 页次{$page}/{$pagecount} 每页{$pagesize}条 {$pagefrist} {$pageprev} {$pagetext} {$pagenext} {$pagelast} {$pageinput} {$pageselect}");
s.write();
<%end sub
end class%>
cls_jspage.js
/**
*=================================================================
*name: 叶子js分页样式（showopage style with js）
*rcsfile: cls_jspage.js
*revision: 0.09
*author: yehe(叶子)
*released: 2005-05-12 23:00:15
*description: js分页样式，显示上一页下一页的翻页结果
*contact: qq:311673,msn:myehe@msn.com
*website: http://www.yehe.org,http://www.showo.com
*=================================================================
*/
function cls_jspage(ireccount,ipagesize,ipagenum,sname){
this.irc=this.formatnum(ireccount,1,0,0,0);//总记录条数
this.ips=this.formatnum(ipagesize,1,0,1,0);//每页记录数目
this.ipn=this.formatnum(ipagenum,0,0,0,0);//显示的前后页数,0为显示所有,负数为这么多页面一个跳转
this.sn=sname;//实例对象名
this.stpage="{$page}";//页数
this.stpagecount="{$pagecount}";//总页数
this.streccount="{$reccount}";//总记录数
this.stpagesize="{$pagesize}";//每页记录数
this.stpagefrist="{$pagefrist}";//首页
this.stpageprev="{$pageprev}";//上页
this.stpagenext="{$pagenext}";//下页
this.stpagelast="{$pagelast}";//尾页
this.stpagetext="{$pagetext}";//数字跳转
this.stpagetextf="{$pagetextf}";//数字跳转框架
this.stpageinput="{$pageinput}";//输入框跳转
this.stpageselect="{$pageselect}";//下拉菜单跳转
this.stpagenum="{$pagenum}";//数字页数
this.ipc=this.getpagecount();//得到页数
}
//输入 页数开始值，结尾值
cls_jspage.prototype.setpagese=function(spagestart,spageend){
var sps=spagestart,spe=spageend;
this.sps=(sps.length>0)?sps:"page=";
this.spe=(spe.length>0)?spe:"";
}
//输入 网址
cls_jspage.prototype.seturl=function(surl){
var s=surl;
this.url=(s.length>0)?s:""+document.location;
}
//输入 输入框&下拉框name值
cls_jspage.prototype.setpageinput=function(spageinput){
var spi=spageinput;
this.spi=(spi.length>0)?spi:"page";
}
//输入 语言 首页(disable,enale)
cls_jspage.prototype.setpagefrist=function(sdis,sen){
this.pf_d=sdis;
this.pf_e=sen;
}
//输入 语言 上页
cls_jspage.prototype.setpageprev=function(sdis,sen){
this.pp_d=sdis;
this.pp_e=sen;
}
//输入 语言 下页
cls_jspage.prototype.setpagenext=function(sdis,sen){
this.pn_d=sdis;
this.pn_e=sen;
}
//输入 语言 尾页
cls_jspage.prototype.setpagelast=function(sdis,sen){
this.pl_d=sdis;
this.pl_e=sen;
}
//输入 语言 数字跳转
cls_jspage.prototype.setpagetext=function(sdis,sen){
this.pt_d=sdis;//"[{$pagenum}]"
this.pt_e=sen;//"第{$pagenum}页"
}
//输入 语言 数字跳转外围模板
cls_jspage.prototype.setpagetextf=function(sdis,sen){
this.ptf_d=sdis;//" {$pagetextf} "
this.ptf_e=sen;//" {$pagetextf} "
}
//输入 语言 下拉菜单跳转
cls_jspage.prototype.setpageselect=function(sdis,sen){
this.ps_d=sdis;//"[{$pagenum}]"
this.ps_e=sen;//"第{$pagenum}页"
}
//输入 css
cls_jspage.prototype.setpagecss=function(scsspagetext,scsspageinput,scsspageselect){
this.cpt=scsspagetext;//数字跳转css
this.cpi=scsspageinput;//输入框跳转css
this.cps=scsspageselect;//下拉菜单跳转css
}
//输入 html模板
cls_jspage.prototype.sethtml=function(shtml){
this.html=shtml;//html模板
}
//计算页数
cls_jspage.prototype.getpagecount=function(){
var irc=this.irc,ips=this.ips;
var i=(irc%ips==0)?(irc/ips):(this.formatnum((irc/ips),1,0,0,0)+1);
return (i);
}
//取得模板页数和当前页数
cls_jspage.prototype.geturl=function(itype){
var s=this.url,sps=this.sps,spe=this.spe,stp=this.stpage,ipc=this.ipc;
var it=itype,i;
if (s.indexof(sps)==-1) {
s+=((s.indexof("?")==-1)?"?":"&")+sps+stp;
i=1;
}
else {
sreg="(\\s.*)"+this.formatreg(sps)+"(\\d*)"+this.formatreg(spe)+"(\\s.*|\\s*)";
var spindex=this.reg(s,sreg,"$3");
s=s.replace(sps+spindex+spe,sps+stp+spe);
i=this.formatnum(spindex,1,1,0,ipc);
}
s=this.reg(s,"(&+)","&");
s=this.reg(s,"(\\?&)","?");
return (it==0?s:i);
}
//页面跳转
cls_jspage.prototype.pagejump=function(){
var spl,spv,sp;
var su=this.geturl(0),ipi=this.geturl(1);
var spi=this.spi,stp=this.stpage,ipc=this.ipc;
spl=document.getelementsbyname(spi).length;
for (var i=0;i
name: showopage(vbs class)
rcsfile: readme.txt
revision: 0.12.20051114.f
author: yehe(叶子)
released: 2005-11-14 09:40:13
descript: asp分页类,支持access/mssql/mysql/sqlite
contact: qq:311673 msn:myehe@msn.com gt:mmyehe@gmail.com
website: http://www.yehe.org http://www.showo.com
------------------------------------------------
licenses:
本程序遵循gpl协议.
协议原文地址:http://www.gnu.org/licenses/licenses.cn.html#gpl
------------------------------------------------
thanks:
可洛: 感谢mssql分页核心部分
arbiter: 感谢部分分页思路
才子: 感谢推广
foxty: 感谢分页思路
------------------------------------------------
install:
1.具体调用方法可以看demo的asp文档.
2.mssql存储过程版的请先执行sp_util_page.sql文件添加存储过程.
3.sp调用方法:
exec sp_util_page 440000,4,10,''mid'',''mid,ip1,ip2,country,city'',''tbtemppage'',''1=1'',''mid asc''
记录条数(已有值:序外部赋值,0执行count),当前页数,每页记录数,主键,字段,表,条件(不需要where),排序(不需要order by,需要asc和desc字符)
如果不按主键排序,则排序赋值里面不能出现主键字符.
------------------------------------------------
release:
0.12
1.取text字段类型bug修正
2.存储过程bug修正
3.代码修正
0.11
1.存储过程加了非主键排序下的分页
2.去掉了mssql的非存储过程版分页
0.10：
1.条件简化
2.存储过程优化
0.09：
1.排序判断部分优化
0.08：
1.vbs bug修正
0.07：
1.bug修正，包括vbs类和js
0.06beta：
1.js浏览器兼容优化
2.类几个函数的bug修正
0.05beta：
1.全面代码优化，mysql/sqlite支持
2.参数输入方式修改
0.04beta：
1.做到调用代码一样适应多种数据库集成分页
2.js去掉了表单，支持静态提交
3.加上了存储过程
0.03beta：
1.公开发布的显示为0.02，其实为0.03，分为ac版类，mssql版类发布
2.js的bug修正
3.写成了类，进一步方便调用
0.02beta：
1.加上对mssql的支持
2.封装成了函数版，方便调用
3.js文件的优化
0.01beta：
1.没有写成函数，只是找到了比较快的ac分页方法
2.分页样式用js显示
------------------------------------------------
file:
db/ip.mdb access测试数据库
db/ip mssql备份测试数据库
cls_vbspage.asp 分页类
cls_jspage.js js分页样式
sp_util_page.sql mssql存储过程
demoac.asp ac分页调用示范
demomssql.asp mssql调用示范
demomssql_sp.asp mssql存储过程调用示范
cls_vbspage.asp
<%
class cls_vbspage
private oconn ''连接对象
private ipagesize ''每页记录数
private spagename ''地址栏页数参数名
private sdbtype
''数据库类型,ac为access,mssql为sql server2000存储过程版,mysql为mysql,pgsql为postgresql
private irectype ''记录总数(>0为另外取值再赋予或者固定值,0执行count设置存cookies,-1执行count不设置cookies)
private sjsurl ''cls_jspage.js的路径
private sfield ''字段名
private stable ''表名
private scondition ''条件,不需要where
private sorderby ''排序,不需要order by,需要asc或者desc
private spkey ''主键,必写
private ireccount
''================================================================
'' class_initialize 类的初始化
''================================================================
private sub class_initialize
ipagesize=10
spagename="page"
sdbtype="ac"
irectype=0
sjsurl=""
sfield=" * "
end sub
''================================================================
'' conn 得到数据库连接对象
''================================================================
public property set conn(byref value)
set oconn=value
end property
''================================================================
'' pagesize 设置每一页记录条数,默认10记录
''================================================================
public property let pagesize(byval intpagesize)
ipagesize=checknum(intpagesize,0,0,ipagesize,0)
end property
''================================================================
'' pagename 地址栏页数参数名
''================================================================
public property let pagename(byval strpagename)
spagename=iif(len(strpagename)<1,spagename,strpagename)
end property
''================================================================
'' dbtype 得到数据库类型
''================================================================
public property let dbtype(byval strdbtype)
sdbtype=ucase(iif(len(strdbtype)<1,sdbtype,strdbtype))
end property
''================================================================
'' rectype 取记录总数(>0为赋值或者固定值,0执行count设置存cookies,-1执行count不设置cookies适用于搜索)
''================================================================
public property let rectype(byval intrectype)
irectype=checknum(intrectype,0,0,irectype,0)
end property
''================================================================
'' jsurl 取得cls_jspage.js的路径
''================================================================
public property let jsurl(byval strjsurl)
sjsurl=strjsurl
end property
''================================================================
'' pkey 取得主键
''================================================================
public property let pkey(byval strpkey)
spkey=strpkey
end property
''================================================================
'' field 取得字段名
''================================================================
public property let field(byval strfield)
sfield=iif(len(strfield)<1,sfield,strfield)
end property
''================================================================
'' table 取得表名
''================================================================
public property let table(byval strtable)
stable=strtable
end property
''================================================================
'' condition 取得条件
''================================================================
public property let condition(byval strcondition)
s=strcondition
scondition=iif(len(s)>2," where "&s,"")
end property
''================================================================
'' orderby 取得排序
''================================================================
public property let orderby(byval strorderby)
s=strorderby
sorderby=iif(len(s)>4," order by "&s,"")
end property
''================================================================
'' reccount 修正记录总数
''================================================================
public property get reccount()
if irectype>0 then
i=irectype
elseif irectype=0 then
i=checknum(request.cookies("showopage")(spagename),1,0,0,0)
s=trim(request.cookies("showopage")("scond"))
if i=0 or scondition<>s then
i=oconn.execute("select count("&spkey&") from "&stable&" "&scondition,0,1)(0)
response.cookies("showopage")(spagename)=i
response.cookies("showopage")("scond")=scondition
end if
else
i=oconn.execute("select count("&spkey&") from "&stable&" "&scondition,0,1)(0)
end if
ireccount=i
reccount=i
end property
''================================================================
'' resultset 返回分页后的记录集
''================================================================
public property get resultset()
s=null
''记录总数
i=ireccount
''当前页
if i>0 then
ipagecount=abs(int(-abs(i/ipagesize)))''页数
ipagecurr=checknum(request.querystring(spagename),1,1,1,ipagecount)''当前页
select case sdbtype
case "mssql" ''sqlserver2000数据库存储过程版
set rs=server.createobject("adodb.recordset")
set cm=server.createobject("adodb.command")
cm.commandtype=4
cm.activeconnection=oconn
cm.commandtext="sp_util_page"
cm.parameters(1)=i
cm.parameters(2)=ipagecurr
cm.parameters(3)=ipagesize
cm.parameters(4)=spkey
cm.parameters(5)=sfield
cm.parameters(6)=stable
cm.parameters(7)=replace(scondition," where ","")
cm.parameters(8)=replace(sorderby," order by ","")
rs.cursorlocation=3
rs.locktype=1
rs.open cm
case "mysql" ''mysql数据库
resultset_sql="select "&sfield&" from "&stable&" "&scondition&" "&sorderby&" limit "&(ipagecurr-1)*ipagesize&","&ipagesize
set rs=oconn.execute(resultset_sql)
case else ''其他情况按最原始的方法处理(ac同理)
set rs = server.createobject ("adodb.recordset")
resultset_sql="select "&sfield&" from "&stable&" "&scondition&" "&sorderby
rs.open resultset_sql,oconn,1,1,&h0001
rs.absoluteposition=(ipagecurr-1)*ipagesize+1
end select
s=rs.getrows(ipagesize)
rs.close
set rs=nothing
end if
resultset=s
end property
''================================================================
'' class_terminate 类注销
''================================================================
private sub class_terminate()
if isobject(oconn) then oconn.close:set oconn=nothing
end sub
''================================================================
'' 输入:检查字符,是否有最小值,是否有最大值,最小值(默认数字),最大值
''================================================================
private function checknum(byval strstr,byval blnmin,byval blnmax,byval intmin,byval intmax)
dim i,s,imi,ima
s=left(trim(""&strstr),32):imi=intmin:ima=intmax
if isnumeric(s) then
i=cdbl(s)
i=iif(blnmin=1 and i
var s= new cls_jspage(<%=ireccount%>,<%=ipagesize%>,3,"s");
s.setpagese("<%=spagename%>=","");
s.setpageinput("<%=spagename%>");
s.seturl("");
s.setpagefrist("首页","<<");
s.setpageprev("上页","<");
s.setpagenext("下页",">");
s.setpagelast("尾页",">>");
s.setpagetext("[{$pagenum}]","第{$pagenum}页");
s.setpagetextf(" {$pagetextf} "," {$pagetextf} ");
s.setpageselect("{$pagenum}","第{$pagenum}页");
s.setpagecss("","","");
s.sethtml("共{$reccount}记录 页次{$page}/{$pagecount} 每页{$pagesize}条 {$pagefrist} {$pageprev} {$pagetext} {$pagenext} {$pagelast} {$pageinput} {$pageselect}");
s.write();
<%end sub
end class%>
cls_jspage.js
/**
*=================================================================
*name: 叶子js分页样式（showopage style with js）
*rcsfile: cls_jspage.js
*revision: 0.09
*author: yehe(叶子)
*released: 2005-05-12 23:00:15
*description: js分页样式，显示上一页下一页的翻页结果
*contact: qq:311673,msn:myehe@msn.com
*website: http://www.yehe.org,http://www.showo.com
*=================================================================
*/
function cls_jspage(ireccount,ipagesize,ipagenum,sname){
this.irc=this.formatnum(ireccount,1,0,0,0);//总记录条数
this.ips=this.formatnum(ipagesize,1,0,1,0);//每页记录数目
this.ipn=this.formatnum(ipagenum,0,0,0,0);//显示的前后页数,0为显示所有,负数为这么多页面一个跳转
this.sn=sname;//实例对象名
this.stpage="{$page}";//页数
this.stpagecount="{$pagecount}";//总页数
this.streccount="{$reccount}";//总记录数
this.stpagesize="{$pagesize}";//每页记录数
this.stpagefrist="{$pagefrist}";//首页
this.stpageprev="{$pageprev}";//上页
this.stpagenext="{$pagenext}";//下页
this.stpagelast="{$pagelast}";//尾页
this.stpagetext="{$pagetext}";//数字跳转
this.stpagetextf="{$pagetextf}";//数字跳转框架
this.stpageinput="{$pageinput}";//输入框跳转
this.stpageselect="{$pageselect}";//下拉菜单跳转
this.stpagenum="{$pagenum}";//数字页数
this.ipc=this.getpagecount();//得到页数
}
//输入 页数开始值，结尾值
cls_jspage.prototype.setpagese=function(spagestart,spageend){
var sps=spagestart,spe=spageend;
this.sps=(sps.length>0)?sps:"page=";
this.spe=(spe.length>0)?spe:"";
}
//输入 网址
cls_jspage.prototype.seturl=function(surl){
var s=surl;
this.url=(s.length>0)?s:""+document.location;
}
//输入 输入框&下拉框name值
cls_jspage.prototype.setpageinput=function(spageinput){
var spi=spageinput;
this.spi=(spi.length>0)?spi:"page";
}
//输入 语言 首页(disable,enale)
cls_jspage.prototype.setpagefrist=function(sdis,sen){
this.pf_d=sdis;
this.pf_e=sen;
}
//输入 语言 上页
cls_jspage.prototype.setpageprev=function(sdis,sen){
this.pp_d=sdis;
this.pp_e=sen;
}
//输入 语言 下页
cls_jspage.prototype.setpagenext=function(sdis,sen){
this.pn_d=sdis;
this.pn_e=sen;
}
//输入 语言 尾页
cls_jspage.prototype.setpagelast=function(sdis,sen){
this.pl_d=sdis;
this.pl_e=sen;
}
//输入 语言 数字跳转
cls_jspage.prototype.setpagetext=function(sdis,sen){
this.pt_d=sdis;//"[{$pagenum}]"
this.pt_e=sen;//"第{$pagenum}页"
}
//输入 语言 数字跳转外围模板
cls_jspage.prototype.setpagetextf=function(sdis,sen){
this.ptf_d=sdis;//" {$pagetextf} "
this.ptf_e=sen;//" {$pagetextf} "
}
//输入 语言 下拉菜单跳转
cls_jspage.prototype.setpageselect=function(sdis,sen){
this.ps_d=sdis;//"[{$pagenum}]"
this.ps_e=sen;//"第{$pagenum}页"
}
//输入 css
cls_jspage.prototype.setpagecss=function(scsspagetext,scsspageinput,scsspageselect){
this.cpt=scsspagetext;//数字跳转css
this.cpi=scsspageinput;//输入框跳转css
this.cps=scsspageselect;//下拉菜单跳转css
}
//输入 html模板
cls_jspage.prototype.sethtml=function(shtml){
this.html=shtml;//html模板
}
//计算页数
cls_jspage.prototype.getpagecount=function(){
var irc=this.irc,ips=this.ips;
var i=(irc%ips==0)?(irc/ips):(this.formatnum((irc/ips),1,0,0,0)+1);
return (i);
}
//取得模板页数和当前页数
cls_jspage.prototype.geturl=function(itype){
var s=this.url,sps=this.sps,spe=this.spe,stp=this.stpage,ipc=this.ipc;
var it=itype,i;
if (s.indexof(sps)==-1) {
s+=((s.indexof("?")==-1)?"?":"&")+sps+stp;
i=1;
}
else {
sreg="(\\s.*)"+this.formatreg(sps)+"(\\d*)"+this.formatreg(spe)+"(\\s.*|\\s*)";
var spindex=this.reg(s,sreg,"$3");
s=s.replace(sps+spindex+spe,sps+stp+spe);
i=this.formatnum(spindex,1,1,0,ipc);
}
s=this.reg(s,"(&+)","&");
s=this.reg(s,"(\\?&)","?");
return (it==0?s:i);
}
//页面跳转
cls_jspage.prototype.pagejump=function(){
var spl,spv,sp;
var su=this.geturl(0),ipi=this.geturl(1);
var spi=this.spi,stp=this.stpage,ipc=this.ipc;
spl=document.getelementsbyname(spi).length;
for (var i=0;i
| id 标题 内容(显示前20个字) 时间 <% dim ors set ors=new cls_vbspage ''创建对象 set ors.conn=conn ''得到数据库连接对象 with ors .pagesize=13 ''每页记录条数 .pagesize=13 ''每页记录条数 .pagename="pages" ''cookies名称 .dbtype="mssql" ''数据库类型,ac为access,mssql为sqlserver2000存储过程版,mysql为mysql,pgsql为postgresql .rectype=0 ''记录总数(>0为另外取值再赋予或者固定值,0执行count设置存cookies,-1执行count不设置cookies) .jsurl="" ''cls_jspage.js的路径 .pkey="mid" ''主键 .field="mid,ip2,country,city" .table="tbtemppage" .condition="" ''条件,不需要where .orderby="mid asc" ''排序,不需要order by,需要asc或者desc end with ireccount=ors.reccount()''记录总数 irs=ors.resultset() ''返回resultset if ireccount<1 then%> |
| 暂无记录 <% else for i=0 to ubound(irs,2)%> |
| <%endtime=timer()%> 本页面执行时间：<%=formatnumber((endtime-startime)*1000,3)%>毫秒 <% irs=null ors=null set ors=nothing %> |
ASP技巧