VBS类的使用方法

  1vbs类的使用方法
  2类的结构:
  3class 类名称
  4
  5end class
  6调用方法 set myclass=new 类名称
  7中间类里面的代码，
  8
  9类模块的事件过程。
 10Private Sub Class_Initialize()
 11这里写上类实例化的时候执行的代码。
 12end sub 
 13Private Sub class_terminate()
 14这里是类注销的时候自动执行的代码，
 15end Sub
 16上面两个子程序的名称是规定的，
 17如果改了名称，就会无效。
 181、变量
 192、函数(Function)
 203、属性(Property)
 214、方法 (SUB)
 22
 23一、对象的访问限制，分为公有和私有，公有的（public）可以让外部访问，私有的（Private ）外部不能访问，
 24上面几种角色都可以定义为公有或私有。
 25
 26定义变量
 27public mystr,mystring
 28这样就定义了两个公有的变量，调用方法myclass.mystr
 29反之
 30Private mystr,mystring
 31则为私有的变量，外部不能访问的。
 32
 33函数
 34
 35Public Function Checkstr(Str)
 36If Isnull(Str) Then
 37  CheckStr = ""
 38  Exit Function 
 39End If
 40CheckStr = Replace(Str,"'","''")
 41
 42End Function
 43这是一个公有函数，外部可以访问的，调用方法 myclass.Checkstr(Str)
 44反之如果为私有的，则用Private 取代public
 453、属性(Property)
 46属性分两种，一种是只写属性，一种是只读属性。
 47
 48也可以为公有或私有，现在以公有为例子。
 49这是一个只写的属性
 50Public Property Let Value(ByVal vNewValue)
 51Dim tmpstr
 52tmpstr = vNewValue
 53tmpstr = split(tmpstr,"@@@")
 54html = split(tmpstr(0),"|||")
 55Strings = split(tmpstr(1),"|||")
 56pic = split(tmpstr(2),"|||")
 57End Property
 58这是一个只读的属性
 59Public Property Get TodayNum
 60TodayNum = Application(Forum_sn & "_Dv_setup")(9,0)
 61End Property
 62
 63如果要有读写的属性那么
 64Public Property Get TodayNum
 65TodayNum = Application(Forum_sn & "_Dv_setup")(9,0)
 66End Property
 67Public Property Let TodayNum(ByVal vNewValue)
 68TodayNum = vNewValue
 69End Property
 70
 71这样写TodayNum就具有读写的属性了，
 72
 73方法，也以公有为例，
 74Public Sub TrueCheckUserLogin()
 75代码
 76end sub
 77
 78
 79以下为一个简单的类的的例子：
 80Class cls_templates
 81Public html,Strings,pic
 82Private Sub Class_Initialize()
 83
 84end sub 
 85Private Sub class_terminate()
 86
 87end sub
 88Public Property Let Value(ByVal vNewValue)
 89  Dim tmpstr
 90  tmpstr = vNewValue
 91  tmpstr = split(tmpstr,"@@@")
 92  html = split(tmpstr(0),"|||")
 93  Strings = split(tmpstr(1),"|||")
 94  pic = split(tmpstr(2),"|||")
 95End Property
 96End Class
 97
 98使用VBScript 中的类组织开发 
 99当在一个机构内部创建Web应用程序时，有时候你会发现你自己从一个应用程序中复制和粘贴相同的代码到其它的应用程序中。如果你能够固化所有这些过程到一个好用的小包（package）中，其后你就可以在整个域中使用它了，这样会方便很多。
