1
vbs类的使用方法
2
类的结构:
3
class类名称
4
5
endclass
6
调用方法setmyclass=new类名称
7
中间类里面的代码,
8
9
类模块的事件过程。
10
PrivateSubClass_Initialize()
11
这里写上类实例化的时候执行的代码。
12
endsub
13
PrivateSubclass_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
publicmystr,mystring
28
这样就定义了两个公有的变量,调用方法myclass.mystr
29
反之
30
Privatemystr,mystring
31
则为私有的变量,外部不能访问的。
32
33
函数
34
35
PublicFunctionCheckstr(Str)
36
IfIsnull(Str)Then
37
CheckStr=""
38
ExitFunction
39
EndIf
40
CheckStr=Replace(Str,"'","''")
41
42
EndFunction
43
这是一个公有函数,外部可以访问的,调用方法myclass.Checkstr(Str)
44
反之如果为私有的,则用Private取代public
45
3、属性(Property)
46
属性分两种,一种是只写属性,一种是只读属性。
47
48
也可以为公有或私有,现在以公有为例子。
49
这是一个只写的属性
50
PublicPropertyLetValue(ByValvNewValue)
51
Dimtmpstr
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
PublicPropertyGetTodayNum
60
TodayNum=Application(Forum_sn&"_Dv_setup")(9,0)
61
EndProperty
62
63
如果要有读写的属性那么
64
PublicPropertyGetTodayNum
65
TodayNum=Application(Forum_sn&"_Dv_setup")(9,0)
66
EndProperty
67
PublicPropertyLetTodayNum(ByValvNewValue)
68
TodayNum=vNewValue
69
EndProperty
70
71
这样写TodayNum就具有读写的属性了,
72
73
方法,也以公有为例,
74
PublicSubTrueCheckUserLogin()
75
代码
76
endsub
77
78
79
以下为一个简单的类的的例子:
80
Classcls_templates
81
Publichtml,Strings,pic
82
PrivateSubClass_Initialize()
83
84
endsub
85
PrivateSubclass_terminate()
86
87
endsub
88
PublicPropertyLetValue(ByValvNewValue)
89
Dimtmpstr
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
EndClass
97
98
使用VBScript中的类组织开发
99
当在一个机构内部创建Web应用程序时,有时候你会发现你自己从一个应用程序中复制和粘贴相同的代码到其它的应用程序中。如果你能够固化所有这些过程到一个好用的小包(package)中,其后你就可以在整个域中使用它了,这样会方便很多。
100
101
同时,如果你有一个重复使用的过程,创建一个类包含你的过程可能会比较有用。使用类组织你的代码有一些优点:它使得你的代码容易阅读和调试;你可以将你的类轻松的移值到一个Web服务中;你为其它开发人员提供一个抽象工具(从而节省了时间和资金);同时在一个项目的开发阶段你还保留了灵活性。
102
103
当把你的通用过程组织到一个类的时候,你创建一级抽象,允许你在几乎所有代码中实现这些过程。例如,假设在你创建的每个Web应用程序中,你者需要初始化用户信息。这个初始化过程包括在用户登录到你的应用程序时根据用户凭证所做的一些数据库服务器连接。如果你在每个应用程序中都需要完成这个任务的话,那么将你的代码固化到一个类中相当有意义。
104
105
下面是实现方法:
106
107
DimMyToolbox
108
SetMyToolbox=NewCToolbox
109
Response.Write"UserName:"&MyToolbox.UserName&"<BR>"&vbCrLf
110
Response.Write"UserPhone:"&MyToolbox.UserPhone&"<BR>"&vbCrLf
111
SetMyToolbox=Nothing
112
113
ClassCToolbox
114
Privatem_conn,m_rs
115
Privatem_username,m_userphone
116
117
PublicPropertyGetUserName()
118
UserName=m_username
119
EndProperty
120
121
PublicPropertyGetUserPhone()
122
UserPhone=m_userphone
123
EndProperty
124
125
PrivateSubClass_Initialize()
126
Setm_conn=Server.CreateObject("ADODB.Connection")
127
m_conn.ConnectionString="Someconnectionstring"
128
m_conn.Open
129
Setm_rs=Server.CreateObject("ADODB.Recordset")
130
Setm_rs.ActiveConnection=m_conn
131
m_rs.Open"SELECT*FROMUsersWHEREuserid='"&
132
Request.ServerVariables("LOGON_USER")&"'"
133
IfNotm_rs.EOFThen
134
m_username=m_rs.Fields("username")
135
m_userphone=m_rs.Fields("userphone")
136
EndIf
137
EndSub
138
139
PrivateSubClass_Terminate()
140
OnErrorResumeNext
141
m_rs.Close
142
Setm_rs=Nothing
143
m_conn.Close
144
Setm_conn=Nothing
145
EndSub
146
147
EndClass
148
149
从例子中你可以看到,UserName和UserPhone属性在类初始化之后就会有值。你可以将这个类的代码放到ASP代码的最后。然后在其余的代码中其功能就可以在使用,不用实例化ADO对象,进行数据库调用和之后的清理。而且,如果你使用的是MicrosoftVisualInterDev,那么类中定义的属性和方法可以通过智能感知(IntelliSense)使用。
150
151
智能感知只对一级属性和方法有效,所以如果你创建一个类返回其它ASP类的对象,那么InterDev就不会提供可用的方法和属性。
152
153
下面的代码是一个类的骨架:
154
155
ClassMyClass
156
157
PrivateSubClass_Initialize()
158
EndSub
159
160
PrivateSubClass_Terminate()
161
EndSub
162
163
EndClass
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服务中,但是在开发阶段还是灵活一些好。
vbs类的使用方法2
类的结构:3
class类名称4

