ASP中类的调用(转)

1，类文件c1.asp：主要是类存放的文件，方便其它页面调用。
<%
Class myclass'声明一个名为mycalss的类

Private myclass'初始化类
Private Sub Class_Initialize
myclass="My Name is myclass."
End Sub

Public Function showit() '定义一个函数
showit=myclass
End Function

Public Sub QueryStr(what) '定义一个方法
Response.write what
End Sub

End Class
%>

2，应用类的文件testc.asp
<!--#include file="c1.asp"-->
<%
Set aaa=New myclass'定义一个名为aaa的cnbruce对象实例
response.write aaa.showit
varstr="Welcome to http://www.myclass.com"
aaa.QueryStr(varstr)
%>

OK，现在你可以调试结果了。

当然，这只是牛刀小试，慢慢你会发现有关ASP的类太多了，功能也更强大了……