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

VBS类：

Class Yongfa365Test
    '＝＝＝＝＝＝＝＝＝＝声明变量＝＝＝＝＝＝＝＝＝＝
    Private p1
    Private p2, p3, p4, mySex
    Public MyName 'Public型变量相当于属性，引用类后可以直接调用或设置值
    
    '＝＝＝＝＝＝＝＝＝＝声明属性＝＝＝＝＝＝＝＝＝＝
    Public Property Get Author()
        Author = "http://www.yongfa365.com/"
    End Property

    Public Property Let Sex(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 = Nothing
    End 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

<script language="vbscript"> Class Yongfa365Test '＝＝＝＝＝＝＝＝＝＝声明变量＝＝＝＝＝＝＝＝＝＝ Private p1 Private p2, p3, p4, mySex Public MyName 'Public型变量相当于属性，引用类后可以直接调用或设置值 '＝＝＝＝＝＝＝＝＝＝声明属性＝＝＝＝＝＝＝＝＝＝ Public Property Get Author() Author = "http://www.yongfa365.com/" End Property Public Property Let Sex(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 = Nothing End 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 </script>
可修改代码后再运行
 

vb类

制作方法：

调用方法：

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

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