Ada banyak sistem berita tentang menghasilkan html di Internet, tetapi semuanya menggunakan templat. Fungsi ini menyimpan kode html yang dihasilkan oleh halaman asp ke dalam file html. Dengan cara ini, tidak perlu mengubah halaman asli dan Anda bisa dengan mudah menyelesaikan proses menghasilkan sistem Berita. ^_^
Karena kodenya relatif pendek, saya tidak akan berkomentar di sini.
Berikut isi kutipannya:
<%
''Ada masalah dengan program ini ketika respon.End() ada di file penyertaan halaman target, yaitu halaman #include.
''Catatan: File ini harus ditempatkan di direktori yang sama dengan file yang ditunjuk oleh 20041227111723.htm
redupkan hughchiu_rtcode
Fungsi get_exe_code(20041227111723.htm)
redupkan kode exe
redupkan tmp_str
Redupkan ulang,re1,konten,fso,f,aspStart,aspEnd
redup Bu,m
kode eksekusi=
set fso=CreateObject(Scripting.FileSystemObject)
setel f=fso.OpenTextFile(server.mappath(20041227111723.htm))
konten=f.BacaSemua
f.tutup
atur f=tidak ada
atur fso=tidak ada
atur re = regexp baru
re.ignorecase = benar
re.global = benar
re.pattern = /</%/@[^/%]+/%/>
konten = ganti.ganti(konten,)
re.global = salah
re.pattern = /</!/-/-/s*/#include/s*file/s*=/s*/([^/]+)//s*/-/-/>
Mengerjakan
set ms = re.execute(konten)
jika ms.count<>0 maka
atur m = ms(0)
tmp_str = get_exe_code(m.submatches(0))
konten = re.replace(konten, tmp_str)
kalau tidak
keluar lakukan
berakhir jika
lingkaran
atur m = tidak ada
atur ms = tidak ada
re.pattern=^/s*=
aspEnd=1
aspStart=inStr(aspEnd,konten,<%)+2
atur re1=RegExp baru
re1.ignorecase = benar
re1.global = salah
re1.pattern = respon/.Write(.+)
lakukan saat aspStart>aspEnd+1
execode = execode&vbcrlf& hughchiu_rtcode = hughchiu_rtcode&&replace( replace(Mid(content,aspEnd,aspStart-aspEnd-2),,), vbcrlf, &vbcrlf&)&&vbcrlf
aspEnd=inStr(aspStart,konten,%/>)+2
tmp_str = Pertengahan(konten,aspStart,aspEnd-aspStart-2)
Mengerjakan
atur ms = re1.execute(tmp_str)
jika ms.count<>0 maka
atur m = ms(0)
tmp_str = re1.replace(tmp_str, hughchiu_rtcode = hughchiu_rtcode&&m.submatches(0))
kalau tidak
keluar lakukan
berakhir jika
lingkaran
atur m = tidak ada
atur ms = tidak ada
execode = execode& re.replace(tmp_str,hughchiu_rtcode =hughchiu_rtcode&)
aspStart=inStr(aspEnd,konten,<%)+2
lingkaran
atur re1 = tidak ada
atur kembali=tidak ada
execode = execode&vbcrlf& hughchiu_rtcode = hughchiu_rtcode&&replace( ganti(Mid(konten,aspEnd), , ), vbcrlf, &vbcrlf& )&&vbcrlf
get_exe_code = <%&execode&%/>
Fungsi Akhir
fungsi asp2html(20041227111723.htm)
kode redup
kode = ganti( ganti( ganti( get_exe_code(20041227111723.htm), pelukanhchiu_rtcode = pelukanhchiu_rtcode&&vbcrlf, ), <%, ), %/>, )
''respon.Tulis(kode)
jalankan (kode)
''respon.Tulis(hughchiu_rtcode)
asp2html = hughchiu_rtcode
fungsi akhir
%>
Contoh penggunaan:
Berikut isi kutipannya:
set fso=CreateObject(Scripting.FileSystemObject)
setel f=fso.CreateTextFile( server.mappath( youpage.htm ), benar )
f.WriteLine( asp2html(youpage.asp) )
f.tutup
atur f = tidak ada
atur fso = tidak ada