وظائف المعالجة الشائعة للملفات والمجلدات في asp (لاحقة الملف، إنشاء

في 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) ثم

Create_Cache 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)

ملف البناء t3&/&Trim(t1),t2

تعيين objFSO = لا شيء

نهاية الفرعية

وظيفة BuildFile (ByVal t0، ByVal t1)

خافت ستم

على خطأ استئناف التالي

تعيين Stm=Server.CreateObject(Adodb.Stream)

مع إس تي إم

.Type=2 'اقرأ في هذا الوضع

.الوضع=3

.Charset=CharSet

.يفتح

.كتابة النص t1

.SaveToFile t0,2

.يغلق

نهاية مع

تعيين ستم = لا شيء

إذا أخطأت، ثم صدى ملف البناء:&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=الآن()

'معالجة أسماء الملفات المخصصة

'إذا Instr(t0,{)>0 وInstr(t0,})>0 إذن

'إذا Instr(t0,{id})=0 إذن

حاول 't0=t0&{id}' منع التكرار

"انتهى إذا."

"انتهى إذا."

t0=استبدال(t0,{y},السنة(t1))

t0=استبدال(t0,{m},Right(0&Month(t1),2))

t0=استبدال(t0,{d},Right(0&Day(t1),2))

t0=Replace(t0,{h},Right(0&Hour(t1),2))

t0=استبدال(t0,{mm},Right(0&Minute(t1),2))

t0=استبدال(t0,{s},Right(0&Second(t1),2))

Re_FileName=t0

وظيفة النهاية