一个最简单的vbs类实例代码

class CFoo
    sub PrintHello（）
        response.Write "Hello World！"
    end sub
end class

dim obj
set obj = new CFoo
call obj.PrintHello
set obj = nothing