5
endclass6
调用方法setmyclass=new类名称7
中间类里面的代码,8

9
类模块的事件过程。10
PrivateSubClass_Initialize()11
这里写上类实例化的时候执行的代码。12
endsub13
PrivateSubclass_terminate()14
这里是类注销的时候自动执行的代码,15
endSub16
上面两个子程序的名称是规定的,17
如果改了名称,就会无效。18
1、变量19
2、函数(Function)20
3、属性(Property)21
4、方法(SUB)22

23
一、对象的访问限制,分为公有和私有,公有的(public)可以让外部访问,私有的(Private)外部不能访问,24
上面几种角色都可以定义为公有或私有。25

26
定义变量27
publicmystr,mystring28
这样就定义了两个公有的变量,调用方法myclass.mystr29
反之30
Privatemystr,mystring31
则为私有的变量,外部不能访问的。32

33
函数34

35
PublicFunctionCheckstr(Str)36
IfIsnull(Str)Then37
CheckStr=""38
ExitFunction39
EndIf40
CheckStr=Replace(Str,"'","''")41

42
EndFunction43
这是一个公有函数,外部可以访问的,调用方法myclass.Checkstr(Str)44
反之如果为私有的,则用Private取代public45
3、属性(Property)46
属性分两种,一种是只写属性,一种是只读属性。47

48
也可以为公有或私有,现在以公有为例子。49
这是一个只写的属性50
PublicPropertyLetValue(ByValvNewValue)51
Dimtmpstr52
tmpstr=vNewValue53
tmpstr=split(tmpstr,"@@@")54
html=split(tmpstr(0),"|||")55
Strings=split(tmpstr(1),"|||")56
pic=split(tmpstr(2),"|||")57
EndProperty58
这是一个只读的属性59
PublicPropertyGetTodayNum60
TodayNum=Application(Forum_sn&"_Dv_setup")(9,0)61
EndProperty62

63
如果要有读写的属性那么64
PublicPropertyGetTodayNum65
TodayNum=Application(Forum_sn&"_Dv_setup")(9,0)66
EndProperty67
PublicPropertyLetTodayNum(ByValvNewValue)68
TodayNum=vNewValue69
EndProperty70

71
这样写TodayNum就具有读写的属性了,72

73
方法,也以公有为例,74
PublicSubTrueCheckUserLogin()75
代码76
endsub77

