叶子asp分页类

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了叶子asp分页类，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含13775字，纯文字阅读大概需要20分钟。

内容图文

名称: 叶子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.gxlsystem.com
------------------------------------------------
Licenses:
本程序遵循GPL协议.
协议原文地址:http://www.gxlsystem.com
*WebSite:  http://www.gxlsystem.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<sPL;i++) {
  sPV=document.getElementsByName(sPI)[i].value;
  sP=this.FormatNum(sPV,1,1,0,iPC);
  if (sP>0) {
   location.href=sU.replace(sTP,sP);
   break;
  }
 }
}
//输出
Cls_jsPage.prototype.Write=function(){
 var sU=this.getUrl(0),iPI=this.getUrl(1);
 var sN=this.sN,sPI=this.sPI;
 var iPC=this.iPC,iPN=this.iPN;;
 var iRC=this.iRC,iPS=this.iPS;
 var PF_D=this.PF_D,PF_E=this.PF_E;
 var PP_D=this.PP_D,PP_E=this.PP_E;
 var PN_D=this.PN_D,PN_E=this.PN_E;
 var PL_D=this.PL_D,PL_E=this.PL_E;
 var PT_D=this.PT_D,PT_E=this.PT_E;
 var PTF_D=this.PTF_D,PTF_E=this.PTF_E;
 var PS_D=this.PS_D,PS_E=this.PS_E;
 var CPT=this.CPT,CPI=this.CPI;
 var CPS=this.CPS,iPN=this.iPN;
 var s=this.Html;
 sTPage=this.sTPage;
 sTPageCount=this.sTPageCount;
 sTRecCount=this.sTRecCount;
 sTPageSize=this.sTPageSize;
 sTPFrist=this.sTPageFrist;
 sTPPrev=this.sTPagePrev;
 sTPNext=this.sTPageNext;
 sTPLast=this.sTPageLast;
 sTPText=this.sTPageText;
 sTPTextF=this.sTPageTextF;
 sTPInput=this.sTPageInput;
 sTPSelect=this.sTPageSelect;
 sTPageNum=this.sTPageNum;
 var PrevP=this.FormatNum((iPI-1),1,1,1,iPC),NextP=this.FormatNum((iPI+1),1,1,1,iPC);
 var FU,PU,NU,LU;
 var s1="<span class=\""+CPT+"\"><A href=\"",s2="\">",s3="</A></span>";
 var s4="<span class=\""+CPT+"\">",s5="</span>";
 if (iPI<=1&&iPC<=1) {
  FU=s4+PF_D+s5;
  PU=s4+PP_D+s5;
  NU=s4+PN_D+s5;
  LU=s4+PL_D+s5;
 }
 else if (iPI==1&&iPC>1) {
  FU=s4+PF_D+s5;
  PU=s4+PP_D+s5;
  NU=s1+sU.replace(sTPage,NextP)+s2+PN_E+s3;
  LU=s1+sU.replace(sTPage,iPC)+s2+PL_E+s3;
 }
 else if (iPI==iPC) {
  FU=s1+sU.replace(sTPage,1)+s2+PF_E+s3;
  PU=s1+sU.replace(sTPage,PrevP)+s2+PP_E+s3;
  NU=s4+PN_D+s5;
  LU=s4+PL_D+s5;
 }
 else {
  FU=s1+sU.replace(sTPage,1)+s2+PF_E+s3;
  PU=s1+sU.replace(sTPage,PrevP)+s2+PP_E+s3;
  NU=s1+sU.replace(sTPage,NextP)+s2+PN_E+s3;
  LU=s1+sU.replace(sTPage,iPC)+s2+PL_E+s3;
 }
 var PageStart,PageEnd;
 if (iPN<0) {
  iPN=Math.abs(iPN);
  PageStart=(iPI%iPN==0)?(iPI/iPN):(this.FormatNum((iPI/iPN),1,0,0,0));
  PageStart=(PageStart*iPN==iPI)?((PageStart-1)*iPN+1):(PageStart*iPN+1);
  PageEnd=this.FormatNum(PageStart+iPN,0,1,0,iPC)
 }
 else if (iPN==0) {
  PageStart=1;
  PageEnd=iPC;
 }
 else {
  PageStart=this.FormatNum((iPI-iPN),1,0,1,0);
  PageEnd=this.FormatNum((PageStart+iPN*2),0,1,0,iPC);
  PageStart=(PageEnd==iPC)?this.FormatNum((PageEnd-iPN*2),1,0,1,0):PageStart;
 }
 var PSelect="",PText="",PInput="",p;
 if (iPC>=1) {
  PSelect="<Select class=\""+CPS+"\" name=\""+sPI+"\" onChange=\""+sN+".PageJump()\">";
  PInput="<Input class=\""+CPI+"\" type=\"text\" name=\""+sPI+"\" size=\"5\" maxlength=\"10\" onkeydown=\"if (event.keyCode==13) "+sN+".PageJump()\">";
  for (var i=PageStart;i<=PageEnd;i++) {
   if (i!=iPI) {
    p=s1+sU.replace(sTPage,i)+s2+PT_E.replace(sTPageNum,i)+s3;
    PText+=PTF_E.replace(sTPTextF,p);
    PSelect+="<Option value=\""+i+"\">"+PS_E.replace(sTPageNum,i)+"</Option>";
   }
   else {
    p=s4+PT_D.replace(sTPageNum,i)+s5;
    PText+=PTF_D.replace(sTPTextF,p);
    PSelect+="<Option Selected=\"Selected\">"+PS_D.replace(sTPageNum,i)+"</Option>";
   }
  }
  PSelect+="</Select>";
 }
 s=s.replace(sTPage,iPI);
 s=s.replace(sTPageCount,iPC);
 s=s.replace(sTRecCount,iRC);
 s=s.replace(sTPageSize,iPS);
 s=s.replace(sTPFrist,FU);
 s=s.replace(sTPPrev,PU);
 s=s.replace(sTPNext,NU);
 s=s.replace(sTPLast,LU);
 s=s.replace(sTPText,PText);
 s=s.replace(sTPInput,PInput);
 s=s.replace(sTPSelect,PSelect);
 document.write (s);
}
//输入：欲格式化字符，是否有最小值（0表示没有,1表示有），是否有最大值，最小值（默认值），最大值
Cls_jsPage.prototype.FormatNum=function(sNum,bMin,bMax,iMinNum,iMaxNum){
 var i,iN,sN=""+sNum,iMin=iMinNum,iMax=iMaxNum;
 if (sN.length>0) {
  iN=parseInt(sN,10);
  i=(isNaN(iN))?iMin:iN;
  i=(i<iMin&&bMin==1)?iMin:i;
  i=(i>iMax&&bMax==1)?iMax:i;
 }
 else {
  i=iMin;
 }
 return (i);
}
//输入：欲正则字符，正则表达式，替换后字符
Cls_jsPage.prototype.Reg=function(sStr,sReg,sRe){
 var s="",sS=sStr,sR=sReg,sRe=sRe;
 if ((sS.length>0)&&(sR.length>0)) {
  eval("re=/"+sR+"/gim;");
  s=sS.replace(re,sRe);
 }
 return (s);
}
//格式化正则中的特殊字符
Cls_jsPage.prototype.FormatReg=function(sReg){
 var s="",sR=sReg;
 var sF=new Array ("/",".","+","[","]","{","}","$","^","?","*");
 if (sR.length>0) {
  for (var i=0;i<=sF.length;i++) {
   sR=sR.replace(sF[i],"\\"+sF[i]);
  }
  s="("+sR+")";
 }
 return (s);
}
demoAC.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Cls_vbsPage.asp"-->
<%
''-----------------------------------------------------------------------------------------------
On Error Resume Next
DIM startime,endtime
''统计执行时间
startime=timer()
''连接数据库
DIM Db,Conn,Rs
Db = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/IP.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open Db
''-----------------------------------------------------------------------------------------------
%>
<html>
<head>
<title>叶子ASP分页类-access调用示范</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
table {  font-size: 12px}
a {  font-size: 12px; color: #000000; text-decoration: none}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="760" border="0" cellspacing="2" cellpadding="2" align="center" height="30">
 <tr> 
   <td> </td>
 </tr>
</table>
<table width="760" border="1" cellspacing="0" cellpadding="4" align="center" bordercolordark="#FFFFFF" bordercolorlight="#CCCCCC">
 <tr align="center"> 
   <td width="20">ID</td>
   <td>标题</td>
   <td>内容(显示前20个字)</td>
   <td>时间</td>
 </tr>
 <%
Dim ors
Set ors=new Cls_vbsPage ''创建对象
Set ors.Conn=conn  ''得到数据库连接对象
With ors
 .PageSize=13  ''每页记录条数
 .PageName="Pages" ''cookies名称
 .DbType="AC"
 ''数据库类型,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="dv_address"
 .Condition=""  ''条件,不需要where
 .OrderBy="MID DESC" ''排序,不需要order by,需要asc或者desc
End With
iRecCount=ors.RecCount()''记录总数
iRs=ors.ResultSet()  ''返回ResultSet
If  iRecCount<1 Then%>
<tr bgcolor=""> 
   <td >暂无记录</td>    
 </tr>
<%
Else     
   For i=0 To Ubound(iRs,2)%>
 <tr bgcolor="#FFFFFF"> 
   <td><%=iRs(0,i)%></td>
   <td><%=iRs(1,i)%></td>
   <td><%=left(iRs(2,i),20)%></td>
   <td><%=iRs(3,i)%></td>
 </tr><%
   Next 
End If
%>
</table>
<table width="760" border="0" cellspacing="2" cellpadding="2" align="center">
 <tr> 
   <td>
<%ors.ShowPage()%>
</td>
 </tr>  
</table> 
<table width="760" border="0" align="center" cellpadding="2" cellspacing="2">
 <tr> 
   <td align="center"> 
     <%endtime=timer()%>
     本页面执行时间：<%=FormatNumber((endtime-startime)*1000,3)%>毫秒</td>
 </tr>
</table>
</body>
</html>
<%
iRs=NULL
ors=NULL
Set ors=NoThing
%>
demoMSSQL.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Cls_vbsPage.asp"-->
<%
''-----------------------------------------------------------------------------------------------
On Error Resume Next
DIM startime,endtime
''统计执行时间
startime=timer()
''连接数据库
DIM Db,Conn,Rs
strSQLServerName = "(local)"      ''服务器名称或地址
strSQLDBUserName = "sa"           ''数据库帐号
strSQLDBPassword = "19811030"     ''数据库密码
strSQLDBName = "showoTemp"    ''数据库名称
Set Conn = Server.CreateObject("ADODB.Connection")
Db = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"
Conn.open Db
''-----------------------------------------------------------------------------------------------
%>
<html>
<head>
<title>叶子ASP分页类-mssql调用示范</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
table {  font-size: 12px}
a {  font-size: 12px; color: #000000; text-decoration: none}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="760" border="0" cellspacing="2" cellpadding="2" align="center" height="30">
 <tr> 
   <td> </td>
 </tr>
</table>
<table width="760" border="1" cellspacing="0" cellpadding="4" align="center" bordercolordark="#FFFFFF" bordercolorlight="#CCCCCC">
 <tr align="center"> 
   <td width="20">ID</td>
   <td>标题</td>
   <td>内容(显示前20个字)</td>
   <td>时间</td>
 </tr>
 <%
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%>
<tr bgcolor=""> 
   <td >暂无记录</td>    
 </tr>
<%
Else     
   For i=0 To Ubound(iRs,2)%>
 <tr bgcolor="#FFFFFF"> 
   <td><%=iRs(0,i)%></td>
   <td><%=iRs(1,i)%></td>
   <td><%=left(iRs(2,i),20)%></td>
   <td><%=iRs(3,i)%></td>
 </tr><%
   Next 
End If
%>
</table>
<table width="760" border="0" cellspacing="2" cellpadding="2" align="center">
 <tr> 
   <td>
<%ors.ShowPage()%>
</td>
 </tr>  
</table> 
<table width="760" border="0" align="center" cellpadding="2" cellspacing="2">
 <tr> 
   <td align="center"> 
     <%endtime=timer()%>
     本页面执行时间：<%=FormatNumber((endtime-startime)*1000,3)%>毫秒</td>
 </tr>
</table>
</body>
</html>
<%
iRs=NULL
ors=NULL
Set ors=NoThing
%>

内容总结

以上是互联网集市为您收集整理的叶子asp分页类全部内容，希望文章能够帮你解决叶子asp分页类所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---