asp:Property解释与例子

=======================================================================
Property Get 语句
在 Class 块中，声明构成用来取得（返回）的值的属性过程的主体的名称、参数和代码。
[Public [Default]| Private] Property Get name [(arglist)]
[statements]
[[Set] name = expression]
[Exit Property]
[statements]
[[Set] name = expression]
End Property
参数
Public
表明Property Get 过程可以被所有脚本中的其他过程访问。
Default
只与 Public 关键字一起使用，表明 Property Get 过程中定义的属性为类的缺省属性。
Private
表明 Property Get 过程只对定义它的 Class 块中的其他过程是可以访问的。
name
Property Get 过程的名称；遵守标准的变量命名规则，区别仅仅在于它可以与同一Class块中的Property Let 或 Property Set过程。
arglist
该变量列表代表了 Property Get 过程被调用时传递给它的参数。多个参数之间用逗号分隔开。Property Get 过程中的每个参数的名称必须与 Property Let 过程中的相应参数相同(如果有的话)。
statements
任意的一组语句，将在 Property Get 过程的主体中执行。
Set
在将对象作为 Property Get 过程的返回值时使用的关键字。
expression
Property Get 过程的返回值。
说明
如果未使用 Public 或 Private明确声明，则 Property Get 过程被缺省为公有的，即它们对于脚本中的其他所有过程都是可见的。Property Get过程中的局部变量的值在不同的过程调用之间是不保存的。
在其他任何过程(例如 Function 或 Property Let) 内部都不能定义 Property Get 过程。
Exit Property 语句将导致立即从 Property Get 过程中退出。程序将继续执行调用 Property Get 过程的语句之后的程序。Exit Property 语句可以出现在 Property Get 过程中的任何位置，次数不限。
与Sub 和 Property Let 过程类似，Property Get 过程是能够接受参数的过程，可以执行一系列的语句，以及改变参数的值。然而，与Sub 和 Property Let 不同的是，Property Get 过程可以被用于表达式的右侧，用与使用Function 或属性名称相同的方式来返回属性的值。
例子：
Class myClass1
Public a1,a2
Public Property Get a3(ByVal a5)
a3=a5＆" good"
End Property
End Class

Dim x
Set x=New myClass1
response.Write("x.a1+x.a2="＆x.a3("中国")＆"〈br〉")
x.a1=1
x.a2=2
Response.Write("x.a1="＆x.a1＆"〈br〉")
Response.Write("x.a2="＆x.a2＆"〈br〉")
运行结果为：
x.a1+x.a2=中国 good
x.a1=1
x.a2=2
对属性只读
==============================================================================
Property Let 语句
在 Class 块中，声明名称、参数和代码等，它们构成了赋值（设置）的 Property 过程的主体。
[Public | Private] Property Let name ([arglist,] value
)
[statement]
[Exit Property]
[statement]
End Property
参数
Public
表明 Property Let 过程可以被所有脚本中的其他所有过程访问。
Private
表明 Property Let 过程只能被定义之的 Class 块内的其他过程访问。
name
Property Let 过程的名称；遵守标准的变量命名规则，区别仅仅在于其名称可以与相同 Class 块中的 Property Get 或 Property Set 过程相同。
arglist
该变量列表代表了在调用时被传递到 Property Let 过程的参数。多个参数之间用逗号隔开。Property Let 过程的每个参数的名字必须与 Property Get 过程中的相应参数相同。此外， Property Let 过程的参数比相应的 Property Get 过程总要多一个。该参数为被赋予属性的值。
value
该变量中包含要赋予属性的值。当过程被调用时，该参数将出现在调用表达式的右侧。
statement
任意的一组语句，将在 Property Let 过程的主体内执行。
注意每个 Property Let 语句必须为所定义的属性定义至少一个参数。该参数（在存在多个参数时的最后一个参数）包含了当 Property Let 语句被调用时要赋予属性的值。该参数在前面的语法中被称为value。
说明
如果未明确地使用 Public 或 Private进行指定，Property Let 过程被缺省设置为公有的，即它们对于脚本内的其他所有过程都是可见的。Property Let过程中的局部变量的值在不同的过程调用之间是不被保存的。
在其他任何过程（例如 Function 或 Property Get）的内部不能够定义 Property Let 过程。
Exit Property 语句将导致立即从 Property Let 过程中退出。程序将从调用 Property Let 过程的语句之后的点继续执行。Exit Property 语句可以出现在 Property Let 过程中的任何位置，次数不限。
与 Function 和 Property Get 过程类似，Property Let 过程是一个单独的过程，它可以接受参数，执行一系列的语句，还可以改变参数的值。不过，与Function 和 Property Get 过程不同的是，它们两者都返回一个值，而Property Let过程只能用于属性赋值表达式的左侧。
例子：
Class myClass1
Public a1,a2
Public Property Let a3(ByVal a5)
a3=a5 ＆ " good"
a1=a5
End Property
End Class

