أعزائي الطلبة.. وأحبائي الأطفال
عليكم بالرقص لمواجهة مشكلة البدانة التي تفشت بينكم في الفترة
الأخيرة.. واعلموا ان الرقص لن يكون اختياريا بالنسبة لكم بل سيكون
اجباريا اعتبارا من أول سبتمبر القادم.
هكذا قالت صحيفة "تشاينا ديلي الصينية" في صدر صفحتها الأولي..
"الرقص سيكون اجباريا في مدارس الصين" اعتبارا من العام الدراسي
القادم.
قالت الصحيفة ان المسئولين اتخذوا هذا القرار بعد ارتفاع معدلات
البدانة بين طلبة المدارس الصينية.. ويرجع ذلك في رأي هؤلاء
المسئولين الي طول ساعات الدراسة وازدحامها بالمقررات بما لا يترك
وقتا للطلبة للحركة والنشاط فينعكس ذلك علي أوزانهم.
وتوصل المسئولون هناك الي حل
مبتكر وهو الرقص.. وحسبما تقول الصحيفة فان وزارة التعليم انتهت من
تصميم عدة رقصات يمكن أن يختار منها الطلبة.. وهذه الرقصات تم
تصميمها علي أيدي خبراء متخصصين بحيث تراعي كافة النواحي النفسية
والشخصية لدي الاناث والذكور علي حد سواء.. كما تتفق مع المراحل
السنية المختلفة.
والأهم ان هذه الرقصات سوف تكون ذات طابع صيني ومأخودة من رقصات
صينية شهيرة حتي لا تبعث علي الملل لدي الطلبة والتلاميذ.
أما الوقت المناسب لهذه الرقصات فسيكون بين الحصص.. ويمكن اذا كان
ذلك ممكنا ان تكون هناك حصة اضافية للرقص في نهاية اليوم الدراسي.
ولم تذكر الصحيفة أي معلومات عن العقاب الذي يوقع علي من يرفض
الرقص أو المكافأة التي سيحصل عليها الراقصون.
أشارت الصحيفة الي احتمال تسجيل درجات في الرقص وما يصاحبه من
لياقة بدنية يمكن أن تضاف الي درجات الطالب.. وتنبه الصحيفة
الطلبة الي ان هناك جامعات حقيقية بدأت بالفعل في اعتماد معيار
اللياقة البدنية للسماح للطلبة بالالتحاق بها ولم تعد تكتفي
بالدرجات العالية فقط.
ويتزامن ذلك مع حكم أصدرته محكمة
صينية أبدت فيه تأييدها شركة الطيران الوطنية في قرارها بمنع عدد
من المضيفات الجويات من العمل علي طائراتها بسبب الزيادة الكبيرة
في أوزانهن.
<%
Dim fsoObject 'File System Object
Dim tsObject 'Text Stream Object
Dim filObject 'File Object
Dim lngVisitorNumber 'Holds the visitor number
Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt"))
Set tsObject = filObject.OpenAsTextStream
lngVisitorNumber = CLng(tsObject.ReadAll)
lngVisitorNumber = lngVisitorNumber + 1
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt"))
tsObject.Write CStr(lngVisitorNumber)
'Reset server objects
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber)
Response.Write("")
Next
%>
