vbs的class

Class class1
Public Function add(a,b)
msg()
add=a+b
End Function

Private Sub msg
MsgBox "按确定开始计算"
End Sub
End Class

Set x=New class1
MsgBox x.add(1,2)

研究了一个小时，大体上就是这样用的。
由于sub msg函数是private的，所以只能在class1这个类中使用这个函数,如果要在类外，比如msgbox x.add(1,2)下面使用x.msg语句是会提示错误了。
由于function add(a,b)语句是public的，所以可以调用，比如msgbox x.add(1,2)。这样就可以算出1加2的值并返回。

 

使用ADO

Set   Rs   =   GetObject( "ADODB.Recordset ")
GetObject( "ADODB.Connection ")
GetObject( "ADODB.Command ")
GetObject( "ADOX.Catlog ")

1、建立与数据库的连接
set   conn   =   server.CreateObject( "ADODB.connection ")
conn.ConnectionString   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source= "& "database/test.mdb "
conn.open
2、建立记录集
set   rs   =   createObject( "ADODB.recordSet ")
strSQL   =   "select   userID,rChild,lChild   from   userInfo   where   userID= ' "&userID& " ' "
rs.open   strSQL,conn,1,3,1
3、用rs.moveNext，rs.movePrevious，rs.moveLast，rs.moveFirst等方法操作记录集

'声明变量
Dim   rs,conn,aaa,bbb,ccc

'建立数据库连接
Set   conn   =   CreateObject( "ADODB.Connection ")
conn.ConnectionString   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source= "& "Data.mdb "
conn.open

'创建记录集
Set   rs   =   CreateObject( "ADODB.Recordset ")

'打开数据表表
rs.Open   "SELECT   *   FROM   t_table   WHERE   ID   =   1 ",conn,1,3

'更新数据表
If   Not   rs.Eof   Then
aaa   =   rs( "aaa ")
bbb   =   rs( "bbb ")
ccc   =   rs( "ccc ")
Else
rs.Addnew
rs( "aaa ")   =   1
rs( "bbb ")   =   now()
rs( "ccc ")   =   "字符串 "
rs.Update
End   If