一个最简单的vbs类实例代码
class CFoosub PrintHello()response.Write "Hello World!"end sub end class dim obj set obj = new CFoocall obj.PrintHello set obj = nothing
class CFoosub PrintHello()response.Write "Hello World!"end sub end class dim obj set obj = new CFoocall obj.PrintHello set obj = nothing