78

79
以下为一个简单的类的的例子:80
Classcls_templates81
Publichtml,Strings,pic82
PrivateSubClass_Initialize()83

84
endsub85
PrivateSubclass_terminate()86

87
endsub88
PublicPropertyLetValue(ByValvNewValue)89
Dimtmpstr90
tmpstr=vNewValue91
tmpstr=split(tmpstr,"@@@")92
html=split(tmpstr(0),"|||")93
Strings=split(tmpstr(1),"|||")94
pic=split(tmpstr(2),"|||")95
EndProperty96
EndClass97

98
使用VBScript中的类组织开发99
当在一个机构内部创建Web应用程序时,有时候你会发现你自己从一个应用程序中复制和粘贴相同的代码到其它的应用程序中。如果你能够固化所有这些过程到一个好用的小包(package)中,其后你就可以在整个域中使用它了,这样会方便很多。100

101
同时,如果你有一个重复使用的过程,创建一个类包含你的过程可能会比较有用。使用类组织你的代码有一些优点:它使得你的代码容易阅读和调试;你可以将你的类轻松的移值到一个Web服务中;你为其它开发人员提供一个抽象工具(从而节省了时间和资金);同时在一个项目的开发阶段你还保留了灵活性。102

103
当把你的通用过程组织到一个类的时候,你创建一级抽象,允许你在几乎所有代码中实现这些过程。例如,假设在你创建的每个Web应用程序中,你者需要初始化用户信息。这个初始化过程包括在用户登录到你的应用程序时根据用户凭证所做的一些数据库服务器连接。如果你在每个应用程序中都需要完成这个任务的话,那么将你的代码固化到一个类中相当有意义。104

105
下面是实现方法:106

107
DimMyToolbox108
SetMyToolbox=NewCToolbox109
Response.Write"UserName:"&MyToolbox.UserName&"<BR>"&vbCrLf110
Response.Write"UserPhone:"&MyToolbox.UserPhone&"<BR>"&vbCrLf111
SetMyToolbox=Nothing112

113
ClassCToolbox114
Privatem_conn,m_rs115
Privatem_username,m_userphone116

117
PublicPropertyGetUserName()118
UserName=m_username119
EndProperty120

121
PublicPropertyGetUserPhone()122
UserPhone=m_userphone123
EndProperty124

125
PrivateSubClass_Initialize()126
Setm_conn=Server.CreateObject("ADODB.Connection")127
m_conn.ConnectionString="Someconnectionstring"128
m_conn.Open129
Setm_rs=Server.CreateObject("ADODB.Recordset")130
Setm_rs.ActiveConnection=m_conn131
m_rs.Open"SELECT*FROMUsersWHEREuserid='"&132
Request.ServerVariables("LOGON_USER")&"'"133
IfNotm_rs.EOFThen134
m_username=m_rs.Fields("username")135
m_userphone=m_rs.Fields("userphone")136
EndIf137
EndSub138

139
PrivateSubClass_Terminate()140
OnErrorResumeNext141
m_rs.Close142
Setm_rs=Nothing143
m_conn.Close144
Setm_conn=Nothing145
EndSub146

147
EndClass148

149
从例子中你可以看到,UserName和UserPhone属性在类初始化之后就会有值。你可以将这个类的代码放到ASP代码的最后。然后在其余的代码中其功能就可以在使用,不用实例化ADO对象,进行数据库调用和之后的清理。而且,如果你使用的是MicrosoftVisualInterDev,那么类中定义的属性和方法可以通过智能感知(IntelliSense)使用。150

151
智能感知只对一级属性和方法有效,所以如果你创建一个类返回其它ASP类的对象,那么InterDev就不会提供可用的方法和属性。152

153
下面的代码是一个类的骨架:154

155
ClassMyClass156

157
PrivateSubClass_Initialize()158
EndSub159

160
PrivateSubClass_Terminate()161
EndSub162

163
EndClass164

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服务中,但是在开发阶段还是灵活一些好。

960

被折叠的 条评论
为什么被折叠?



