وظائف مخصصة شائعة الاستخدام في 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 و day (الآن) آخر c_day = day (الآن)
"إذا ساعة (الآن) <10 ثم c_hour = 0 & hour (الآن) أخرى 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
'ANDERATARANDOMFILENAME = 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)