| Berikut ini adalah fragmen kode: <% '======================================== 'Decoding string untuk HTML, ganti server.htmlencode 'Hapus format HTML untuk output tampilan '======================================== Function outhtml (str) Stemp redup Stemp = str outhtml = "" " If isNull (step) = true maka Fungsi keluar Akhiri jika Stemp = ganti (langkah, "&", "& amp;") Stemp = ganti (stemp, "<", "" & lt; ") Stemp = ganti (langkah, ">", "& gt;") Stemp = ganti (stemp, chr (34), "& quot;") Langkah = Ganti (Langkah, Chr (10), "<br>") outhtml = stemp Fungsi akhir '======================================== 'Lepaskan format HTML dan gunakan untuk mengisi kotak input dari database 'Catatan: value = "?" Anda harus menggunakan kutipan ganda di sini '========================================= Fungsi inhTML (str) Stemp redup Stemp = str inhTMl = "" If isNull (step) = true maka Fungsi keluar Akhiri jika Stemp = ganti (langkah, "&", "& amp;") Stemp = ganti (stemp, "<", "" & lt; ") Stemp = ganti (langkah, ">", "& gt;") Stemp = ganti (stemp, chr (34), "& quot;") inhTMl = stemp Fungsi akhir %> |