Dim x
Set x=New myClass1
x.a3=8
response.Write("x.a1+x.a2="＆x.a1＆"〈br〉")
x.a1=1
x.a2=2
Response.Write("x.a1="＆x.a1＆"〈br〉")
Response.Write("x.a2="＆x.a2＆"〈br〉")
运行结果为：
x.a1+x.a2=8
x.a1=1
x.a2=2

对属性只写，必须有一个参数用于接受外来的赋值
===================================================================================
Property Set 语句
在 Class 块中，声明名称、参数和代码，这些构成了将引用设置到对象的 Property 过程的主体。
[Public | Private] Property Set name(
[arglist,] reference
)
[statement]
[Exit Property]
[statement]
End Property
参数
Public
表明 Property Set 过程可以被所有脚本中的其他所有过程访问。
Private
表明 Property Set 过程只能被声明之的同一 Class 块中的其他过程访问。
name
Property Set 过程的名称；遵守标准的变量命名规则，不过该名称可以与同一个 Class 块中的 Property Get 或 Property Let 过程相同。
arglist
变量列表，代表在 Property Set 过程被调用时传递给它的参数。多个参数之间用逗号分隔开。此外，Property Set 过程将总是比它相应的 Property Get 过程多一个参数。这个多出来的参数是被赋予的对象。
reference
变量，其中包含被用于对象引用赋值的右侧的对象引用。
statement
将要在 Property Set 过程主体中执行的任何一组语句。
注意每个 Property Set 语句都必须为所定义的过程定义至少一个参数。当 Property Set 语句所定义的过程被调用时，该必需参数（在多个参数时为最后一个参数）中将为属性提供实际的对象引用。在前面的语法中，该参数被称为引用。
说明
除非使用 Public 或 Private 明确地进行指定，否则 Property Set 过程被设置为缺省的公有模式，即脚本中的其他所有过程都是可见的。在不同的过程调用时，Property Set 过程中的局部变量是不保存的。
在其他任何过程（例如Function或Property Let）中都不能够定义Property Set过程。
Exit Property 语句将导致立即从 Property Set 过程中退出。程序将继续执行调用 Property Set 过程之后的语句。Exit Property 语句的数量不受限制，可以出现在 Property Set 过程中的任何位置。
与 Function 和 Property Get 过程类似，Property Set 过程是一个单独的过程，它可以有若干参数，执行一系列的语句，还可以改变参数的值。然而，与 Function 和 Property Get 过程不同的是，函数和过程都可以返回值，而 Property Set 过程对象引用赋值（Set 语句）的左侧。
例子：
Class myClass1
Public a1,a2
Private a5
Public Property Set a3(reference)
Dim conn,connStr
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" ＆ Server.MapPath("count.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connStr
reference.open "SELECT * FROM wenzi",conn,1,1
a5=reference.recordcount
conn.Close
Set conn=Nothing
End Property
Public Property Get a3()
a3=a5
End Property
End Class

Dim x
Set x=New myClass1
Set x.a3=server.CreateObject("ADODB.Recordset")
response.Write("x.a1+x.a2="＆x.a3＆"〈br〉")
x.a1=1
x.a2=2
Response.Write("x.a1="＆x.a1＆"〈br〉")
Response.Write("x.a2="＆x.a2＆"〈br〉")
运行结果：
x.a1+x.a2=21900
x.a1=1
x.a2=2