موصى به: وظيفة معالجة وقت ASP وظيفة وقت التحويل. الوقت المعالجة في kingcms قوي للغاية ، بحيث يمكنك التحقق من ذلك إذا كان لديك وقت. وظيفة التاريخ () في PHP قوية للغاية لدرجة أنني لا يسعني إلا استخدام ASP لتقليدها ... لكنني كتبت ذلك حتى اليوم ، لكنني لم أكتبها بعد. لذا ، لم يتم تنسيق هذه الوظيفة بعد ساعات ودقائق وثواني ، وسأضيفها بعد الوقت. ٪ '******
كما ذكرنا سابقًا ، هذا يدفع بعض الوظائف معًا. في الواقع ، من الأفضل وضع بعض أساليب مجموعة الوظائف في البرنامج.
الوظائف الرئيسية:
1. إنشاء مجلد حذف
2. احصل على اسم وعدد المجلدات في مجلد
3. احصل على اسم الملف وعدد الملفات في مجلد
4. تحقق مما إذا كان هناك مجلد
5. تحقق مما إذا كان هناك ملف
6. حذف الملف
7. اقرأ محتوى الملف
7. قم بإنشاء ملف واكتب المحتويات في هذا الملف
بشكل عام ، هناك وظيفتان: إحداها هي تشغيل الملفات والآخر هو تشغيل المجلد. لقد كتبت للتو بناءً على احتياجاتي من "نظام إدارة الوظائف عبر الإنترنت" وهو غير مناسب للجميع ...
<٪
'******************************
'الاسم: فئة التشغيل FSO
المؤلف: لينغ يوي ، Xilou
التاريخ: 2006-3-1
'الموقع: www.xilou.net/ | www.chinacms.org
الوصف: فئة التشغيل FSO
'******************************
فئة fsocls
FSO '// كائن
كائن الواجهة العامة // كائن الواجهة العامة
'// التهيئة ، مُنشئ
sub class_initialize الخاص
set fso = createObject ("scripting.filesystemObject")
تعيين fsoObj = fso
نهاية الفرعية
'// end ، حرر المُنشئ
sub class_terminate الخاص
تعيين fso = لا شيء
تعيين fsoObj = لا شيء
نهاية الفرعية
'==============================================================
وظيفة isfilexists (Byval Filedir)
الحكم على ما إذا كان الملف موجود. ارجع صحيحًا إذا كان موجودًا ، وإلا عد كاذبة
'المعلمة filedir هو المسار المطلق للملف
إذا fso.filexists (filedir) ثم
isfilexists = صحيح
آخر
isfilexists = خطأ
إنهاء إذا
وظيفة نهاية
وظيفة getFileText (Byval Filedir)
"اقرأ محتوى الملف ، إذا كان موجودًا ، فإنه يعيد محتوى الملف ، وإلا فإنه يعيد خطأ
'المعلمة filedir هو المسار المطلق للملف
إذا isfilexists (filedir) ثم
قاتمة و
تعيين f = fso.opentextFile (FileDir)
getFileText = f.readall
تعيين f = لا شيء
آخر
getFileText = خطأ
إنهاء إذا
وظيفة نهاية
وظيفة CreateFile (Byval Filedir ، Byval FileContent)
"إنشاء ملف وكتابة المحتوى
تعود العملية بشكل صحيح للنجاح ، وإلا فإنها تعود كاذبة
إذا isfilexists (filedir) ثم
createFile = false
وظيفة الخروج
آخر
قاتمة و
تعيين f = fso.createTextFile (FileDir)
F.Write fileContent
CreateFile = صحيح
F.Close
إنهاء إذا
وظيفة نهاية
دالة دلفيل (بيفال Filedir)
حذف ملف وإرجاع صحيح بنجاح ، وإلا فإن إرجاع خطأ
'المعلمة filedir هو المسار المطلق للملف
إذا isfilexists (filedir) ثم
fso.deletefile (filedir)
delfile = صحيح
آخر
delfile = خطأ
إنهاء إذا
وظيفة نهاية
مشاركة: فئة الأحداث ASP ASPLIB-EVENTProvider.class.asp تستخدم للحصول على IP ، إلخ. المؤلف دقيق للغاية لدرجة أنه يلف كل هذه الأشياء في فصول. لقد انتهى الأمر قليلاً. يمكن تغليف هذه الأشياء كعمليات أو وظائف. يتم تغليف الفرعية والوظيفة أيضًا ، ولا يجب أن تكون فئة. مكتبة الملفات الخاصة بك ليست بالضرورة كل الفصل ، وبعضها ضروري. تشمل الوظائف المنفذة 1 ، ShowInfo (E_Title ، C_URL ، E_N
صفحتان في إجمالي الصفحة السابقة 12 الصفحة التالية