في asp، خاصة في أنظمة cms التي تحتاج إلى إنتاج ملفات ثابتة، غالبًا ما يكون من الضروري الحكم على بعض الملفات وإنشائها وحذفها، وإليك بعضًا منها، والتي تلبي الاحتياجات الأساسية بشكل أساسي.
انسخ رمز الكود كما يلي:
'==========================================================================
"الحصول على لاحقة الملف."
'==========================================================================
الدالة Get_Filetxt(ByVal t0)
خافت T1
إذا كان Len(t0)<2 أو Instr(t0,".")=0 ثم Get_Filetxt=False:الخروج من الوظيفة
t1=تقسيم(t0,".")
Get_Filetxt=Lcase(t1(Ubound(t1)))
وظيفة النهاية
'==========================================================================
'رمز خالص لقراءة أي ملف
'===========================================================
ملف تحميل الوظيفة (ByVal t0)
إذا كان Len(t0)=0 ثم قم بالخروج من الوظيفة
إذا Sdcms_Cache ثم
إذا Check_Cache("LoadFile_"&t0) ثم
إنشاء_ذاكرة التخزين المؤقت "LoadFile_"&t0,LoadFile_Cache(t0)
نهاية إذا
LoadFile=Load_Cache("LoadFile_"&t0)
آخر
LoadFile=LoadFile_Cache(t0)
نهاية إذا
وظيفة النهاية
وظيفة LoadFile_Cache(ByVal t0)
خافت T1، ستم
على خطأ استئناف التالي
إذا كان Len(t0)=0 ثم قم بالخروج من الوظيفة
t1=فارغة
تعيين Stm=Server.CreateObject("Adodb.Stream")
مع إس تي إم
.Type=2'اقرأ في هذا الوضع
.الوضع=3
.charset=CharSet
.يفتح
.loadfromfile Server.MapPath(t0)
t1=.readtext
.يغلق
نهاية مع
تعيين ستم = لا شيء
إذا أخطأت بعد ذلك
LoadFile_Cache = """&t0&"""&Err.Description:Err.Clear
آخر
LoadFile_Cache=t1
نهاية إذا
وظيفة النهاية
'===========================================================
'تحقق من وجود الملف
'==========================================================================
وظيفة Check_File (ByVal t0)
ديم ف
t0=Server.MapPath(t0)
تعيين Fso=CreateObject("Scripting.FileSystemObject")
Check_File=Fso.FileExists(t0)
تعيين Fso = لا شيء
وظيفة النهاية
'===========================================================
"تحقق من وجود المجلد."
'===========================================================
وظيفة Check_Folder (ByVal t0)
ديم ف
t0=Server.MapPath(t0)
تعيين Fso=CreateObject("Scripting.FileSystemObject")
Check_Folder=Fso.FolderExists(t0)
تعيين Fso = لا شيء
وظيفة النهاية
'===========================================================
'إنشاء مجلد (مستوى غير محدود)
'===========================================================
الدالة Create_UpFile(ByVal t0)
خافت t1، t2، objFSO، ط
على خطأ استئناف التالي
t0=Server.MapPath(t0)
إذا كان InStr(t0,"/")<=0 أو InStr(t0,":")<=0 ثم:Create_upfile=False:Exit Function
تعيين objFSO=CreateObject("Scripting.FileSystemObject")
إذا كان objFSO.FolderExists(t0) ثم:Create_upfile=True:خروج من الوظيفة
t1=تقسيم (t0، "/"):t2 = ""
من أجل i=0 إلى UBound(t1)
t2=t2&t1(i)&"/"
إذا لم يكن objFSO.FolderExists(t2) ثم objFSO.CreateFolder(t2)
التالي
تعيين objFSO = لا شيء
إذا كان الخطأ=0 ثم Create_upfile=True:Else Create_upfile=False:Echo "Create_upfile："&Err.Description&"<br>":Err.Clear
وظيفة النهاية
Sub SaveFile (ByVal t0، ByVal t1، ByVal t2)
خافت objFSO، t3
تعيين objFSO=CreateObject("Scripting.FileSystemObject")
إذا t0 = "" ثم صدى "لا يمكن أن يكون الدليل فارغًا!": مات
t3=Server.MapPath(t0)
إذا كان t2 = "" أو IsNull(t2) ثم t2 = ""
إذا كان objFSO.FolderExists(t3)=False ثم Create_upfile(t0)
BuildFile t3&"/"&Trim(t1),t2
تعيين objFSO = لا شيء
نهاية الفرعية
وظيفة BuildFile (ByVal t0، ByVal t1)
DimStm
على خطأ استئناف التالي
تعيين Stm=Server.CreateObject("Adodb.Stream")
مع إس تي إم
.Type=2 'اقرأ في هذا الوضع
.الوضع=3
.Charset=CharSet
.يفتح
.كتابة النص t1
.SaveToFile t0,2
.يغلق
نهاية مع
تعيين ستم = لا شيء
إذا حدث خطأ، قم بتكرار "BuildFile:"&Err.Description&"<br>":Err.Clear
وظيفة النهاية
'===========================================================
'أعد تسمية المجلد
'===========================================================
إعادة تسمية الملف الفرعي (ByVal t0، ByVal t1)
ديم ف
على خطأ استئناف التالي
تعيين Fso=Server.CreateObject("Scripting.FileSystemObject")
إذا كان Fso.FolderExists(Server.MapPath(t0)) إذن
Fso.MoveFolder Server.MapPath(t0)،Server.MapPath(t1)
نهاية إذا
تعيين Fso = لا شيء
في حالة حدوث خطأ، قم بتكرار "إعادة تسمية الملف:"&Err.Description&"<br>":Err.Clear
نهاية الفرعية
'==========================================================================
'إعادة تسمية الملف
'==========================================================================
إعادة تسمية فرعية HTML (ByVal t0، ByVal t1)
ديم ف
على خطأ استئناف التالي
تعيين Fso=Server.CreateObject("Scripting.FileSystemObject")
إذا كان Fso.FileExists(Server.MapPath(t0)) إذن
Fso.MoveFile Server.MapPath(t0)،Server.MapPath(t1)
نهاية إذا
تعيين Fso = لا شيء
في حالة حدوث خطأ، قم بتكرار "إعادة تسمية HTML:"&Err.Description&"<br>":Err.Clear
نهاية الفرعية
'===========================================================
"حذف المجلد."
'===========================================================
Sub DelFile (ByVal t0)
ديم فسو، ف
على خطأ استئناف التالي
تعيين Fso=Server.CreateObject("Scripting.FileSystemObject")
تعيين F=fso.GetFolder(Server.MapPath(t0))
إذا لم يكن IsNull(t0) فإن F.Delete صحيح
إذا أخطأت، قم بتكرار "Delfile:"&Err.Description&"<br>":Err.Clear
نهاية الفرعية
'===========================================================
'حذف الملفات
'===========================================================
Sub DelHtml(ByVal t0)
ديم ف
على خطأ استئناف التالي
تعيين Fso=Server.CreateObject("Scripting.FileSystemObject")
إذا كان Fso.FileExists(Server.MapPath(t0)) ثم Fso.DeleteFile Server.MapPath(t0)
إذا حدث خطأ، قم بتكرار "DelHtml:"&Err.Description&"<br>":Err.Clear
نهاية الفرعية
الدالة Re_FileName(ByVal t0)
خافت T1
t0=Lcase(t0)
إذا Len(t0)=0 ثم Re_FileName = "{id}": وظيفة الخروج
t1=الآن()
'معالجة أسماء الملفات المخصصة
'IF Instr(t0,"{")>0 وInstr(t0"}")>0 بعد ذلك
'IF Instr(t0,"{id}")=0 إذن
't0=t0&"{id}"' حاول منع التكرار
"انتهى إذا."
"انتهى إذا."
t0=استبدال(t0,"{y}",السنة(t1))
t0=Replace(t0,"{m}",Right("0"&Month(t1),2))
t0=Replace(t0,"{d}",Right("0"&Day(t1),2))
t0=Replace(t0,"{h}",Right("0"&Hour(t1),2))
t0=Replace(t0,"{mm}",Right("0"&Minute(t1),2))
t0=Replace(t0,"{s}",Right("0"&Second(t1),2))
Re_FileName=t0
وظيفة النهاية