Pernah ingin tahu cara menampilkan konten dokumen teks menggunakan ASP. Berikut ini cara mudah untuk membaca
Dari file teks
<!-Mulai kode ASP ---->
<%
'Oleh James Seymour, http://jamesdot.org
Redup menulis
Dim FilesysoBJ, TF, Baca
'Baca read.txt
'Simpan nama file di mana informasi disimpan ke dalam variabel yang disebut baca
baca = baca.txt
'Ambil fullpath dari file baca
baca = kiri (server.mappath (request.serverVariable (path_info)), instrrev (server.mappath
(Request.servervariable (path_info)), /)) & baca
'Buat instance objek sistem file dan simpan ke dalam variabel yang disebut filesysoBj
Set FileSySoBj = CreateObject (Scripting.FilesystemObject)
'Periksa apakah ada file yang dibaca
If (FilesysoBJ.FileExists (baca)) lalu
'Jika file ada, maka buka untuk membaca
Set TF = FilesysoBj.opentextFile (baca, 1)
baca = tf.readline
tf.close
KALAU TIDAK
'Jika Anda tidak dapat menemukan read.text, tampilkan pesan default
baca = saya tidak dapat menemukan file baca.txt! Jadi ini adalah pesan default saya.
Akhiri jika
%>
'Tabel tampilan file read.txt
<Div Align = Center>
<senter>
<Border Tabel = 0 Lebar = 40% CellSpacing = 0 CellPadding = 0>
<tr>
<td width = 100%bgcolor =#eeeecc> <b> <%= baca%> </b>
</td>
</tr>
<tr>
<Lebar TD = 100%>
<!-Akhir ASP->
Gunakan kode di atas, klik dan seret mouse Anda ke atas kode untuk menyorotnya. Kemudian klik kanan pada
Kode yang disorot dan klik Salin. Sekarang Anda dapat menempelkannya ke editor kode Anda.