Saya telah belajar mengekstrak nilai file dari FSO dan juga belajar memasukkan informasi ke dalam file. Lalu mari terapkan.
Saya tidak tahu apakah Anda memiliki kebiasaan ini: Ketika Anda melihat file, Anda secara tidak sadar klik kanan dan memilih untuk membukanya dengan Notepad. Haha, hampir tidak ada file yang tidak mungkin. Jadi sekarang, dapat default bahwa semua file adalah teks, tetapi nama sufiks berbeda; Artinya, informasi konten dari file apa pun dapat diekstraksi sekarang. Oke, bayangkan saja:
1. Ekstrak jalur file (gunakan tombol file untuk menemukan dan menemukan)
2. Buka file path dan baca semua baris
3. Tampilkan informasi yang dibaca
1. ViewCode.asp
| <% Function ShowCode (nama file) Atur fso = server.CreateObject ("Scripting.FilesystemObject") Setel cnrs = fso.opentextFile (nama file, 1) Meskipun tidak cnrs.atendofstream rsline = cnrs.readline rsline = server.htmlencode (RSLine) Response.write (rsline & "<br>") Pergi ke fungsi akhir %> <Form Action = "ViewCode.asp" Method = "Post"> Masukkan nama file <input type = "file" name = "filename"> <input type = "kirim" value = "View Source Program"> </form> <% file = request.form ("nama file") response.write (file & "program sumber sebagai berikut <HR>") Jika trim (file) <> "" lalu Call ShowCode (File) Akhiri jika %> |
Saat men -debug program di atas, Anda dapat memilih halaman HTML dan ASP, atau membuka aplikasi apa pun, dll.
Fungsi ShowCode yang ditentukan terutama digunakan untuk membuka, membaca, dan menampilkan semua konten informasi dalam file. Perhatikan bahwa server.htmlencode (RSLINE) ditambahkan untuk file yang berisi kode HTML standar.
Semua baris dalam file tampilan ditampilkan dalam loop bersyarat.
Meskipun tidak cnrs.atendofstream
...
Pergi ke
Selanjutnya, contoh berikut secara khusus melibatkan metode terbuka. Ingat? Dalam keadaan normal, buka file menggunakan fso.opentextFile ("c: /testfile.txt", 1), dan fungsi parameter 1 adalah: buka file dalam mode read-only. File ini tidak dapat ditulis. Apa yang harus saya lakukan jika file sudah ada dan perlu ditambahkan ke dalamnya? Sederhana, parameternya adalah 8.
PS: Ada juga cara untuk membaca di sini.
<% whatfile = server.mappath ("test.txt") Atur fso = createObject ("Scripting.filesystemObject") Setel txt = fso.opentextFile (Whatfile, 1) rline = txt.readall rline = ganti (server.htmlencode (rline), chr (13), "<br>") Response.write rline txt.close %> |
Apa gunanya ini? Haha, beginilah alur cerita online Amazon: Jika Anda bisa melakukannya, Anda harus terlebih dahulu menampilkan cerita asli, dan kemudian menambahkan cerita untuk menulisnya ke file sendiri. Hal terpenting tentang menulis file adalah menambahkan penulisan. Jadi dapat dicapai di bawah ini.
2. Story.asp
<% Jika tidak meminta ("nextLine") = "" lalu Atur fso = server.CreateObject ("Scripting.FilesystemObject") textFile1 = server.mappath ("Story.txt") Setel cnrs = fso.opentextFile (textfile1,8) cnrs.writeLine (request.form ("nextLine")) cnrs.close akhiri jika %> Ceritanya adalah sebagai berikut: <% Atur fso = server.CreateObject ("Scripting.FilesystemObject") textFile1 = server.mappath ("Story.txt") Setel cnrs = fso.opentextFile (TextFile1,1) Meskipun tidak cnrs.atendofstream Response.write "" & cnrs.readline pergi ke cnrs.close %> <Hr> <Form Method = "Post" Action = "Story.asp"> Harap masukkan baris baru untuk cerita ini: <input name = "nextLine" type = "text" size = "70"> <input type = "kirim" value = "kirim"> </form>
|