في ASP ، وخاصة في أنظمة CMS التي تحتاج إلى إنشاء حالات ثابتة ، غالبًا ما يتم الحكم على بعض الملفات وإنشائها وحذفها. اليوم ، قام محرر The Error New Technology Channel بتصنيفها هنا ، والتي تلبي الاحتياجات الأساسية بشكل أساسي.
وظائف مخصصة شائعة الاستخدام في ASP للتعامل مع تحميل الملف وحذفه
<٪
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
'جميع وظائف VBS مخصصة
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
وظيفة deletefile (اسم الملف) 'حذف الملف
إذا كان اسم الملف <> "" ثم
set fso = server.createObject ("scripting.filesystemObject")
إذا fso.filexists (اسم الملف) ثم
fso.deletefile اسم الملف
إنهاء إذا
تعيين fso = لا شيء
إنهاء إذا
وظيفة نهاية
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
الوظيفة التي تم إنشاؤها (Byval LocalPath) "البرنامج الذي ينشئ دليلًا. إذا كان هناك عدة مستويات من الدلائل ، فإنه يخلقها مستوى واحد في كل مرة
عند استئناف الخطأ التالي
LocalPath = استبدال (LocalPath ، "/" ، "/")
set fileObject = server.createObject ("scripting.filesystemObject")
patharr = split (localpath ، "/")
path_level = ubund (patharr)
لأني = 0 إلى path_level
إذا كان i = 0 ثم pathtmp = patharr (0) و "/" else pathtmp = pathtmp & patharr (i) & "/"
CPATH = LEFT (PATHTMP ، LEN (PATHTMP) -1)
إذا لم يكن fileObject.folderexist
التالي
تعيين fileObject = لا شيء
إذا err.number <> 0 ثم
Createdir = false
err.clear
آخر
Createdir = صحيح
إنهاء إذا
وظيفة نهاية
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
دالة SaverAndFilename (Byval Szfilename) "إنشاء اسم ملف عشوائي جديد بناءً على اسم الملف الأصلي
عشوائي
'rannum = int (90000*rnd) +10000
"إذا شهر (الآن) <10 ثم c_month =" 0 "والشهر (الآن) آخر c_month = الشهر (الآن)
"إذا كان اليوم (الآن) <10 ثم c_day =" 0 "واليوم (الآن) آخر c_day = day (الآن)
"إذا ساعة (الآن) <10 ثم c_hour =" 0 "والساعة (الآن) أخرى c_hour = ساعة (الآن)
"إذا كانت دقيقة (الآن) <10 ثم c_minute =" 0 "و Minute (الآن) أخرى c_minute = دقيقة (الآن)
"إذا الثانية (الآن) <10 ثم c_second =" 0 "والثاني (الآن) آخر c_second = دقيقة (الآن)
filext_a = split (szfilename ، ".")
fileext = lace (fileext_a (ubund (filext_a))))
caverandfilename = استبدال (استبدال (الآن (الآن ، ":" ، "") ، "-" ، "") ، "" ، ") & int (10*rnd) &". "& filext
"ANDERANTORANDOMFILENAME = YEAR (الآن) & C_MONTH & C_DAY & C_HOUR & C_MINUTE & C_SECOND &" _ "& Rannum &". "& filext
وظيفة نهاية
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
دالة jaron_replacer (strcontent ، start_string ، end_string ، replist_string)
وظيفة استبدال CMS: سلسلة المصدر ، الجزء الأول ، الجزء الأخير ، استبدال الأحرف
إعادة السلسلة التي تم استبدالها
jaron_replacer = استبدال (strcontent ، mid (strcontent ، instr (strcontent ، start_string) ، instr (strcontent ، end_string)+len (end_string) -1) ، replist_string)
وظيفة نهاية
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
وظيفة replaceplus (strcontent ، start_string ، end_string ، replist_string)
في المستند ، احذف جميع الأحرف بين البداية والنهاية
عند استئناف الخطأ التالي
MarkCounts = Ubund (تقسيم (strcontent ، start_string))
prestring = strcontent
ل I = 0 إلى MarkCounts
startMark = instr (1 ، prestring ، start_string ، 1)
إذا كانت البداية = 0 ثم الخروج من أجل
compmark = instr (1 ، prestring ، end_string ، 1) + len (end_string)
VERSTRING = MID (PRESTRING ، StartMark ، Compmark - StartMark)
prestring = استبدال (prestring ، verstring ، replist_string)
التالي
replaceplus = prestring
إذا err.number <> 0 ثم err.clear
وظيفة نهاية
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
٪>
المقالة أعلاه تدور حول وظائف معالجة الملفات شائعة الاستخدام في ASP. أعتقد أن الجميع يعرف معظمهم. ستواصل قناة التكنولوجيا الجديدة الخاطئة جمع المزيد من المعرفة المفيدة لك. آمل أن تتمكن من فهم النوايا الحسنة للمحرر. إذا كنت تحب هذه المقالة ، فاستمر في متابعتنا!