vbs类及用VB制作的DLL类,在ASP,vbs,vb里如何调用
ClassYongfa365Test '==========声明变量========== Privatep1 Privatep2,p3,p4,mySex PublicMyName'Public型变量相当于属性,引用类后可以直接调用或设置值 '==========声明属性========== PublicPropertyGetAuthor() Author="http://www.yongfa365.com/" EndProperty PublicPropertySetSex(Val) mySex=Val EndProperty PublicPropertyGetSex() Sex=mySex EndProperty '==========声明方法========== PublicFunctionWriteSex() WriteSex="我的性别是:"&mySex EndFunction '==========初始化========== PrivateSubClass_Initialize '在创建类的实例时发生此事件。 '初始化数据:变量,定义一些对象,如 Setstrm=Server.CreateObject("ADODB.Stream") mySex="女" EndSub '==========销毁对象========== PrivateSubClass_Terminate '在所关联的类的实例终止时发生此事件。 '把一些对象给注销掉,如: Setstrm= Sub EndClass '创建类的实例。 SetX=NewYongfa365Test 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 MsgBoxStr '销毁类的实例。 SetX=Nothing 调用方法: ASP: set fso=server.createobject("adodb.recordset") VBS: set fso=createobject("adodb.recordset") (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |