بالنسبة لأولئك الذين لا يستخدمون FSO ضمن ASP، استخدم كائن adodb.stream لحفظ الملفات وقراءتها لتجنب الأجهزة التي تحتوي على بعض المضيفين الظاهريين الذين لا يدعمون FSO. '***************************************
'اقرأ الملف
'***************************************
وظيفة LoadFromFile (ملف ByVal)
خافت objStream
خافت RText
رتكست = صفيف (0،)
تعيين objStream = Server.CreateObject(ADODB.Stream)
مع أوبجستريم
.النوع = 2
الوضع = 3
.يفتح
.مجموعة الأحرف = UTF-8
.Position = objStream.Size
على خطأ استئناف التالي
.LoadFromFile Server.MapPath(ملف)
إذا أخطأت ثم
RText = صفيف (Err.Number، Err.Description)
LoadFromFile = RText
خطأ.واضح
وظيفة الخروج
نهاية إذا
RText = صفيف (0، .ReadText)
.يغلق
نهاية مع
LoadFromFile = RText
تعيين objStream = لا شيء
وظيفة النهاية
'***************************************
'احفظ الملف
'***************************************
وظيفة SaveToFile (ByVal strBody، ملف ByVal)
خافت objStream
خافت RText
رتكست = صفيف (0،)
تعيين objStream = Server.CreateObject(ADODB.Stream)
مع أوبجستريم
.النوع = 2
.يفتح
.مجموعة الأحرف = UTF-8
.Position = objStream.Size
.WriteText = strBody
على خطأ استئناف التالي
.SaveToFile Server.MapPath (ملف)، 2
إذا أخطأت ثم
RText = صفيف (Err.Number، Err.Description)
SaveToFile = RText
خطأ.واضح
وظيفة الخروج
نهاية إذا
.يغلق
نهاية مع
RText = Array(0، تم حفظ الملف بنجاح!)
SaveToFile = RText
تعيين objStream = لا شيء
وظيفة النهاية