موصى به: كيفية إنشاء صفحة التحقق من تسجيل الدخول البرنامج النصي للتحقق من تسجيل الدخول المستخدم ، chkpwd.asp ما يلي هو المحتوى المشار إليه: ٪ '============ كاذب ، مما يشير إلى أنه لا يوجد
في رمز العينة الموضح في هذا القسم ، يتم توفير أمثلة واقعية لتوضيح العديد من الميزات المتوفرة في نمط كائن نظام الملفات. يعرض هذا الرمز جميع ميزات كيفية استخدام أنماط الكائن معًا ، وكيفية استخدامها بفعالية في الكود الخاص بك.
لاحظ أنه نظرًا لأن الرمز عام للغاية ، فقد يتطلب الأمر بعض التعليمات البرمجية الإضافية والتغييرات الطفيفة لجعله يعمل على جهازك. هذه التغييرات ضرورية لأن الأساليب المختلفة تستخدم لمنح المستخدمين الإدخال والإخراج بين صفحات الخادم النشطة ومضيف البرمجة النصية Windows.
لتشغيل الرمز على صفحات الخادم النشطة ، اتخذ الخطوات التالية:
قم بإنشاء صفحة ويب قياسية مع اللاحقة المسماة .asp.
انسخ العينة التالية في الملف بين علامات <Body> ... </body>.
تغليف جميع الكود في علامة <٪ ... ٪>.
انقل العبارة الصريحة للخيار من الموقع الحالي إلى أعلى صفحة HTML ، حتى قبل أن يبدأ <html> في وضع العلامات.
ضع علامة <٪ ... ٪> حول البيان الصريح للخيار للتأكد من تشغيله على جانب الخادم.
أضف الرمز التالي إلى نهاية رمز المثال:
طباعة فرعية (x) استجابة
يضيف الرمز السابق عملية طباعة تعمل على جانب الخادم ولكنها تعرض النتائج على جانب العميل. لتشغيل الرمز على مضيف برنامج Windows Scripting ، أضف الرمز التالي إلى نهاية رمز العينة:
طباعة فرعية (x) wscript.echo x end sub main
ما يلي هو رمز العينة:
| ما يلي هو المحتوى المقتبس: ------------------------------------------------- --------------------------------- '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'FileSystemObject Sample Code ' "حقوق الطبع والنشر 1998 Microsoft Corporation. جميع الحقوق محفوظة. ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' الخيار صريح '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' |
'لجودة الرمز:
'
"1) يحتوي الكود التالي على العديد من عمليات السلسلة ، باستخدام" & amp ؛ & quot ؛ مشغل لتسلسل السلاسل القصيرة معًا. لأن
"تسلسل السلسلة مضيعة للوقت ، لذلك هذه طريقة غير فعالة لكتابة الرمز. على أي حال ، هو كذلك
'طريقة تم الحفاظ عليها جيدًا في كتابة رمز ، ويتم استخدام هذه الطريقة هنا لأن البرنامج ينفذ
'عدد كبير من عمليات القرص ، والتي تكون أبطأ بكثير من عمليات الذاكرة المطلوبة لتوصيل السلاسل.
تذكر أن هذا هو رمز العرض ، وليس رمز المنتج.
'
"2)" الخيار الصريح "يستخدم لأن الوصول إلى المتغيرات المعلنة أكثر أهمية من الوصول إلى المتغيرات غير المعلنة
'أسرع قليلا. يمكن أن يمنع أيضًا الأخطاء في الكود ، على سبيل المثال ، تهجئة DriveTypecdrom عن طريق الخطأ
"تصبح محرك الأقراص.
'
3) لجعل الكود أكثر قابلية للقراءة ، لا يوجد معالجة خطأ في هذا الرمز. على الرغم من اتخاذ تدابير وقائية لضمان الكود
في الحالات العادية ، لا توجد أخطاء ، لكن نظام الملفات لا يمكن التنبؤ به. في رمز المنتج ، استخدم
عند استئناف الخطأ بعد ذلك وتراجع الكائنات لالتقاط الأخطاء المحتملة.
ما يلي هو المحتوى المقتبس: ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' بعض المتغيرات العالمية التي يمكن الحصول عليها بسهولة ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' Dim Tabstop قاتمة Newline const testDrive = "C" const testfilepath = "C: اختبار" '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' "ثابت عائد بواسطة drive.drivetype ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' const drivetyperemovable = 1 const drivetypefixed = 2 const drivetypenetwork = 3 const drivetypecdrom = 4 const drivetyperamdisk = 5 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' "ثابت يتم إرجاعه بواسطة file.attributes ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' const fileattrnormal = 0 const fileattrreadonly = 1 const fileattrhidden = 2 const fileattrsystem = 4 const fileattrvolume = 8 const fileattrdirectory = 16 const fileattrarchive = 32 const fileattralias = 64 const fileattrompressed = 128 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' الثابت المستخدم لفتح الملف ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' const openfileforreading = 1 const OpenFileforwriting = 2 const OpenFileForAppendending = 8 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'showdrivetype ' ' غاية: ' قم بإنشاء سلسلة تصف نوع محرك الأقراص لكائن محرك معين. ' "إظهار ما يلي ' ' - drive.drivetype ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' وظيفة showdrivetype (محرك) قاتمة حدد case drive.drivetype حالة drivetyperemovable s = "قابلة للإزالة" CASE CRIVETYPEFIXED s = "ثابت" حالة الحكم s = "الشبكة" Case SpriveTypecdrom S = "CD-ROM" حالة drivetyperamdisk s = "قرص رام" حالة أخرى s = "غير معروف" نهاية الاختيار showdrivetype = s وظيفة نهاية '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'showfileattr ' ' غاية: ' قم بإنشاء سلسلة تصف خصائص ملف أو مجلد. ' "إظهار ما يلي ' ' - file.attributes ' - المجلد ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' وظيفة showfileattr (ملف) 'يمكن أن يكون ملف أو مجلد قاتمة DIM ATTR attr = file.attributes إذا attr = 0 ثم showfiLeattr = "Normal" وظيفة الخروج إنهاء إذا إذا كانت attr و fileattrdirectory ثم S = S & amp ؛ إذا كانت attr و fileattrreadonly ثم s = s & amp ؛ إذا كانت attr و fileattrhidden ثم S = S & amp ؛ إذا كان نظام ATTR و FileAttrsypy ثم S = S & amp ؛ إذا كانت attr و fileattrvolume ثم S = S & amp ؛ إذا كانت attr و fileattrarchive ثم S = S & amp ؛ إذا كانت attr و fileattralias ثم S = s & amp ؛ إذا كانت attr و fileattrombressed ثم s = s & amp ؛ showfiLeattr = s وظيفة نهاية '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' ' ' ' غاية: ' قم بإنشاء سلسلة تصف الحالة الحالية لمحرك الأقراص المتاح. ' "إظهار ما يلي ' ' - fileystemobject.drives ' - تكرار مجموعة محركات الأقراص ' - محركات الأقراص ' - drive.availablespace ' - drive.driveletter ' - drive.drivetype ' - drive.filesystem ' - drive.freespace ' - drive.isready ' - Drive.Path ' - Drive.SerialNumber ' - drive.sharename ' - drive.totalsize ' - drive.volumename ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' وظيفة enderatedRiveInformation (FSO) محركات قاتمة محرك قاتم قاتمة تعيين محركات الأقراص = fso.drives S = عدد محركات الأقراص: "& amp ؛ بناء السطر الأول من التقرير. S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ بناء السطر الثاني من التقرير. S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ صفوف منفصلة. S = S & amp ؛ لكل محرك في محركات الأقراص s = s & amp ؛ s = s & amp ؛ S = S & amp ؛ s = s & amp ؛ إذا كان drive.isready ثم إذا تم تحريكها = drive.drivetype ثم S = S & amp ؛ آخر s = s & amp ؛ إنهاء إذا S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ إنهاء إذا S = S & amp ؛ التالي enderatedRiveInformation = s وظيفة نهاية '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'GenerateFileInformation ' ' غاية: ' إنشاء سلسلة لوصف الوضع الحالي للملف. ' "إظهار ما يلي ' ' - file.path ' - file.name ' - file.type ' - file.datecreated ' - file.datelastAccated ' - file.datelastmodified ' - file.size ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' وظيفة generateFileInformation (ملف) قاتمة s = newline & amp ؛ S = S & amp ؛ S = S & amp ؛ s & amp ؛ S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ generatefileInformation = s وظيفة نهاية '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'GenerateFolderInformation ' ' غاية: ' إنشاء سلسلة لوصف الوضع الحالي للمجلد. ' "إظهار ما يلي ' ' - المجلد ' - المجلد ' - المجلد ' - المجلد ' - المجلد. datelastmodified ' - المجلد ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' وظيفة generatefolderInformation (مجلد) قاتمة S = "Path:" & amp ؛ S = S & amp ؛ s & amp ؛ S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ S = S & amp ؛ generatefolderInformation = s وظيفة نهاية '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'GeneratealLoDerInformation ' ' غاية: ' قم بإنشاء سلسلة لوصف الحالة الحالية للمجلد وجميع الملفات والمجلدات الفرعية. ' "إظهار ما يلي ' ' - المجلد ' - المجلد ' - مجلدات ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' وظيفة generatealloDerInformation (مجلد) قاتمة المجلدات الفرعية الخافتة المجلد الفرعي الخافت ملفات قاتمة ملف قاتمة S = المجلد: "& amp ؛ اضبط الملفات = Folder.files إذا 1 = files.count ثم S = S & amp ؛ آخر S = Amp ؛ إنهاء إذا if files.count & lt ؛ & gt ؛ لكل ملف في الملفات S = S & amp ؛ التالي إنهاء إذا تعيين المجلدات الفرعية = المجلد. إذا كان 1 = المجلدات الفرعية. S = S & amp ؛ آخر s & amp newline & quot ؛ إنهاء إذا إذا كانت المجلدات الفرعية لكل مجلد فرعي في المجلدات الفرعية S = S & amp ؛ التالي S = S & amp ؛ لكل مجلد فرعي في المجلدات الفرعية S = S & amp ؛ التالي إنهاء إذا generateallfolderInformation = s وظيفة نهاية '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'generateTestInformation ' ' غاية: ' قم بإنشاء سلسلة لوصف الحالة الحالية لمجلد C: اختبار وجميع الملفات والمجلدات الفرعية. ' "إظهار ما يلي ' ' - fileystemobject.drivexists ' - fileystemobject.folderexists ' - fileSystemObject.getFolder ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' وظيفة generatetestinformation (FSO) خافت Testfolder قاتمة إذا لم يكن fso.drivexists (TestDrive) ، فإن وظيفة الخروج إذا لم يكن fso.folderexists (testFilePath) ثم وظيفة الخروج تعيين testfolder = fso.getfolder (testFilePath) generateTestInformation = generatealloDerInformation (testfolder) وظيفة نهاية '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' حذف ' ' غاية: ' تنظيف دليل الاختبار. ' "إظهار ما يلي ' ' - fileSystemObject.getFolder ' - fileSystemObject.deletefile ' - fileystemobject.deletefolder ' - المجلد ' - file.delete ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' Sub DeletEtestDirectory (FSO) خافت Testfolder المجلد الفرعي الخافت ملف قاتمة <a name = deletefile> هناك طريقتان لحذف ملف: fso.deletefile (testfilepath & amp ؛ & quot ؛ beatlesoctopusgarden.txt & quot ؛) set file = fso.getFile (testfilepath & amp ؛ & quot ؛ beatlesbathroomwindow.txt & quot ؛) file.delete 'هناك طريقتان لحذف مجلد: fso.deletefolder (testFilePath & amp ؛ & quot ؛ Beatles & quot ؛) fso.deletefile (testFilePath & amp ؛ & quot ؛ readme.txt & quot ؛) تعيين testfolder = fso.getfolder (testFilePath) testfolder.delete نهاية الفرعية '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'المعلقات ' ' غاية: ' إنشاء ملفين نصي في المجلد. ' ' "إظهار ما يلي ' ' - fileSystemObject.createTextFile ' - TextStream.Writeline ' - textstream.write ' - textstream.writeBlanklines ' - TextStream.Close ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' المخلوقات الفرعية (مجلد) Dim Textstream </a> <a name = createTextFile> تعيين textstream = folder.createTextFile (& quot ؛ octopusgarden.txt & quot ؛) </a> <a name = writetofile> TextStream.write (& quot ؛ Octopus 'Garden & quot ؛) "لاحظ أن هذا البيان لا يضيف لفات الخط إلى الملف. TextStream.Writeline (& quot ؛ (بواسطة Ringo Starr) & quot ؛) TextStream.WriteBlanklines (1) textstream.writeline (& quot ؛ أود أن أكون تحت البحر في حديقة الأخطبوط في الظل ، & quot ؛) textstream.writeLine (& quot ؛ لقد سمح لنا بالدخول ، يعرف أين كنا - في حديقة الأخطبوط في الظل. & quot ؛) TextStream.WriteBlanklines (2) </a> <a name = close> TextStream.Close تعيين textstream = folder.createTextFile (& quot ؛ Bathratwindow.txt & quot ؛) TextStream.Writeline (& quot ؛ جاءت عبر نافذة الحمام (بواسطة Lennon/McCartney) & quot ؛) textstream.writeline (& quot ؛ & quot ؛) textstream.writeline ("جاءت من خلال نافذة الحمام محمية بواسطة ملعقة فضية") TextStream.Writeline (& quot ؛ لكنها الآن تمتص إبهامها وتجولها من قبل ضفاف البحيرة الخاصة بها & quot ؛) TextStream.WriteBlanklines (2) TextStream.Close نهاية الفرعية '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'getlyrics ' ' غاية: ' إظهار محتويات ملف كلمات. ' ' "إظهار ما يلي ' ' - fileSystemObject.OpentExtFile ' - fileSystemObject.getFile ' - TextStream.Readall ' - TextStream.Close ' - file.openastextstream ' - textstream.atendofstream ' - TextStream.Readline ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' وظيفة getlyrics (FSO) Dim Textstream قاتمة ملف قاتمة هناك طرق متعددة لفتح ملف نصي ، وطرق متعددة لقراءة البيانات من الملف. فيما يلي طريقتان لفتح وقراءة الملفات: تعيين textstream = fso.opentextFile (testFilePath & amp ؛ & quot ؛ beatlesoctopusgarden.txt & quot ؛ ، OpenFileForreading) </a> <a name = readfromfile> S = TextStream.Readall & amp ؛ TextStream.Close set file = fso.getFile (testfilepath & amp ؛ & quot ؛ beatlesbathroomwindow.txt & quot ؛) تعيين textstream = file.openastextstream (OpenFileForReading) افعل بينما لا TEXTSTEAM.ATENDOFSTEREAM S = S & amp ؛ حلقة TextStream.Close getlyrics = s وظيفة نهاية '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' 'BuildTestDirectory ' ' غاية: ' "قم بإنشاء التسلسل الهرمي للدليل لإظهار ملفات fileyStembject. ' "إنشاء بنية هرمية بهذا الترتيب: ' 'ج: الاختبار 'C: TestReadMe.txt 'ج: testbeatles 'C: TestBeatlesoctopusgarden.txt 'C: TestBeatsBathRoomwindow.txt ' ' "إظهار ما يلي ' ' - fileystemobject.drivexists ' - fileystemobject.folderexists ' - fileystemobject.createfolder ' - fileSystemObject.createTextFile ' - المجلدات ' - FOLDER.CREATETEXTFILE ' - TextStream.Writeline ' - TextStream.Close ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' </a> <a name = folderinfo> وظيفة buildtestdirectory (FSO) خافت Testfolder المجلدات الفرعية الخافتة المجلد الفرعي الخافت Dim Textstream "يستبعد (أ) محرك الأقراص غير موجود ، أو (ب) يوجد الدليل الذي سيتم إنشاؤه بالفعل. إذا لم يكن fso.drivexists (TestDrive) ثم BuildTestDirectory = خطأ وظيفة الخروج إنهاء إذا إذا fso.folderexists (testFilePath) ثم BuildTestDirectory = خطأ وظيفة الخروج إنهاء إذا تعيين testfolder = fso.createfolder (testFilePath) تعيين textstream = fso.createTextFile (testFilePath & amp ؛ & quot ؛ readme.txt & quot ؛) TextStream.Writeline (& quot ؛ مجموعة كلمات الأغاني الخاصة بي & quot ؛) TextStream.Close تعيين المجلدات الفرعية = testfolder.subfolders تعيين المجلد الفرعي = sublespers.add ("البيتلز") المجلد الفرعي المخلوقات BuildTestDirectory = صحيح وظيفة نهاية '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' ' البرنامج الرئيسي ' أولاً ، ينشئ دليل اختبار ، وكذلك بعض المجلدات الفرعية والملفات. ثم ، يتفريغ بعض المعلومات حول محركات الأقراص المتاحة وأدلة الاختبار ، أخيرًا ، امسح دليل الاختبار وجميع محتوياته. ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' الفرعي الرئيسي قاتمة FSO "إعداد المتغيرات العالمية. tabstop = chr (9) NewLine = CHR (10) </a> <a name = createfso> set fso = createObject (& quot ؛ scripting.filesystemObject & quot ؛) إذا لم يكن بناء estdirectory (FSO) ثم طباعة "دليل الاختبار موجود بالفعل أو لا يمكن إنشاؤه. لا يمكن الاستمرار." الخروج الفرعي إنهاء إذا PrintRiveInformation (FSO) & amp ؛ PrintEntestInformation (FSO) & amp ؛ print getlyrics (fso) & amp ؛ DESETESTDIRECTORY (FSO) نهاية الفرعية |
مشاركة: تفسير استخدام وظيفة كائن regexp من ASP توفر كائنات regexp دعم تعبير منتظم بسيط. استخدام كائن regexp: ما يلي هو المحتوى المشار إليه: دالة regexptest (patrn ، strng) dim re