VBS类的使用方法

  1 vbs类的使用方法
  2 类的结构:
  3 class 类名称
  4
  5 end  class
  6 调用方法  set  myclass = new  类名称
  7 中间类里面的代码，
  8
  9 类模块的事件过程。
 10 Private   Sub  Class_Initialize()
 11 这里写上类实例化的时候执行的代码。
 12 end sub  
 13 Private   Sub  class_terminate()
 14 这里是类注销的时候自动执行的代码，
 15 end Sub
 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 End Function
 43 这是一个公有函数，外部可以访问的，调用方法 myclass.Checkstr(Str)
 44 反之如果为私有的，则用Private 取代public
 45 3 、属性( Property )
 46 属性分两种，一种是只写属性，一种是只读属性。
 47
 48 也可以为公有或私有，现在以公有为例子。
 49 这是一个只写的属性
 50 Public   Property   Let  Value(ByVal vNewValue)
 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 End Property
 58 这是一个只读的属性
 59 Public   Property   Get  TodayNum
 60 TodayNum  =  Application(Forum_sn  &   " _Dv_setup " )( 9 , 0 )
 61 End Property
 62
 63 如果要有读写的属性那么
 64 Public   Property   Get  TodayNum
 65 TodayNum  =  Application(Forum_sn  &   " _Dv_setup " )( 9 , 0 )
 66 End Property
 67 Public   Property   Let  TodayNum(ByVal vNewValue)
 68 TodayNum  =  vNewValue
 69 End Property
 70
 71 这样写TodayNum就具有读写的属性了，
 72
 73 方法，也以公有为例，
 74 Public   Sub  TrueCheckUserLogin()
 75 代码
 76 end sub
 77
 78
 79 以下为一个简单的类的的例子：
 80 Class cls_templates
 81 Public  html,Strings,pic
 82 Private   Sub  Class_Initialize()
 83
 84 end sub  
 85 Private   Sub  class_terminate()
 86
 87 end sub
 88 Public   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 ), " ||| " )
 95 End Property
 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 Class CToolbox
114 Private  m_conn, m_rs
115 Private  m_username, m_userphone
116
117 Public   Property   Get  UserName()
118     UserName  =  m_username
119 End Property
120
121 Public   Property   Get  UserPhone()
122     UserPhone  =  m_userphone
123 End Property
124
125 Private   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
137 End Sub
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 End Sub
146
147 End  Class 
148
149 从例子中你可以看到，UserName 和 UserPhone 属性在类初始化之后就会有值。你可以将这个类的代码放到 ASP 代码的最后。然后在其余的代码中其功能就可以在使用，不用实例化ADO对象，进行数据库调用和之后的清理。而且，如果你使用的是 Microsoft Visual InterDev，那么类中定义的属性和方法可以通过智能感知（IntelliSense）使用。
150
151 智能感知只对一级属性和方法有效，所以如果你创建一个类返回其它 ASP 类的对象，那么 InterDev 就不会提供可用的方法和属性。
152
153 下面的代码是一个类的骨架：
154
155 Class MyClass
156
157 Private   Sub  Class_Initialize()
158 End Sub
159
160 Private   Sub  Class_Terminate()
161 End Sub
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 服务中，但是在开发阶段还是灵活一些好。