VBS类的使用方法

小鱼儿 2021-11-11 23:20 322阅读 0赞

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

转载于:https://www.cnblogs.com/Dicky/archive/2005/06/05/168470.html

[None.gif]: