สำหรับผู้ที่ไม่ได้ใช้ FSO ภายใต้ ASP ให้ใช้อ็อบเจ็กต์ adodb.stream เพื่อบันทึกและอ่านไฟล์เพื่อหลีกเลี่ยงเครื่องที่มีโฮสต์เสมือนบางตัวที่ไม่รองรับ FSO -
'อ่านไฟล์
-
ฟังก์ชั่น LoadFromFile (ไฟล์ ByVal)
ติ่ม objStream
Dim RText
RText = อาร์เรย์(0, )
ตั้งค่า objStream = Server.CreateObject(ADODB.Stream)
ด้วย objStream
.ประเภท = 2
.โหมด = 3
.เปิด
.ชุดอักขระ = utf-8
.Position = objStream.Size
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
.LoadFromFile Server.MapPath(ไฟล์)
หากผิดพลาดแล้ว
RText = Array(Err.Number, Err.Description)
LoadFromFile = RText
ผิดพลาด.เคลียร์
ออกจากฟังก์ชัน
สิ้นสุดถ้า
RText = อาร์เรย์ (0, .ReadText)
.ปิด
จบด้วย
LoadFromFile = RText
ตั้งค่า objStream = ไม่มีเลย
ฟังก์ชันสิ้นสุด
-
'บันทึกไฟล์
-
ฟังก์ชั่น SaveToFile (ByVal strBody, ไฟล์ ByVal)
ติ่ม objStream
Dim RText
RText = อาร์เรย์(0, )
ตั้งค่า objStream = Server.CreateObject(ADODB.Stream)
ด้วย objStream
.ประเภท = 2
.เปิด
.ชุดอักขระ = utf-8
.Position = objStream.Size
.WriteText = strBody
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
.SaveToFile Server.MapPath(ไฟล์) 2
หากผิดพลาดแล้ว
RText = Array(Err.Number, Err.Description)
SaveToFile = RText
ผิดพลาด.เคลียร์
ออกจากฟังก์ชัน
สิ้นสุดถ้า
.ปิด
จบด้วย
RText = Array(0 บันทึกไฟล์สำเร็จ!)
SaveToFile = RText
ตั้งค่า objStream = ไม่มีเลย
ฟังก์ชันสิ้นสุด