Direkomendasikan: Analisis singkat tips pencarian ASP AJAX mirip dengan Google File utama adalah: Fungsi Implementasi Index.html, kotak teks, konten input dan terapkan fungsi permintaan pencarian.
Ada banyak sistem berita yang menghasilkan HTML, tetapi mereka semua menggunakan templat. Fungsi ini menyimpan kode HTML yang dihasilkan oleh halaman ASP ke dalam file HTML, jadi tidak perlu mengubah halaman asli dan bisa dengan mudah
Lengkapi sistem berita yang menghasilkan HTML. ^_^
Karena kodenya pendek, saya tidak akan berkomentar di sini
<%
'Ketika halaman target berisi file, yaitu, halaman #include, ada masalah dengan program ini.
'Catatan: File ini harus ditempatkan di direktori yang sama dengan file yang ditunjukkan oleh nama file
| Berikut ini adalah konten yang dikutip: redup hughchiu_rtcode Function get_exe_code (nama file) redup execode redup tmp_str Redup re, re1, konten, fso, f, aspstart, aspend redup ms, m execode = atur fso = createObject (scripting.filesystemObject) set f = fso.opentextFile (server.mappath (fileName)) konten = f.readall f.close atur f = tidak ada atur fso = tidak ada atur re = regexp baru re.ignorecase = true re.global = true re.pattern = <%@[^%]%> konten = re.replace (konten,) re.global = false re.pattern = <!-s*#termasuk*file*= s*([^]) S*-> Mengerjakan Setel ms = re.execute (konten) Jika ms.count <> 0 lalu set m = ms (0) tmp_str = get_exe_code (m.submatches (0)) konten = re.replace (konten, tmp_str) kalau tidak keluar akhiri jika lingkaran set m = tidak ada Setel ms = tidak ada re.pattern =^s*= Aspend = 1 AspStart = instr (Aspend, konten, <%) 2 Setel RE1 = RegExp baru re1.ignorecase = true re1.global = false re1.pattern = response.write (.) lakukan saat aspstart> aspend 1 execode = execode & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && ganti (ganti (mid, aspend, aspstart-aspend-2) ,,), vbcrlf, & vbcrlf &) && vbcrlf aspend = instr (aspstart, konten,%>) 2 tmp_str = mid (konten, aspstart, aspend-aspstart-2) Mengerjakan Setel ms = re1.execute (tmp_str) Jika ms.count <> 0 lalu set m = ms (0) tmp_str = re1.replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode && m.submatches (0)) kalau tidak keluar akhiri jika lingkaran set m = tidak ada Setel ms = tidak ada execode = execode & re.replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode &) AspStart = instr (Aspend, konten, <%) 2 lingkaran atur re1 = tidak ada atur re = tidak ada execode = execode & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && ganti (ganti (mid (konten, aspend),), vbcrlf, & vbcrlf &) && vbcrlf get_exe_code = <%& execode &%> Fungsi akhir fungsi asp2html (nama file) kode redup kode = ganti (ganti (ganti (get_exe_code (nama file), hughchiu_rtcode = hughchiu_rtcode && vbcrlf,), < %,), %>,) 'Response.write (kode) jalankan (kode) 'Response.write (Hughchiu_RTCode) asp2html = hughchiu_rtcode fungsi akhir %> |
Contoh Penggunaan:
| Berikut ini adalah konten yang dikutip: F.WriteLine (ASP2HTML (YouPage.asp)) f.close set f = tidak ada atur fso = tidak ada |
Bagikan: rasakan kekuatan ASP melalui skrip startup Seperti kebanyakan skrip bahasa, cara terbaik untuk belajar ASP adalah dengan mencoba ASP sendiri dan menginstal PWS atau II menggunakan sistem Anda sendiri. Anda dapat menguji komponen dan fungsi ASP di server Anda sendiri saat belajar. Untuk memfasilitasi pembelajaran, kami telah menyusun beberapa keparat