在asp编写类_asp自定义new collection类-CSDN博客

本文链接：https://blog.csdn.net/caobin518/article/details/602120

<%
'在 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变量作为属性使用的测试－－－－－－－－ "

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

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&"。谢谢您提供数据！ "
End Property

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

Public Function myresult
myresult=" "&out&"－－这个可是函数 "
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
%>

本文说明如何在ASP中使用类和对象。
========================================================

本文我将说明如何在ASP中使用类和对象。首先，必须先了解一下什么是类和对象。

类和对象：
关于类定义的说明有好几种。我认为可以简单地定义为，类是一种提供特定方法的数据类型。[译者注：C++刚从C衍生出来的时候，类被定义为”带方法的结构“。我认为用”封装的数据(成员、属性、方法)集合“可能更贴切。]
对象(或者类的实例)可以被描述为使用由类提供的方法的变量。[译者注：对象和实例略有不同。使用指针或引用自身时，不可作为实例。]

如何在ASP中使用类呢？
首先要建立类。作为例子，下面建立一个超链接的类。这个例子没有什么意义，我只是用它说明如何建类。
1: Class Navigation
2: Public nav_url
3: Public nav_title
4:
5: Public Property GET nav_link
6:
7: nav_link="<a href=" & chr(34) & nav_