VBS类的使用方法

1 vbs类的使用方法
2 类的结构:
3 class类名称
4
5 end class
6 调用方法 set myclass = new 类名称
7 中间类里面的代码，
8
9 类模块的事件过程。
10 Private Sub Class_Initialize()
11 这里写上类实例化的时候执行的代码。
12 endsub
13 Private Sub class_terminate()
14 这里是类注销的时候自动执行的代码，
15 endSub
16 上面两个子程序的名称是规定的，
17 如果改了名称，就会无效。
18 1 、变量
19 2 、函数( Function )
20 3 、属性( Property )
21 4 、方法( SUB )
22
23 一、对象的访问限制，分为公有和私有，公有的（ public ）可以让外部访问，私有的（ Private ）外部不能访问，
24 上面几种角色都可以定义为公有或私有。
25
26 定义变量
27 public mystr,mystring
28 这样就定义了两个公有的变量，调用方法myclass.mystr
29 反之
30 Private mystr,mystring
31 则为私有的变量，外部不能访问的。
32
33 函数
34
35 Public Function Checkstr(Str)
36 If Isnull (Str) Then
37 CheckStr = " "
38 Exit Function
39 End If
40 CheckStr = Replace (Str, " ' " , " '' " )
41
42 EndFunction
43 这是一个公有函数，外部可以访问的，调用方法myclass.Checkstr(Str)
44 反之如果为私有的，则用Private取代public
45 3 、属性( Property )
46 属性分两种，一种是只写属性，一种是只读属性。
47
48 也可以为公有或私有，现在以公有为例子。
49 这是一个只写的属性
50 Public Property Let Value(ByValvNewValue)
51 Dim tmpstr
52 tmpstr = vNewValue
53 tmpstr = split (tmpstr, " @@@ " )
54 html = split (tmpstr( 0 ), " ||| " )
55 Strings = split (tmpstr( 1 ), " ||| " )
56 pic = split (tmpstr( 2 ), " ||| " )
57 EndProperty
58 这是一个只读的属性
59 Public Property Get TodayNum
60 TodayNum = Application(Forum_sn & " _Dv_setup " )( 9 , 0 )
61 EndProperty
62
63 如果要有读写的属性那么
64 Public Property Get TodayNum
65 TodayNum = Application(Forum_sn & " _Dv_setup " )( 9 , 0 )
66 EndProperty
67 Public Property Let TodayNum(ByValvNewValue)
68 TodayNum = vNewValue
69 EndProperty
70
71 这样写TodayNum就具有读写的属性了，
72
73 方法，也以公有为例，
74 Public Sub TrueCheckUserLogin()
75 代码
76 endsub
77
78
79 以下为一个简单的类的的例子：
80 Classcls_templates
81 Public html,Strings,pic
82 Private Sub Class_Initialize()
83
84 endsub
85 Private Sub class_terminate()
86
87 endsub
88 Public Property Let Value(ByValvNewValue)
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 ), " ||| " )
95 EndProperty
96 End Class
97
98 使用VBScript中的类组织开发
99 当在一个机构内部创建Web应用程序时，有时候你会发现你自己从一个应用程序中复制和粘贴相同的代码到其它的应用程序中。如果你能够固化所有这些过程到一个好用的小包（package）中，其后你就可以在整个域中使用它了，这样会方便很多。
100
101 同时，如果你有一个重复使用的过程，创建一个类包含你的过程可能会比较有用。使用类组织你的代码有一些优点：它使得你的代码容易阅读和调试；你可以将你的类轻松的移值到一个Web服务中；你为其它开发人员提供一个抽象工具（从而节省了时间和资金）；同时在一个项目的开发阶段你还保留了灵活性。
102
103 当把你的通用过程组织到一个类的时候，你创建一级抽象，允许你在几乎所有代码中实现这些过程。例如，假设在你创建的每个Web应用程序中，你者需要初始化用户信息。这个初始化过程包括在用户登录到你的应用程序时根据用户凭证所做的一些数据库服务器连接。如果你在每个应用程序中都需要完成这个任务的话，那么将你的代码固化到一个类中相当有意义。
104
105 下面是实现方法：
106
107 Dim MyToolbox
108 Set MyToolbox = New CToolbox
109 Response.Write " UserName: " & MyToolbox.UserName & " <BR> " & vbCrLf
110 Response.Write " UserPhone: " & MyToolbox.UserPhone & " <BR> " & vbCrLf
111 Set MyToolbox = Nothing
112
113 ClassCToolbox
114 Private m_conn,m_rs
115 Private m_username,m_userphone
116
117 Public Property Get UserName()
118 UserName = m_username
119 EndProperty
120
121 Public Property Get UserPhone()
122 UserPhone = m_userphone
123 EndProperty
124
125 Private Sub Class_Initialize()
126 Set m_conn = Server. CreateObject ( " ADODB.Connection " )
127 m_conn.ConnectionString = " Someconnectionstring"
128 m_conn.Open
129 Set m_rs = Server. CreateObject ( " ADODB.Recordset " )
130 Set m_rs.ActiveConnection = m_conn
131 m_rs.Open " SELECT*FROMUsersWHEREuserid=' " &
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
137 EndSub
138
139 Private 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
145 EndSub
146
147 End Class
148
149 从例子中你可以看到，UserName和UserPhone属性在类初始化之后就会有值。你可以将这个类的代码放到ASP代码的最后。然后在其余的代码中其功能就可以在使用，不用实例化ADO对象，进行数据库调用和之后的清理。而且，如果你使用的是MicrosoftVisualInterDev，那么类中定义的属性和方法可以通过智能感知（IntelliSense）使用。
150
151 智能感知只对一级属性和方法有效，所以如果你创建一个类返回其它ASP类的对象，那么InterDev就不会提供可用的方法和属性。
152
153 下面的代码是一个类的骨架：
154
155 ClassMyClass
156
157 Private Sub Class_Initialize()
158 EndSub
159
160 Private Sub Class_Terminate()
161 EndSub
162
163 End 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服务中，但是在开发阶段还是灵活一些好。