服务器之家

服务器之家 > 正文

asp的通用数据分页类

时间:2019-10-21 10:24     来源/作者:asp代码网

通用数据分页类

通用分页类,以后写分页显示数据时就轻松多啦.直接调用此类,然后再Execute即可以取得当前页的所有数据.

此类所做的工作是只取得当前页的数据,和总页数和总记录数等等数据.

ASP代码:

  1. <%  
  2. '/*****************************分页显示类**************************  
  3. '/* 作者:哇哇鱼  
  4. '/* 日期:2004年11月18日  
  5. '/* 作用:取得某一页的数据并返回给外部  
  6. '/* 说明示例:  
  7. '/* Dim MyPage=New PageClass  
  8. '/* MyPage.Conn=Conn                '设置连接对象  
  9. '/* MyPage.PageSize=20                 '设置一页显示多少条数据 (默认为10条)  
  10. '/* MyPage.CurPage=2                   '设置当前要显示的页码  
  11. '/*''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
  12. '/* MyPage.TableName="Member"       '设置表名  
  13. '/* MyPage.Fields="ID,MemberName,MemberPass"   '设置显示字段列表  
  14. '/* MyPage.Condition="ID>100"          '设置查询条件  
  15. '/* MyPage.OrderBy="ID DESC"           '设置排序条件(一定要设置该属性)  
  16. '/* Set PageRs=MyPage.Execute          '返回当前第2页的数据(RecordSet对象),如果出错则返回Nothing值  
  17. '/*''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
  18. '/*'以上的定义也可以用以下的方法:ExecuteBy("表名","字段列表","查询条件","排序条件")  
  19. '/* Set PageRs=MyPage.ExecuteBy("Member","ID,MemberName,MemberPass","ID>100","ID DESC")  
  20. '/*''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
  21. '/* PageCount=MyPage.PageCount         '返回页码总数  
  22. '/* RecordCount=MyPage.RecordCount     '返回记录总数  
  23. '/* NextPage=MyPage.NextPage           '返回下页的页码  
  24. '/* PrePage=MyPage.PrePage             '返回上一页的页码  
  25. '/*****************************************************************  
  26. Class PageClass  
  27.     Private Connection               '连接数据库的外部Connection对象  
  28.     Private Rs  
  29.     Private List_Fields  
  30.     Private Table_Name  
  31.     Private Query_Where  
  32.     Private OrderBy_SQL              '字段排序语句部分  
  33.     Private Page_Count               '返回当前查询的记录页总数  
  34.     Private Page_Size                '设置一页显示多少条的记录  
  35.     Private Cur_Page                 '设置当前的页码  
  36.     Private Record_Count             '返回当前查询的记录总数  
  37.  
  38.     '/****************设置Connection对象****************************  
  39.     Public Property Let Conn(ByRef ObjConn)  
  40.         Set Connection=ObjConn  
  41.     End Property  
  42.     Public Property Get Conn()  
  43.         Set Conn=Connection  
  44.     End Property  
  45.     '/****************End******************************************  
  46.  
  47.     '/****************设置查询SQL语句*******************************  
  48.     ''查询显示字段  
  49.     Public Property Let Fields(ByVal Value)  
  50.         List_Fields=Value  
  51.     End Property  
  52.     Public Property Get Fields()  
  53.         Fields=List_Fields  
  54.     End Property  
  55.     ''查询表名  
  56.     Public Property Let TableName(ByVal Value)  
  57.         Table_Name=Value  
  58.     End Property  
  59.     Public Property Get TableName()  
  60.         TableName=Table_Name  
  61.     End Property  
  62.     ''查询条件  
  63.     Public Property Let Condition(ByVal Value)  
  64.         Query_Where=Value  
  65.     End Property  
  66.     Public Property Get Condition()  
  67.         Condition=Query_Where  
  68.     End Property  
  69.     ''*****************排序部分********************************************  
  70.     ''Value 语不用写上Order By 。如: [object].OrderBy="ID Desc,PostTime Asc"  
  71.     Public Property Let OrderBy(ByVal Value)  
  72.         OrderBy_SQL=Value  
  73.     End Property  
  74.     Public Property Get OrderBy()  
  75.         OrderBy=OrderBy_SQL  
  76.     End Property  
  77.     '/****************End******************************************  
  78.  
  79.     '/****************返回当前查询结果的总页数***********************  
  80.     Public Property Get PageCount()  
  81.         PageCount=Page_Count  
  82.     End Property  
  83.     Public Property Get RecordCount()  
  84.         RecordCount=Record_Count  
  85.     End Property  
  86.     Public Property Get NextPage()  
  87.         If Cur_Page<Page_Count Then  
  88.             NextPage=Cur_Page+1  
  89.         Else  
  90.             NextPage=Page_Count  
  91.         End If  
  92.     End Property  
  93.     Public Property Get PrePage()  
  94.         If Cur_Page>1 Then  
  95.             PrePage=Cur_Page-1  
  96.         Else  
  97.             PrePage=Cur_Page  
  98.         End If  
  99.     End Property  
  100.     '/****************End******************************************  
  101.  
  102.     '/****************设置一页显示的记录数***************************  
  103.     Public Property Let PageSize(ByVal Value)  
  104.         If Not IsNumeric(Value) Or Value="" Then  
  105.             Value=10  
  106.         Else  
  107.             Value=Cint(Value)  
  108.         End If  
  109.         If Value<1 Then Value=10  
  110.         Page_Size=Value  
  111.     End Property  
  112.     Public Property Get PageSize()  
  113.         PageSize=Page_Size  
  114.     End Property  
  115.     ''设置当前的页码数**************************  
  116.     Public Property Let Page(ByVal Value)  
  117.         If Not IsNumeric(Value) Or Value="" Then  
  118.             Value=1  
  119.         Else  
  120.             Value=CLng(Value)  
  121.         End If  
  122.         If Value<1 Then Value=1  
  123.         Cur_Page=Value  
  124.     End Property  
  125.     Public Property Get Page()  
  126.         Page=Cur_Page  
  127.     End Property  
  128.     '/****************End******************************************  
  129.  
  130.     Private Sub Class_Initialize  
  131.     '初始化RecordSet对象  
  132.         Page_Size=10            '默认一页为10条数据  
  133.         CurPage=1                   '默认当前为第一页  
  134.         Record_Count=0  
  135.         Page_Count=0  
  136.     End Sub  
  137.  
  138.     Private Sub Class_Terminate  
  139.         Call CloseRecordSet  
  140.     End Sub  
  141.  
  142.     '/***关闭数据库的连接*******  
  143.     Private Sub CloseRecordSet  
  144.         On Error Resume Next  
  145.         If IsObject(Rs) Then  
  146.             Rs.Close  
  147.             Set Rs=Nothing  
  148.         End If  
  149.         On Error Goto 0  
  150.     End Sub  
  151.  
  152.     '/**********执行查询返回对应页码的数据***********************************************  
  153.     Public Function ExecuteBy(ByVal oTableName,ByVal oFields,ByVal oCondition,ByVal oOrderBy)  
  154.         Table_Name=oTableName  
  155.         List_Fields=oFields  
  156.         Query_Where=oCondtion  
  157.         OrderBy_SQL=oOrderBy  
  158.         Set ExecuteBy=Execute()  
  159.     End Function  
  160.     '查询并返回当前CurPage的页码记录  
  161.     Public Function Execute()  
  162.         Call CloseRecordSet  
  163.         On Error Resume Next  
  164.         Dim TSQL,TopMod,sWhere  
  165.         If Not IsObject(Connection) Or Table_Name="" Or OrderBy_SQL="" Then  
  166.             Set Execute=Nothing  
  167.             Record_Count=0  
  168.             Page_Count=0  
  169.             Exit Function  
  170.         End If  
  171.         If Trim(Query_Where)<>"" Then   
  172.             sWhere="Where "&Query_Where  
  173.         Else  
  174.             sWhere=""  
  175.         End If  
  176.         TSQL="Select Count(*) From ["&Table_Name&"] "&sWhere  
  177.         Record_Count=Connection.Execute(TSQL)(0)    '获取记录总数  
  178.         If Err Then  
  179.             Err.Clear  
  180.             Set Execute=Nothing  
  181.             Record_Count=0  
  182.             Page_Count=0  
  183.             Exit Function  
  184.         End If  
  185.         If Record_Count<1 Then  
  186.             Set Execute=Nothing  
  187.             Record_Count=0  
  188.             Page_Count=0  
  189.             Exit Function  
  190.         End If  
  191.         '取得页的总数  
  192.         If Record_Count Mod Page_Size <>0 Then  
  193.             TopMod=Record_Count Mod Page_Size  
  194.             Page_Count=Fix(Record_Count/Page_Size)+1  
  195.             If Cur_Page<Page_Count Then  
  196.                 TopMod=Page_Size  
  197.             End If  
  198.         Else  
  199.             TopMod=Page_Size  
  200.             Page_Count=Fix(Record_Count/Page_Size)  
  201.         End If  
  202.         If Cur_Page>Page_Count Then Cur_Page=Page_Count  
  203.         If Cur_Page<1 Then Cur_Page=1  
  204.         If Trim(List_Fields)="" Then List_Fields="*"  
  205.         TSQL="Select * From (Select Top "&TopMod&" * From (Select Top "&(Cur_Page*Page_Size)&" "&List_Fields&" From ["&Table_Name&"] "&sWhere&" Order By "&OrderBy_SQL&") Order By "&TransformOrder(OrderBy_SQL)&")Order By "&OrderBy_SQL  
  206.         Set Rs=Connection.Execute(TSQL)  
  207.         If Err Then  
  208.             Err.Clear  
  209.             Set Execute=Nothing  
  210.             Record_Count=0  
  211.             Page_Count=0  
  212.             Exit Function  
  213.         End If  
  214.         Set Execute=Rs  
  215.     End Function  
  216.  
  217.     '转换OrderBy的顺序 ASC->DESC   DESC->ASC  
  218.     Private Function TransformOrder(ByVal Value)  
  219.         If Value="" Then  
  220.             TransformOrder=""  
  221.             Exit Function  
  222.         End If  
  223.         Dim OrderArray,i,Result,ByString,Fields,InPos  
  224.         OrderArray=Split(Value,",")   '分解每个字段值  
  225.         For i=0 To Ubound(OrderArray)  
  226.             If OrderArray(i)<>"" Then  
  227.                 InPos=InStrRev(Trim(OrderArray(i))," ")  '找出排序的顺序  
  228.                 If InPos<1 Then  '如果找不到则是ASC排序  
  229.                     ByString="ASC"  
  230.                     Fields=OrderArray(i)+" "  
  231.                 Else  
  232.                     ByString=Trim(Mid(OrderArray(i),InPos+1))  
  233.                     Fields=Left(OrderArray(i),InPos)  
  234.                     If ByString<>"" Then  
  235.                         ByString=UCase(ByString)  
  236.                     Else  
  237.                         ByString="ASC"  
  238.                     End If  
  239.                 End If  
  240.                 ''转换排序  
  241.                 If ByString="ASC" Then  
  242.                     ByString="DESC"  
  243.                 Else  
  244.                     ByString="ASC"  
  245.                 End If  
  246.                 Result=Result+Fields+ByString+","  
  247.             End If  
  248.         Next  
  249.         If Result<>"" Then Result=Left(Result,Len(Result)-1)  
  250.         TransformOrder=Result  
  251.     End Function  
  252. End Class  
  253.  
  254.  
  255. '示例代码:  
  256. Sub Show_List  
  257.     Dim Page,PageRs  
  258.     Page=Request("Page")  
  259.     Dim MyPage  
  260.     Set MyPage=New PageClass  
  261.     MyPage.Conn=Conn  
  262.     MyPage.PageSize=20  
  263.     MyPage.Page=Page  
  264.     MyPage.TableName="table1"  
  265.     MyPage.Fields="*"  
  266.     MyPage.OrderBy="ID Asc"  
  267.     Set PageRs=MyPage.Execute  
  268.     'Set PageRs=MyPage.ExecuteBy("table1","*","","ID Asc")  
  269.     If PageRs Is Nothing Then Exit Sub  
  270.     Do Until PageRs.Eof  
  271.         Response.Write " <tr bgcolor=""#FDFDFD"" style=""cursor:hand"" onmouseover=""this.style.background='#F3F3F3'"" onmouseout=""this.style.background='#FDFDFD'"">"  
  272.         Response.Write "    <td height=""20""><div align=""center"">"&PageRs("ID")&"</div></td>"  
  273.         Response.Write "    <td>"&PageRs("aaaa")&"</td>"  
  274.         Response.Write "    <td><a href="""&PageRs("bbbb")&"""><font color='#000000'>"&PageRs("bbbb")&"</font></a></td>"  
  275.         Response.Write "    <td>"&PageRs("cccc")&"</td>"  
  276.         Response.Write "  </tr>"  
  277.         PageRs.MoveNext  
  278.     Loop  
  279.     PageRs.Close  
  280.     PageCount=MyPage.PageCount  
  281.     Page=MyPage.Page            '取得当前正确的页码数  
  282.     NextPage=MyPage.NextPage  
  283.     PrePage=MyPage.PrePage  
  284.     Set PageRs=Nothing  
  285.     Set MyPage=Nothing  
  286. End Sub  
  287. Show_List  
  288. %>  
标签:

相关文章

热门资讯

玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情 2019-06-22
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字 2019-06-05
超A是什么意思 你好a表达的是什么
超A是什么意思 你好a表达的是什么 2019-06-06
返回顶部