vbs类及用VB制作的DLL类,在ASP,vbs,vb里如何调用

Class Yongfa365Test      

 '＝＝＝＝＝＝＝＝＝＝声明变量＝＝＝＝＝＝＝＝＝＝       

Private p1       

Private p2, p3, p4, mySex       

Public MyName 'Public型变量相当于属性，引用类后可以直接调用或设置值             

 '＝＝＝＝＝＝＝＝＝＝声明属性＝＝＝＝＝＝＝＝＝＝      

Public Property GetAuthor()           

Author = "http://www.yongfa365.com/"     

End Property        

Public Property SetSex(Val)           

mySex = Val       

End Property             

Public Property Get Sex()           

Sex = mySex       

End Property             

'＝＝＝＝＝＝＝＝＝＝声明方法＝＝＝＝＝＝＝＝＝＝         

Public Function WriteSex()           

WriteSex = "我的性别是：" & mySex       

End Function             

'＝＝＝＝＝＝＝＝＝＝初 始 化＝＝＝＝＝＝＝＝＝＝         

Private Sub Class_Initialize           '在创建类的实例时发生此事件。          

 '初始化数据：变量，定义一些对象，如

Set strm = Server.CreateObject("ADODB.Stream")           

mySex = "女"      

End Sub            

 '＝＝＝＝＝＝＝＝＝＝销毁对象＝＝＝＝＝＝＝＝＝＝         

Private Sub Class_Terminate          

 '在所关联的类的实例终止时发生此事件。        

'把一些对象给注销掉，如：

Set strm = 

Sub         

End Class                 

 '创建类的实例。   

Set X = New Yongfa365Test      

Str = X.Author  

 '测试初始化数据   

Str = Str + vbCrLf + X.Sex   

Str = Str + vbCrLf + X.WriteSex     

'测试对属性附值   

X.Sex = "男"  

Str = Str + vbCrLf + X.Sex   

Str = Str + vbCrLf + X.WriteSex    

 '测试Public变量可以当属性来使   

Str = Str + vbCrLf + X.MyName   

X.MyName = "我是柳永法"  

Str = Str + vbCrLf + X.MyName     

MsgBox Str     

'销毁类的实例。   

Set X = Nothing 

 

 

 

调用方法：

ASP:   set fso=server.createobject("adodb.recordset")

VBS:    set fso=createobject("adodb.recordset")