一个最简单的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