<%
class Vbclass
dim vbi
sub vbshow
vbi=1
response.write "您好"
end sub
end class
dim Vbc
set Vbc=new Vbclass '创建类对象
Vbc.vbshow '调用类方法
response.write Vbc.vbi '调用累的属性
dim Vbc as new Vbclass '不能这么新建类的对象 asp中变量不能指定类型,所有变量都是variant,在赋值时自动匹配
%>