Ada banyak sistem berita yang menghasilkan html, tetapi semuanya menggunakan template. Fungsi ini menyimpan kode html yang dihasilkan oleh halaman asp ke dalam file html pembuatan berita html System. ^_^Karena kodenya relatif pendek, saya tidak akan berkomentar di sini.
Copy kode kodenya sebagai berikut:
<%
'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, ), <%, ), %/>, )
'respons.Tulis(kode)
jalankan (kode)
'respons.Tulis(hughchiu_rtcode)
asp2html = hughchiu_rtcode
fungsi akhir
%>
Contoh penggunaan:
Copy kode kodenya sebagai berikut:
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