使用VBScript 中的类组织开发
当在一个机构内部创建Web应用程序时，有时候你会发现你自己从一个应用程序中复制和粘贴相同的代码到其它的应用程序中。如果你能够固化所有这些过程到一个好用的小包（package）中，其后你就可以在整个域中使用它了，这样会方便很多。
同 时，如果你有一个重复使用的过程，创建一个类包含你的过程可能会比较有用。使用类组织你的代码有一些优点：它使得你的代码容易阅读和调试；你可以将你的类 轻松的移值到一个Web服务中；你为其它开发人员提供一个抽象工具（从而节省了时间和资金）；同时在一个项目的开发阶段你还保留了灵活性。
当 把你的通用过程组织到一个类的时候，你创建一级抽象，允许你在几乎所有代码中实现这些过程。例如，假设在你创建的每个Web应用程序中，你者需要初始化用 户信息。这个初始化过程包括在用户登录到你的应用程序时根据用户凭证所做的一些数据库服务器连接。如果你在每个应用程序中都需要完成这个任务的话，那么将 你的代码固化到一个类中相当有意义。
下面是实现方法：
| Dim MyToolbox Set MyToolbox = New CToolbox Response.Write "UserName: " & MyToolbox.UserName & "<BR>" & vbCrLf Response.Write "UserPhone: " & MyToolbox.UserPhone & "<BR>" & vbCrLf Set MyToolbox = Nothing Class CToolbox Private m_conn, m_rs Private m_username, m_userphone Public Property Get UserName() UserName = m_username End Property Public Property Get UserPhone() UserPhone = m_userphone End Property Private Sub Class_Initialize() Set m_conn = Server.CreateObject("ADODB.Connection") m_conn.ConnectionString = "Some connection string" m_conn.Open Set m_rs = Server.CreateObject("ADODB.Recordset") Set m_rs.ActiveConnection = m_conn m_rs.Open "SELECT * FROM Users WHERE userid = '" & Request.ServerVariables("LOGON_USER") & "'" If Not m_rs.EOF Then m_username = m_rs.Fields("username") m_userphone = m_rs.Fields("userphone") End If End Sub Private Sub Class_Terminate() On Error Resume Next m_rs.Close Set m_rs = Nothing m_conn.Close Set m_conn = Nothing End Sub End Class |
从 例子中你可以看到，UserName 和 UserPhone 属性在类初始化之后就会有值。你可以将这个类的代码放到 ASP 代码的最后。然后在其余 的代码中其功能就可以在使用，不用实例化ADO对象，进行数据库调用和之后的清理。而且，如果你使用的是 Microsoft Visual InterDev，那么类中定义的属性和方法可以通过智能感知（IntelliSense）使用。
智能感知只对一级属性和方法有效，所以如果你创建一个类返回其它 ASP 类的对象，那么 InterDev 就不会提供可用的方法和属性。
下面的代码是一个类的骨架：
