作家
登录

asp伪继承初探_实例代码

作者: 来源:www.28hudong.com 2013-03-30 08:25:33 阅读 我要评论

其中使用到一个分页类CPaging 复制代码 代码如下:Class CPaging Public RS ' RecordSet对象 Public Mark ' 指针标签 Private sSize ' 每页显示数 Private sTotal ' 总记录数 Private sPage ' 当前页码 Private sCount ' 总页码 Private Sub Class_Initialize sSize = 20 sPage = 1 sCount = 1 End Sub Private Sub Class_Terminate Closeobj RS End Sub '每页显示数 Property Let Size(Value) sSize = Value End Property Property Get Size Size = sSize End Property '当前页码 Property Let Page(Value) If Not IsNumeric(Value) Then sPage = 1 Else sPage = Value End If End Property Property Get Page If (sPage - 1) * sSize > sTotal Then If sTotal Mod sSize = 0 Then Page = Total sSize Else Page = Total sSize +1 End If ElseIf sPage < 1 Then Page = 1 Else Page = sPage End If End Property '总页码 Property Get Count If sTotal Mod sSize = 0 Then Count = sTotal sSize Else Count = sTotal sSize + 1 End If End Property '总记录数 Property Get Total() Total = sTotal End Property Public Function Open(Byval SQLString) Try DB.Openquery(RS,SQLString) sTotal = RS.RecordCount End Function End Class 以下是调用页 复制代码 代码如下:Dim Products Set Products = New CPaging With Products .Size = 15 '每页显示数 .Page = PageNum '当前页 End With Try Products.Open(ListSQL) If Products.RS.Bof and Products.RS.Eof then Response.Write("<TR><TD colspan=8>查找无记录</TD></TR>") Else Dim i i = 0 Products.RS.Move (Products.Page - 1) * Products.Size Do While Not Products.RS.Eof Response.Write("<TR onmouseup=MouseUp(this); onmousedown=MouseDown(this); onmouseover=MouseOver(this); onclick=Click(this); onmouseout=MouseOut(this);>"&vbCrLf) Response.Write("<TD align=middle nowrap>" & Products.RS("ProductsClassName") & "</TD>"&vbCrLf) Response.Write("<TD align=left nowrap>" & Products.RS("ProductsName") & " </TD>"&vbCrLf) Response.Write("</TR>"&vbCrLf) i=i+1 If i >= Products.Size Then Exit Do Products.RS.MoveNext Loop End If 当看到第8行的时候,似乎窥到了.net的影子--命名空间?

  推荐阅读

  一个asp版XMLDOM操作类

<script language="vbscript" runat="server"> '============================================================ '作者:做回自己 '时间:2005-3-15 ===========================================================>>>详细阅读


本文标题:asp伪继承初探_实例代码

地址:http://www.17bianji.com/kaifa2/ASP/32137.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)