类的声明

一个类的名称是定义一个变量，属性和方法使一个类。我们经常看到类的描述，所有其他的编程语言PHP，VB，C++，在类的描述语言，是我第一次听到，我们负责网站开发，使更多或更少的经验里面，也叫自己像模像样的专家，所以我分享这一新事物我知道。让我们看看下面的代码！（Window2000 + IIS5.0通过测试）

类1的定义

yyh.asp
<
'声明一个名为YH
类容

私人YH

类的初始化
私有子class_initialize
YH =风和云的世界
端子

定义函数
公共职能的叶永辉（A，B）
叶永辉= A + B
端功能

定义方法
公共子yyh1（STAT）
response.write统计
端子

类的结束

集myyyh =新YH定义了一个对象实例命名myyyh YH
response.write myyyh.yyh（6,6）
mystring =这个世界就是这样的。
myyyh.yyh1 mystring

%>

这是一个很简单的程序，我们声明一个类为YH，建立一个yyh1叶永辉函数方法。这个程序很简单，我相信你能理解。

十二
这就是世界之路。

我们可以编写一个程序，通常作为类使用，然后将它包含在程序中，这给我们提供了开发程序的新空间。


类2的定义

这里使用类的属性定义方法。

<
这是一个名为MyClass
类

私人A1，B1

类的初始化
私有子class_initialize
A1 = 0
B1 = 0
端子

定义属性
公共财产允许宽度（AX）
A1 = AX
最后的财产

定义另一个属性
公共财产让高度（BX）
B1 = BX
最后的财产

''计算两个属性值的结果，并获得一个新属性。
公共财产获得区
区域= B1×A1
最后的财产

类的结束

集天涯= new MyClass定义一个对象实例命名Tianya命名的MyClass
Tianya，宽度= 50
Tianya身高= 60
response.write tianya.area
%>


一个完整的数据库管理ASP类模型

世界的尽头

首先使用名为用户的表构建数据库用户。
表单中有三个字段：id、名称、内容

首先写入数据库连接文件：
conn.

<
如何=DBQ =+ server.mappath（用户.mdb）+；司机= {微软Access Driver（* .mdb）}；
设置conn = server.createobject（数据连接）
conn.open如何
%>

构建userclass类：
mycls.asp
<
类userclass
私有ID、名称、内容

的私人子class_initialize初始化（）的类，连接数据库
用户名
usercontent =
端子

以下类集的几个属性
公共财产让用户标识符（vnewvalue）
ID = Cint（vnewvalue）
最后的财产

公共财产得到用户名
用户名= ID
最后的财产


公共财产让用户名（vnewvalue）
名称= vnewvalue
最后的财产

公共属性获取用户名
用户名=名称
最后的财产

公共财产让usercontent（vnewvalue）
内容= vnewvalue
最后的财产

公共财产得到usercontent
usercontent =内容
最后的财产

添加记录
Public sub addUser ()
如果用户名和usercontent<><>然后
集=服务器。Createobject（ADODB。记录集）
从用户选择
的。打开SQL，Conn，1,3
rs.addnew
RS（name）=用户名
RS（内容）= usercontent
更新的。
关闭
设置=无
response.write添加记录成功！
最后如果
端子


显示记录
公共子显示当前的用户名（）
集= server.createobject（ADODB。记录集）
SQL =SELECT * FROM用户id是用户名
rs.open sql，Conn，1,3
用户名= RS（name）
usercontent = RS（内容）
关闭
端子

编辑记录
公共子编辑（）
集= server.createobject（ADODB。记录集）
SQL =SELECT * FROM用户id是用户名
rs.open sql，Conn，1,1
用户名= RS（name）
usercontent = RS（内容）
关闭
端子

保存编辑
公共子SaveEdit（）
集= server.createobject（ADODB。记录集）
SQL =SELECT * FROM用户id是用户名
rs.open sql，Conn，1,3
RS（name）=用户名
RS（内容）= usercontent
rs.update
关闭
response.write更新记录成功！
端子

删除记录
公共子deluser（）
集= server.createobject（ADODB。记录集）
SQL =删除用户id是用户名
rs.open sql，Conn，1,1
设置=无
response.write删除记录成功！
端子

挑战分页显示！！
公共子列表（n）
昏暗的页面
页=请求（页）
PageSize = N
昏暗的RS，StrSQL，新闻
如何=SELECT * FROM用户订单ID号

集= server.createobject（ADODB。记录集）
Rs.open strSQL，Conn，3
rs.pagesize = PageSize
totalfilm = rs.recordcount
pgnum = rs.pagecount
如果页面= 或CLng（页）< 1页= 1
如果CLng（页）> pgnum然后页面= pgnum
如果pgnum > 0然后rs.absolutepage =页

如果rs.eof然后
response.write 没有记录！
其他的
数= 0
而不是（rs.eof或rs.bof）和计数＜rs.pagesize
响应
写
写RS（）
写
写RS（）
写
写内容
写
结束
移到下一项
计数=计数+ 1
环
最后如果
响应
写普通
写rs.pagecount。
写页
我rs.pagecount = 1
写
写我。
写
下一个
关闭
设置=无
写
结束
端子


班退后，打扫干净了。
私有子class_terminate（）
如果IsObject（CONN）然后康涅狄格州接近：设置conn =没有
端子
类的结束
%>
（上面的程序是winxpsp2 + NetBox通过）