复制代码 代码如下:

<%

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

%>