VBS类的使用方法

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