<
% @ Language = "vbscript" CodePage = "936"%>
Function chool () {// base class, school
Public: // meaningless
THIS.GETNAME = Function_getname;
}
Function function_getname (Strname) {// Get school name method
Return Strname;
}
Function class () {// inherited class, class
PUBLIC:
THIS.GETCLASS = Function_getClass;
EXTENDS:
THIS.PARENT = CHOOL;
THIS.PARENT ();
}
Function function_getclass (strclassid) {// Get class ID method
Return strclassid;
}
Var mychool = new chool ();
Var myclass = new class ();
Var thename1 = "World Joint University";
Var Thename2 = "China United University";
VarTeclassID = "10001";
Alert (mychool.getname (thename1));
Alert (myclass.getname (thename2));
Alert (MyClass.GetClass (TheclassID));
->
Script>