100
101同时，如果你有一个重复使用的过程，创建一个类包含你的过程可能会比较有用。使用类组织你的代码有一些优点：它使得你的代码容易阅读和调试；你可以将你的类轻松的移值到一个Web服务中；你为其它开发人员提供一个抽象工具（从而节省了时间和资金）；同时在一个项目的开发阶段你还保留了灵活性。
102
103当把你的通用过程组织到一个类的时候，你创建一级抽象，允许你在几乎所有代码中实现这些过程。例如，假设在你创建的每个Web应用程序中，你者需要初始化用户信息。这个初始化过程包括在用户登录到你的应用程序时根据用户凭证所做的一些数据库服务器连接。如果你在每个应用程序中都需要完成这个任务的话，那么将你的代码固化到一个类中相当有意义。
104
105下面是实现方法：
106
107Dim MyToolbox
108Set MyToolbox = New CToolbox
109Response.Write "UserName: " & MyToolbox.UserName & "<BR>" & vbCrLf
110Response.Write "UserPhone: " &  MyToolbox.UserPhone & "<BR>" & vbCrLf
111Set MyToolbox = Nothing
112
113Class CToolbox
114Private m_conn, m_rs
115Private m_username, m_userphone
116
117Public Property Get UserName()
118    UserName = m_username
119End Property
120
121Public Property Get UserPhone()
122    UserPhone = m_userphone
123End Property
124
125Private Sub Class_Initialize()
126    Set m_conn = Server.CreateObject("ADODB.Connection")
127    m_conn.ConnectionString = "Some connection string"
128    m_conn.Open
129    Set m_rs = Server.CreateObject("ADODB.Recordset")
130    Set m_rs.ActiveConnection = m_conn
131    m_rs.Open "SELECT * FROM Users WHERE userid = '" &
132                        Request.ServerVariables("LOGON_USER") & "'"
133    If Not m_rs.EOF Then
134        m_username = m_rs.Fields("username")
135        m_userphone = m_rs.Fields("userphone")
136    End If
137End Sub
138
139Private Sub Class_Terminate()
140    On Error Resume Next
141    m_rs.Close
142    Set m_rs = Nothing
143    m_conn.Close
144    Set m_conn = Nothing
145End Sub
146
147End Class 
148
149从例子中你可以看到，UserName 和 UserPhone 属性在类初始化之后就会有值。你可以将这个类的代码放到 ASP 代码的最后。然后在其余的代码中其功能就可以在使用，不用实例化ADO对象，进行数据库调用和之后的清理。而且，如果你使用的是 Microsoft Visual InterDev，那么类中定义的属性和方法可以通过智能感知（IntelliSense）使用。
150
151智能感知只对一级属性和方法有效，所以如果你创建一个类返回其它 ASP 类的对象，那么 InterDev 就不会提供可用的方法和属性。
152
153下面的代码是一个类的骨架：
154
155Class MyClass
156
157Private Sub Class_Initialize()
158End Sub
159
160Private Sub Class_Terminate()
161End Sub
162
163End Class 
164
165使用这个基本信息，一个类被声明，并且可以使用它来创建对象。但是这个类的对象没有功能——它们是无用的东西。类的方法从 Public Sub 或者 Public Function 声明构建（Subs 没有返回值，而 Function 有返回值）。
166
167有两个方法可以暴露属性：既可以在类的全局上下文中使用 Public VarName，也可以使用 Public Property Get/Set/Let。如果你需要一个只读属性，那么只要简单地使用一个 Property Get 声明即可。所有其它声明为 Private 的 Properties，Subs 或者 Functions 只有在实例化的对象才可用。在类的全局上下文中声明为 Private 的变量是成员变量。
168
169创建类的另外一个好处是你可以轻易的将这个类声明移值到 Web 服务中。因为这是很多开发人员前进的方向，你可以通过使用类创建面向对象的代码先行一步。当你移值这些类声明到一个 Web 服务时，你不需要重写所有的放置了那段代码的ASP代码。所要做的唯一的改变就是你的对象的实例化。
170
171我发现创建这个抽象的最大的优点是可以使用其它 Web 开发者的帮助。因为对于很多开发人员来说在每个不同的实现中重复创建相同的代码效率相当低，所以这个方法为每个开发人员提供了一个抽象工具。这就允许每个开发人员将精力更多地集中在当前工作的功能上面，而不是花费时间重写他们已经开发过的代码上面。
172
173如果你奇怪为什么我不提供一个COM对象来处理这个功能，那是因为它会把你锁定到细节设计中。通过在 ASP 中动态地创建类，你可以不用重新编译和发布就能够对类做出更改。在类固定之后，再将它移值到 COM、Windows 脚本组件（WSC）或者一个 Web 服务中，但是在开发阶段还是灵活一些好。