<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%Class myClass '//----声明（声明就是定义）私有变量用[Private] 全局变量用[Public]。 Private strAuthor,strVersion,strExapmle Public userIP,comeURL '//---------------------------定义类的事件-------------------------------// '//----Class_Initialize()是类的初始化事件，只要一开始使用该类，首先会触发该部分的执行。 Private Sub Class_Initialize() strAuthor = "Eric" strVersion = "1.00" userIP = request.ServerVariables("HTTP_X_FORWARDED_FOR") If userIP = "" Then userip = request.ServerVariables("REMOTE_ADDR") comeURL = lcase(Trim(request.ServerVariables("HTTP_REFERER"))) if comeURL = "" then comeURL = "用户直接输入地址而来。" End Sub '//----Class_Terminate()是类的结束事件，只要一退出该类，就会触发该事件。 Private Sub Class_Terminate() Response.Write ("<br>myClass结束了<br>") End Sub '//---------------------------用户自己定义的方法-------------------------------// Public Function Info() info = "Coding By <a href='mailto:yang2jun@msn.com'>Eric</a><br>" End Function '//----------------定义类的属性，设置私有变量strExapmle的值-------------------------------// Public Property Let setExapmle(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%><html><head><title>自由组合预订</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body><% Dim newClass set newClass = New myClass Response.Write ("作者：" & newClass.Author &"<br>")Response.Write ("版本：" & newClass.Version &"<br>") newClass.setExapmle = "这是一个简单类的例子" Response.Write ("类实例：" & newClass.Exapmle &"<br>") Response.Write ("用户IP：" & newClass.userIP &"<br>")Response.Write ("用户从何而来：" & newClass.comeURL &"<br>") Response.Write ("一些信息：" & newClass.info() &"<br>") Set newClass = Nothing %></body></html> http://218.77.136.4/test/myclass.asp
评论