Misalkan Anda ingin membuat buku tamu sederhana di mana Anda dapat membuat database tempat Anda menyimpan informasi pengguna. Namun, menggunakan FSO untuk menyimpan informasi akan menghemat waktu dan uang Anda jika kekuatan database tidak diperlukan. Dan, beberapa ISP dapat membatasi aplikasi basis data di web.
Misalkan Anda telah mengumpulkan beberapa informasi pengguna dalam suatu formulir, berikut adalah bentuk kode HTML sederhana:
<Html>
<body>
<Form Action = FormHandler.asp Method = Post>
<Jenis input = ukuran teks = 10 nama = nama pengguna>
<Input Tipe = Ukuran Teks = 10 Nama = HomePage>
<Input Tipe = Ukuran Teks = 10 Nama = Email>
</form>
</body>
</html>
Mari kita lihat kode yang memproses formulir di formhandler.asp:
< %
'Dapatkan info formulir
strname = request.form (nama pengguna)
strhomepage = request.form (beranda)
stremail = request.form (email)
'Buat objek FSO
Atur fso = server.createObject (scripting.filesystemObject)
Sejauh ini, tidak ada yang baru yang tidak lebih dari mendapatkan nilai bidang formulir dan menetapkan nilai ke variabel. Bagian yang menarik muncul di bawah - tulis file:
Path = C: emp est.txt
Forreading = 1, forwriting = 2, forpinging = 3
'Buka file
Setel file = fso.opentextFile (path, forprespending, true)
'Tulis info ke file
file.write (strname) & vbcrlf
file.write (strhomepage) & vbcrlf
file.write (stremail) & vbcrlf
'Tutup dan Bersihkan
file.close
atur file = tidak ada
atur fso = tidak ada
Ingatlah bahwa metode OpEntextFile mengembalikan objek TextStream, yang merupakan objek lain dalam model FSO. Objek TextStream mengungkapkan cara untuk memanipulasi konten file, seperti menulis, membaca, dan melewatkan garis. VBCRLF konstan VB menghasilkan karakter garis baru.
Benar didefinisikan dalam parameter perintah OpenTextFile, yang memberi tahu sistem bahwa jika file tidak ada, buatlah. Jika file tidak ada dan parameter sebenarnya tidak ditentukan, kesalahan terjadi.
Sekarang buka direktori C: emp, terbuka test.txt, dan Anda dapat melihat informasi berikut:
Nama pengguna
Beranda pengguna
Email pengguna
Tentu saja, kata -kata ini dapat diganti dengan apa pun yang dimasukkan dalam formulir