Direkomendasikan: Cara menggunakan Teknologi Scripting ASP Dalam skrip VB, Anda tidak perlu mendefinisikan variabel atau secara eksplisit mendefinisikan tipe mereka dalam bahasa skrip lainnya. Variabel ada saat Anda pertama kali menggunakannya. Namun, fitur ini memungkinkan kode Anda ada secara luas dalam naskah. Jika Anda salah mendefinisikan nama variabel dalam kode, variabel baru akan dibuat. Script Anda mungkin tidak berfungsi dengan baik.
Bagaimana cara menghasilkan HTML di ASP? Sudah 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 untuk dengan mudah menyelesaikan sistem berita yang menghasilkan HTML. ^_^
Karena kodenya pendek, saya tidak akan berkomentar di sini
Berikut ini adalah konten yang dikutip: <% '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 pada 20041227111723.htm redup hughchiu_rtcode Function get_exe_code (2004122711723.htm) 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 (2004122711723.htm)) 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*/#include/s*file/s*=/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 = respons/.write (.) lakukan saat aspstart> aspend 1 execode = execode & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && ganti (ganti (mid (konten, 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 (content, aspend),), vbcrlf, & vbcrlf &) && vbcrlf get_exe_code = <%& execode &%/> Fungsi akhir Fungsi Asp2HTML (2004122711723.htm) kode redup kode = ganti (ganti (ganti (get_exe_code (2004122711723.htm), 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: atur fso = createObject (scripting.filesystemObject) set f = fso.createTextFile (server.mappath (youpage.htm), true) F.WriteLine (ASP2HTML (YouPage.asp)) f.close set f = tidak ada atur fso = tidak ada |
Bagikan: Cara Memulai dengan Variabel ASP Variabel digunakan untuk menyimpan informasi. Jika suatu variabel dinyatakan di luar subrutin, variabel dapat diubah dengan skrip apa pun dalam file ASP. Jika suatu variabel dideklarasikan dalam subrutin, itu akan dibuat dan dicabut setiap kali subrutin dieksekusi. Contoh: Deklarasikan variabel sebagai berikut: html body % name name = Donald Duck Response.