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

1. class CFoo  
2.     sub PrintHello()  
3.         response.Write "Hello World!"  
4.     end sub  
5. end class  
6.  
7. dim obj  
8. set obj = new CFoo   
9. call obj.PrintHello  
10. set obj = nothing