Let 把外部的数据传入
Get 把内部的数据传出

class AA
  private u
  public property let uu(a)
     u=a
  end property
  public property get uu()
     uu=u
  end property
end class
'test class
dim testStr,obj
testStr="www.programfan.com"
set obj=new AA
obj.uu=testStr
response.write obj.uu '显示www.programfan.com