如何用asp来创建类和类对象

怎么用asp来创建类和类对象。
<%
class   Vbclass
dim   vb_1
sub   vbShow()
vb_1=1
response.write   "你好 "
end   sub
end   class

dim   Vbc  
set   Vbc=new   Vbclass   '创建类对象

Vbc.vbshow       '调用类方法
response.write   Vbc.vb_1     '或的类属性
%>
这里有个见的类和创建类对象的代码，
可以用：
dim   Vbc  
set   Vbc=new   Vbclass   '创建类对象
但是我用
dim   Vbc   as   new   Vbclass创建就报错，
这是怎么回事啊。

------解决方案--------------------
asp中定义变量不能指定类型
所有变量类型都是Variant，在赋值时自动匹配