代碼如下:

<% 
set studentinstance = CreateStudent() 
if not isnull(studentinstance) then 
Response.write("StudentId:"&studentinstance.StudentId&"<Br/>") 
Response.write("StudentName:"&studentinstance.StudentName&"<Br/>") 
end if 

Function CreateStudent() 
set stud = new Statudent 
stud.StudentId=123 
stud.StudentName="Eric liu" 
set CreateStudent=stud 
End Function 

Class Statudent 
private id 
private name 

public property let StudentId(id_) 
id=id_ 
end property 
public property get StudentId 
StudentId=id 
end property 

public property let StudentName(name_) 
name=name_ 
end property 
public property get StudentName 
StudentName=name 
end property 

End Class 
%>