موصى به: رمز ترقيم الصفحات السريع ASP ٪@ language = vbscript codepage = 936 ٪ الخيار الصريح "إجبار المتغير المتغير dim idcount" إجمالي عدد السجلات على صفحات قاتمة "عدد الصفحات الباهتة" العدد الإجمالي للصفحات ".
للحصول على مساحة تدعم ASP و FSO ، كل شيء أسهل بكثير مع FSO
أنا أيضًا مبتدئ وكتب بعض الرموز للجميع للتعلم والدراسة
أولاً ، هل تنظر إلى دعم مكونات FSO؟
<٪
اسم مكون FSO
قاتمة fsobject
fsobject = scripting.filesystemObject
'=========================================================================
'◆ ما إذا كانت المكونات مدعومة
'=========================================================================
وظيفة isobjinstalled (strclassstring)
عند استئناف الخطأ التالي
isobjinstalled = false
خطأ = 0
قاتمة xtestobj
SET XTESTOBJ = Server.CreateBject (StrClassString)
إذا كان 0 = err ثم isobjinstalled = true
تعيين xtestobj = لا شيء
خطأ = 0
وظيفة نهاية
إذا isobjinstalled (fsobject) ثم
استجابة. write √
آخر
استجابة. write ×
نهاية إذا ٪>
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<٪
'=========================================================================
'◆ ما إذا كانت المكونات مدعومة
'=========================================================================
وظيفة isobjinstalled (strclassstring)
عند استئناف الخطأ التالي
isobjinstalled = false
خطأ = 0
قاتمة xtestobj
SET XTESTOBJ = Server.CreateBject (StrClassString)
إذا كان 0 = err ثم isobjinstalled = true
تعيين xtestobj = لا شيء
خطأ = 0
وظيفة نهاية
'=========================================================================
عملية FSO
'=========================================================================
◆ تحقق مما إذا كان هناك دليل
'=========================================================================
وظيفة checkdir (FolderPath)
FolderPath = server.mappath (.) &/& FolderPath
set fso = createObject (fsobject)
إذا fso.folderexists (FolderPath) ثم
checkdir = صحيح
آخر
checkdir = خطأ
إنهاء إذا
تعيين fso = لا شيء
وظيفة نهاية
'=========================================================================
"◆ إنشاء دليل بناءً على الاسم المحدد
'=========================================================================
وظيفة makenewsdir (اسم المجلد)
قاتمة FS0
set fso = createObject (fsobject)
set fs0 = fso.createfolder (اسم المجلد)
تعيين fso = لا شيء
وظيفة نهاية
'=========================================================================
'◆ إنشاء مجلد جديد إذا لم يكن المجلد موجودًا ◆
'=========================================================================
فظيعة وظيفة (FolderPath)
إذا
Makenewsdir (FolderPath) 'فقط قم بإنشاء مجلد
إنهاء إذا
وظيفة نهاية
'=========================================================================
'◆ حذف المجلد ◆
'=========================================================================
وظيفة deletefoldera (FolderPath)
مسار خافت
set fso = createObject (fsobject)
path = request.servervariables (Appl_Physical_Path) & FolderPath
fso.deletefolder (المسار)
تعيين fso = لا شيء
وظيفة نهاية
'=========================================================================
'◆ تغيير اسم المجلد ◆
'=========================================================================
وظيفة MoveFolder (المجلد ، NewFolderName)
ISFSO
set fso = createObject (fsobject)
fso.movefolder & request.servervariables (Appl_physical_path) و/& foldername & ، & request.servervariables (Appl_physical_path) و/& newFolderName &
تعيين fso = لا شيء
وظيفة نهاية
'=========================================================================
'◆ حذف الملف المحدد ◆
'=========================================================================
وظيفة deletefile (ملف)
set fso = createObject (fsobject)
fso.deletefile request.servervariables (Appl_Physical_Path) & File
تعيين fso = لا شيء
وظيفة نهاية
'=========================================================================
'◆ النسخ الاحتياطي الملف المحدد ◆
'=========================================================================
وظيفة copyfile (Oldfile ، NewFile)
set fso = createObject (fsobject)
عند استئناف الخطأ التالي
set fso = server.createObject (fsobject)
Oldfile = server.mappath (Oldfile)
إذا err.number> 0 ثم اتصل على تنبيه (خطأ المسار الأصلي! ،)
newFile = server.mappath (newFile)
إذا err.number> 0 ثم اتصل على تنبيه (خطأ مسار جديد! ،)
fso.copyfile Oldfile ، الكتابة الجديدة 'الكتابة الأصلية
إذا err.number> 0 ثم اتصل على تنبيه (err.description ،)
تعيين fso = لا شيء
وظيفة نهاية
'=========================================================================
'◆ نقل الملف المحدد ◆
'=========================================================================
وظيفة Movefile (Oldfile ، NewFile)
set fso = createObject (fsobject)
عند استئناف الخطأ التالي
set fso = server.createObject (fsobject)
Oldfile = server.mappath (Oldfile)
إذا err.number> 0 ثم اتصل على تنبيه (خطأ المسار الأصلي! ،)
newFile = server.mappath (newFile)
إذا err.number> 0 ثم اتصل على تنبيه (خطأ مسار جديد! ،)
"fso.movefile Oldfile ، NewFile" لا يمكن الكتابة فوق الملف الأصلي
fso.movefile d: /o/data/test.txt،d: /o/databackup/test3.txt
إذا err.number> 0 ثم اتصل على تنبيه (err.description ،)
تعيين fso = لا شيء
وظيفة نهاية
'=========================================================================
'◆ اقرأ رمز الملف ◆
'=========================================================================
وظيفة loadfile (ملف) 'اقرأ الملف
قاتمة ftemp
set fso = createObject (fsobject)
set ftemp = fso.opentextFile (server.mappath (& file &) ، 1)
loadfile = ftemp.readall
ftemp.close
fso.close
تعيين fso = لا شيء
وظيفة نهاية
'=========================================================================
'◆ إنشاء الملفات من الكود ◆
'=========================================================================
'======================================================
■ الملف يولد اسم الملف
رمز ملف رمز
'======================================================
وظيفة SaveFile (ملف ، رمز) "حفظ الملف
قاتمة myfile
set fso = createObject (fsobject)
set myfile = fso.createTextFile (server.mappath (file) ، true)
myfile.writeline (رمز)
myfile.close
تعيين myfile = لا شيء
وظيفة نهاية
'=========================================================================
قاعدة بيانات مضغوطة ◆
'=========================================================================
'======================================================
■ مسار ملف بيانات DBPath
'■ Boolis97 Access97 ضغط
'======================================================
وظيفة CompactDB (DBPath ، Boolis97)
Dim Strdbpath ، FSO ، المحرك
DBPath = server.mappath (DBPath)
StrdbPath = Left (DBPath ، Instrrev (DBPath ،/))
set fso = createObject (fsobject)
إذا fso.filexists (DBPath) ثم
Set Engine = createObject (JRO.JetEngine)
إذا كان boolis97 = صحيح إذن
DIM JET_3X
Engine.compactDatabase Provider = microsoft.jet.oledb.4.0 ؛ مصدر البيانات = & dbpath ، _
Provider = microsoft.jet.oledb.4.0 ؛ data source = & strdbpath & temp.mdb ؛ _
& jet OLEDB: نوع المحرك = & jet_3x
آخر
Engine.compactDatabase Provider = microsoft.jet.oledb.4.0 ؛ مصدر البيانات = & dbpath ، _
Provider = microsoft.jet.oledb.4.0 ؛ jet OLEDB: Database Password = & dbpw & ؛ data source = & strdbpath & temp.mdb
إنهاء إذا
fso.copyfile strdbpath & temp.mdb ، dbath
fso.deletefile (Strdbpath & temp.mdb)
تعيين fso = لا شيء
تعيين المحرك = لا شيء
compactdb = تم ضغط قاعدة البيانات الحالية بنجاح!
آخر
CompactDB = اسم قاعدة البيانات أو المسار غير صحيح. من فضلك حاول مرة أخرى!
إنهاء إذا
وظيفة نهاية
٪>
مشاركة: مجموعة وظيفة تشغيل ملف ASP ٪ '======================================================= "تم تجميعها بواسطة: Zhang Hui" رمز المبرمج: WJ008 "المترجمة: العناوين '==================================================================== ===========================================================================