تقوم الدالة Asp بإرجاع رمز النوع المرجعي، ويمكن للأصدقاء المحتاجين الرجوع إليه. انسخ رمز الكود كما يلي:
<%
تعيين Studentinstance = CreateStudent()
إذا لم يكن فارغًا (مثيل الطالب) إذن
Response.write(StudentId:&studentinstance.StudentId&<Br/>)
Response.write(StudentName:&studentinstance.StudentName&<Br/>)
نهاية إذا
وظيفة إنشاء طالب ()
تعيين مسمار = طالب جديد
Stud.StudentId=123
Stud.StudentName=اريك ليو
تعيين CreateStudent=stud
وظيفة النهاية
طالب الصف
معرف خاص
اسم خاص
الملكية العامة تسمح لـ StudentId(id_)
معرف=id_
الملكية النهائية
الملكية العامة getStudentId
معرف الطالب = معرف
الملكية النهائية
الملكية العامة تسمح لـ StudentName(name_)
الاسم=الاسم_
الملكية النهائية
الملكية العامة getStudentName
اسم الطالب = الاسم
الملكية النهائية
نهاية الفصل
%>