Asp类模块编写初探

' 在 Class 块中，成员通过相应的声明语句被声明为 Private(私有成员，只能在类内部调用) 或 Public(公有成员，可以在类
' 内外部调用) 。被声明为 Private 的将只在 Class 块内是可见的。被声明为 Public 不仅在 Class 块的内部是可见的，对 
' Class 块之外的代码也是可见的。没有使用 Private 或 Public 明确声明的被默认为 Public。在类的块内部被声明为 Public 的
' 过程（Sub 或 Function）将成为类的方法。Public 变量将成为类的属性，同使用 Property Get、Property Let 和 Property Set 
' 显式声明的属性一样，可以设置。类的缺省属性和方法是在它们的声明部分用 Default 关键字指定的。
dim syy
set  syy = new  test
syy.setname = " 李小龙 "
syy.setgender = " 男 "
syy.setage = " 32 "
response.write syy.output
syy.printMethod
response.write syy.myresult
response.write " 以下是public变量作为属性使用的测试－－－－－－－－<BR><BR> "

syy.syyname = " 重新设置syyname "
response.write syy.syyname & " <BR> "
response.write syy.syygender & " <BR> "
response.write syy.syyage & " <BR> "

set  syy = nothing

Class test
 Public syyname
 Public syygender
 Public syyage

  private  strName
  private  strGender
  private  strAge
 
 Public Property Let setName(n)
 strName = n
 End Property

 Public Property Let setGender(n)
 strGender = n
 End Property

 Public Property Let setAge(n)
 strAge = n
 End Property

 Public Property Get output
  output = " 我的名字是 " & strName & " ，我的年纪是 " & strAge & " 岁了，我的性别是 " & strGender & " 。谢谢您提供数据！<BR> "
 End Property

 Public Sub printMethod
  response.write  " 以下是方法－－－－－－－－－－－－<BR> "
  response.write output
  response.write  " 方法结束－－－－－－－－－－－－－<BR> "
 End Sub

 Public Function myresult
  myresult = " <BR><BR><BR> " & out & " －－这个可是函数<BR><BR><BR> "
 End Function

 Public Sub Class_initialize
   ' response.write "<script>alert( ' im syy ' )</script>"
  syyname = " my name is test2 " & strname
  syygender = " my gender is test3 " & strgender
  syyage = " my age is test6 " & strage
 End Sub
End Class
%>