e(ByVal strVar)
strExapmle = strVar
End Property

'//---------------------------定义类的输出属性-------------------------------//

'//----定义类的属性，该属性是返回一个版本号

Public Property Get Version
Version = strVersion
End Property

'//----定义类的属性，该属性是返回该类的作者号

Public Property Get Author
Author = strAuthor
End Property

'//----定义类的属性，该属性是返回一个版本号

Public Property Get Exapmle
Exapmle = strExapmle
End Property

End Class
</script>
<%
'//-------这里是使用该类的例子
Dim oneNewClass
Set oneNewClass = New myClass
Response.Write "作者：" & oneNewClass.Author & "<br>"
Response.Write "版本：" & oneNewClass.Version & "<br>"
oneNewClass.setExapmle = "这是一个简单类的例子"
Response.Write "用户自定义：" & oneNewClass.Exapmle & "<br>"
oneNewClass.Information
Set oneNewClass = Nothing
%>

上一页  [1] [2] 

在google里搜索更多关于ASP的(VBScript)类

	Web www.51ec.org

上一篇信息学院： 加速ASP程序的显示速度

下一篇信息学院： 如何防范SQl注入