asp伪继承初探

原创 2008年09月30日 23:02:00

        在写一个分页类的时候,碰到一个很巧妙的类对象引用传递的问题,如果我这里解释是怎么一回事可能大家很难看清楚,不如看代码

其中使用到一个分页类CPaging

 

 

 

  1. Class CPaging
  2.     
  3.     Public RS       ' RecordSet对象
  4.     Public Mark         ' 指针标签
  5.     
  6.     
  7.     Private sSize       ' 每页显示数
  8.     Private sTotal      ' 总记录数
  9.     Private sPage       ' 当前页码
  10.     Private sCount      ' 总页码
  11.     
  12.     
  13.     Private Sub Class_Initialize
  14.         sSize       = 20
  15.         sPage       = 1
  16.         sCount      = 1
  17.     End Sub
  18.     
  19.     Private Sub Class_Terminate
  20.         
  21.         Closeobj RS
  22.         
  23.     End Sub
  24.     
  25.     '每页显示数
  26.     Property Let Size(Value)
  27.         sSize = Value
  28.     End Property
  29.     
  30.     Property Get Size
  31.         Size = sSize
  32.     End Property
  33.     
  34.     '当前页码
  35.     Property Let Page(Value)
  36.         If  Not IsNumeric(Value) Then
  37.             sPage = 1
  38.         Else
  39.             sPage = Value
  40.         End If
  41.     End Property
  42.     
  43.     Property Get Page
  44.         If (sPage - 1) * sSize > sTotal Then
  45.             If sTotal Mod sSize = 0 Then
  46.                 Page = Total / sSize
  47.             Else
  48.                 Page = Total / sSize +1
  49.             End If
  50.         ElseIf sPage < 1 Then
  51.             Page = 1
  52.         Else
  53.             Page = sPage
  54.         End If
  55.     End Property
  56.     
  57.     '总页码
  58.     Property Get Count
  59.         If sTotal Mod sSize = 0 Then    
  60.             Count = sTotal / sSize
  61.         Else
  62.             Count = sTotal / sSize + 1
  63.         End If
  64.     End Property
  65.     
  66.     '总记录数
  67.     Property Get Total()
  68.         Total = sTotal
  69.     End Property
  70.     
  71.     Public Function Open(Byval SQLString)
  72.         Try DB.Openquery(RS,SQLString)
  73.         sTotal = RS.RecordCount
  74.     End Function
  75.     
  76. End Class

以下是调用页

 

 

  1.     Dim Products
  2.     Set Products = New CPaging
  3.     With Products
  4.         .Size = 15                                  '每页显示数
  5.         .Page = PageNum                             '当前页
  6.     End With
  7.     Try Products.Open(ListSQL)
  8.     If Products.RS.Bof and Products.RS.Eof then
  9.         Response.Write("<TR><TD colspan=8>查找无记录</TD></TR>")
  10.     Else
  11.         Dim i
  12.         i = 0
  13.         Products.RS.Move (Products.Page - 1) * Products.Size
  14.         Do While Not Products.RS.Eof
  15.         Response.Write("<TR onmouseup=MouseUp(this); onmousedown=MouseDown(this); onmouseover=MouseOver(this); onclick=Click(this); onmouseout=MouseOut(this);>"&vbCrLf)
  16.         Response.Write("<TD align=middle nowrap>" & Products.RS("ProductsClassName") & "</TD>"&vbCrLf)
  17.         Response.Write("<TD align=left nowrap>" & Products.RS("ProductsName") & " </TD>"&vbCrLf)
  18. Response.Write("</TR>"&vbCrLf)
  19.         i=i+1
  20.         If i >= Products.Size Then Exit Do
  21.         Products.RS.MoveNext
  22.         Loop
  23.     End If

        当看到第8行的时候,似乎窥到了.net的影子--命名空间?

        

我眼中的C++继承初探

code0.cpp
  • stpeace
  • stpeace
  • 2014年11月01日 23:26
  • 2661

算法导论------------桶排序算法之研究

举个来说明桶排序的过程,假设现在有A={0.78,0.17,0.39,0.26,0.72,0.94,0.21,0.12,0.23,0.68},桶排序如下所示:      研究过计数排序我们知道了—...
  • chenxun2009
  • chenxun2009
  • 2014年11月19日 00:33
  • 1884

js 的原型链 以及伪继承

代码都用关包的方式来显示(function(){//....code.....})();这是一个良好的习惯 1.名词解释 (function(){ function A(){ v...
  • u013690866
  • u013690866
  • 2014年02月18日 14:55
  • 305

伪继承

1.Object-c的类可以多重继承么?可以实现多个接口么? 关于多继承: 首先 object-c不能够多继承,类似下面代码的这种方式是绝对通不过编译的.当然,你也可以把NSStrin...
  • deep_explore
  • deep_explore
  • 2013年06月18日 17:52
  • 552

asp初探

  • stt123456
  • stt123456
  • 2009年12月17日 19:10
  • 92

Repeater 汇总某一列(序号,分页) 最简单方法

2,Repeater汇总某一列                                  序号            所在单位            所在部门  ...
  • ououou123456789
  • ououou123456789
  • 2011年01月05日 16:29
  • 1891

ASP 伪造访问来路 HTTP_REFERER

 ASP 伪造访问来路 HTTP_REFERERFunction GetBody(weburl)     Set Retrieval = Server.CreateObject("MSXML2.XML...
  • xuxujian
  • xuxujian
  • 2011年07月03日 01:59
  • 4989

JS伪继承

/***************************************************************************      * 伪继承      *   ...
  • chenminghe271
  • chenminghe271
  • 2014年09月03日 13:20
  • 417

tolua++初探(三)

     利用tolua++导出类到lua中简单方便,你可以导出静态成员函数、普通成员函数、静态成员变量、普通成员变量,你也可以指定类的哪些方法被导出。你可以将具有单继承的派生类导出,派生类可以很自然...
  • foruok
  • foruok
  • 2008年04月18日 10:18
  • 6729

JS 伪继承 prototype

众所周知JS中没有类的概念,但是要想实现类的功能可以同过function模拟。如:...
  • qq_20678155
  • qq_20678155
  • 2017年03月31日 16:23
  • 132
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp伪继承初探
举报原因:
原因补充:

(最多只允许输入30个字)