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
<%
'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 berdasarkan nama file
redupkan kode Hughchiu_rt
Fungsi get_exe_code (nama file)
redupkan kode exe
redupkan tmp_str
Redupkan ulang,re1,konten,fso,f,aspStart,aspEnd
redup Bu,m
kode eksekusi = ""
set fso=CreateObject("Scripting.FileSystemObject")
set f=fso.OpenTextFile(server.mappath(nama file))
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 = re.replace(konten,"")
re.global = salah
re.pattern = "<!--s*#includes*files*=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.Tulis(.+)"
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, " huhhchiu_rtcode = huhhchiu_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,content,"<%")+2
lingkaran
atur re1 = tidak ada
atur kembali=tidak ada
execode = execode&vbcrlf&" pelukanhchiu_rtcode = pelukanhchiu_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, "" ), "<%", "" ), "%>", "" )
'respons.Tulis(kode)
jalankan (kode)
'respons.Tulis(hughchiu_rtcode)
asp2html = hughchiu_rtcode
fungsi akhir
%>
Contoh penggunaan:
set fso=CreateObject("Scripting.FileSystemObject")
set f=fso.CreateTextFile( server.mappath( "youpage.htm" ), benar )
f.WriteLine( asp2html("youpage.asp") )
f.tutup
atur f = tidak ada
set fso = none
Saya harap fungsi ini bermanfaat bagi semua orang. Karena levelnya terbatas, harap tunjukkan jika ada kesalahan dan semoga dapat diperbaiki.