مكونات FSO في ASP قوية جدا. إذا لم يكن لديك هذه الوظيفة ، فأنت لا تعرف ما الذي سيصبح ASP. في الواقع ، سيتعرض الأصدقاء الذين يرغبون في تعلم برمجة ASP بالتأكيد للعمليات المتعلقة بـ FSO. ستجلب لك قناة التكنولوجيا الجديدة التالية مجموعة كاملة من وظائف معالجة ملفات ASP FSO.
نسخة الكود كما يلي:<٪
'إنشاء وظيفة مجلد
وظيفة CreateFolder (strolder) 'المعلمة هي مسار نسبي
الخيار الأول هو تحديد ما إذا كان المجلد الذي سيتم إنشاؤه موجودًا بالفعل
قاتمة Strtestfolder ، objfso
strtestfolder = server.mappath (strolder)
SET OBJFSO = createObject ("scripting.filesystemObject")
تحقق مما إذا كان المجلد موجود
إذا لم يكن objfso.folderexists (strtestfolder) ثم
إذا لم يكن موجودًا ، فقم بإنشاء مجلد
objfso.createfolder (strtestfolder)
إنهاء إذا
تعيين OBJFSO = لا شيء
وظيفة نهاية
حذف المجلد
دالة delfolder (Strolder) 'المعلمة هي المسار النسبي
strtestfolder = server.mappath (strolder)
SET OBJFSO = createObject ("scripting.filesystemObject")
تحقق مما إذا كان المجلد موجود
إذا objfso.folderexists (strtestfolder) ثم
objfso.deletefolder (strtestfolder)
إنهاء إذا
تعيين OBJFSO = لا شيء
وظيفة نهاية
"إنشاء ملف نصي
Function CreateTextFile (fileurl ، fileContent) '' المعلمة هي المسار النسبي والمحتوى الذي سيتم كتابته إلى الملف
SET OBJFSO = server.createObject ("scripting.filesystemObject")
set fout = objfso.createTextFile (server.mappath (fileurl))
fout.writeline fileContent
fout.close
تعيين OBJFSO = لا شيء
وظيفة نهاية
حذف الملفات (مناسبة لجميع الملفات)
الدالة deltextfile (fileurl) 'المعلمة هي المسار النسبي
SET OBJFSO = createObject ("scripting.filesystemObject")
fileurl = server.mappath (fileurl)
إذا كان objfso.filexists (fileurl) ثم تحقق مما إذا كان الملف موجودًا
objfso.deletefile (server.mappath (fileurl))
إنهاء إذا
تعيين OBJFSO = لا شيء
وظيفة نهاية
"إنشاء ملفات الصور وحفظ دفق بيانات الصورة
الدالة createImage (Fileurl ، ImageContent) 'المعلمة هي مسار نسبي ومحتوى الملف
اضبط OBJStream = server.createObject ("adodb.stream") "لإنشاء كائن ADODB.Stream ، إصدار ADO 2.5 أو أعلى
objstream.type = 1 'فتح في الوضع الثنائي
objstream.Open
objstream.write ImageContent محتوى سلسلة الكتابة إلى المخزن المؤقت
objstream.savetofile server.mappath (fileurl) ، 2 '-محتوى مخزن مؤقت للملف
objstream.close () 'كائن قريب
تعيين objstream = لا شيء
وظيفة نهاية
الحصول على بيانات الملف عن بعد
وظيفة gethttppage (url)
'عند استئناف الخطأ التالي
خافت HTTP
تعيين http = server.createBject ("microsoft.xmlhttp")
http.Open "get" ، url ، false
http.send ()
إذا http.readyState <> 4 ثم
وظيفة الخروج
إنهاء إذا
gethttppage = bytestobstr (http.responsebody ، "GB2312")
تعيين http = لا شيء
إذا err.number <> 0 ثم
gethttppage = "خادم GOT GOT خطأ في محتوى الملف"
err.clear
إنهاء إذا
وظيفة نهاية
وظيفة bytestobstr (الجسم ، CSET)
قاتمة objstream
تعيين OBJStream = server.createBject ("Adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.Open
objstream.write الجسم
objstream.position = 0
objstream.type = 2
objstream.charset = cset
bytestobstr = objstream.readtext
objstream.close
اضبط OBJStream = لا شيء
وظيفة نهاية
احصل على دفق بيانات الصورة
وظيفة getpic (url)
عند استئناف الخطأ التالي
خافت HTTP
اضبط http = server.createObject ("msxml2.xmlhttp") "استخدم طريقة XMLHTTP للحصول على محتوى الصورة
http.Open "get" ، url ، false
http.send ()
إذا http.readyState <> 4 ثم
وظيفة الخروج
إنهاء إذا
getpic = http.ResponseBody
تعيين http = لا شيء
إذا err.number <> 0 ثم
getpic = "لقد حصل الخادم على خطأ في الحصول على محتوى الملف"
err.clear
إنهاء إذا
وظيفة نهاية
"فتح الملف (نموذج النص)
وظيفة OpenFile (fileurl) 'المسار النسبي ملف
اسم الملف الخافت ، FSO ، hndfile
اسم الملف = fileurl
اسم الملف = server.mappath (اسم الملف)
SET OBJFSO = createObject ("scripting.filesystemObject")
إذا objfso.filexists (اسم الملف) ثم
تعيين hndfile = objfso.opentextFile (اسم الملف)
OpenFile = hndfile.readall
آخر
OpenFile = "خطأ قراءة الملف"
إنهاء إذا
تعيين hndfile = لا شيء
تعيين OBJFSO = لا شيء
وظيفة نهاية
احصل على اسم لاحقة الملف
وظيفة getFileStname (اسم الملف)
باهت نقاط البيع
pos = instrev (اسم الملف ، ".")
إذا pos> 0 ثم
getFileStname = Mid (اسم الملف ، POS+1)
آخر
getFileStname = ""
إنهاء إذا
وظيفة نهاية
٪>
ما ورد أعلاه عبارة عن مجموعة كاملة من وظائف معالجة ملفات ASP FSO التي قدمها محرر قناة Foxin Technology. أعتقد أن كل شخص لديه فهم معين. ستقوم قناة Foxin Technology بمشاركة المزيد من المعرفة معك ، مما يجعلك أفضل وأفضل في هذه الصناعة.