Bagi mereka yang tidak menggunakan FSO di bawah ASP, gunakan objek adodb.stream untuk menyimpan dan membaca file untuk menghindari mesin yang memiliki beberapa host virtual yang tidak mendukung FSO. '***************************************
'Baca berkasnya
'***************************************
Fungsi LoadFromFile(File ByVal)
Redupkan objStream
Redupkan RTeks
RTeks = Array(0, )
Setel objStream = Server.CreateObject(ADODB.Stream)
Dengan objStream
.Jenis = 2
.Modus = 3
.Membuka
.Charset = utf-8
.Posisi = objStream.Ukuran
Pada Kesalahan Lanjutkan Berikutnya
.LoadFromFile Server.MapPath(File)
Jika Salah Lalu
RText = Array(Err.Nomor, Err.Deskripsi)
LoadFromFile = RTeks
Err. Jelas
Fungsi Keluar
Akhiri Jika
RText = Array(0, .ReadText)
.Menutup
Akhiri Dengan
LoadFromFile = RTeks
Setel objStream = Tidak Ada
Fungsi Akhir
'***************************************
'Simpan berkas
'***************************************
Fungsi SaveToFile (ByVal strBody, ByVal File)
Redupkan objStream
Redupkan RTeks
RTeks = Array(0, )
Setel objStream = Server.CreateObject(ADODB.Stream)
Dengan objStream
.Jenis = 2
.Membuka
.Charset = utf-8
.Posisi = objStream.Ukuran
.WriteText = strBody
Pada Kesalahan Lanjutkan Berikutnya
.SaveToFile Server.MapPath(File), 2
Jika Salah Lalu
RText = Array(Err.Nomor, Err.Deskripsi)
SaveToFile = RTeks
Err. Jelas
Fungsi Keluar
Akhiri Jika
.Menutup
Akhiri Dengan
RText = Array(0, file berhasil disimpan!)
SaveToFile = RTeks
Setel objStream = Tidak Ada
Fungsi Akhir