Teman-teman yang membutuhkan kelas template paling sederhana dari kelas operasi template ASP Crazy dapat merujuknya. Nama file: Awa_temp.Class.asp
Copy kode kodenya sebagai berikut:
<%
'Katak gila! Kelas operasi templat
'Penulis Gila~katak! QQ:379969387 Selamat berkomunikasi
'Versi V1.0;
KelasAwaTemp
Publik aa
FSO Pribadi,StrTemp,FileData,GetDatas,StrHtmlName,htmlwrite,StrLabel,StrLValues
'===============
'Konstruktor_Inisialisasi komponen FSO
'===============
Sub Kelas Pribadi_Inisialisasi()
Setel FSO=Server.CreateObject(Scripting.FileSystemObject)
Akhiri Sub
'===============
'Destructor_Destroy komponen FSO
'===============
Sub Kelas_terminate() Pribadi
Tetapkan FSO=tidak ada
Akhiri Sub
'===============
'Atribut kelas
'===============
'Informasi versi
Milik Umum Dapatkan Versi
Versi=Gila~katak! Kelas operasi templat!
Properti Akhir
'Dapatkan alamat dan nama template
Properti Publik Biarkan Temp (Nilai ByVal)
StrTemp=Nilai
Properti Akhir
'Dapatkan nama file dari file yang dihasilkan
Properti Publik Biarkan HtmlName(Nilai ByVal)
StrHtmlName=Nilai
Properti Akhir
'Dapatkan tag
Label Izin Properti Publik (Nilai ByVal)
StrLabel=Nilai
Properti Akhir
'Dapatkan nilai yang menggantikan label
Properti Publik Biarkan LValues (Nilai ByVal)
StrLValues=Nilai
Properti Akhir
'===============
'Metode kelas
'===============
'Periksa pengaturan templat dan apakah ada
Pemeriksaan Fungsi Pribadi()
Jika StrTemp= Maka
Periksa=<span style='color:red;'>Kesalahan: Lokasi penyimpanan file template tidak disetel! </span>
Kalau tidak
Jika FSO.FileExists(StrTemp)=false Lalu
Periksa=<span style='color:red;'>Kesalahan: Templat yang ditentukan tidak ada! </span>
Kalau tidak
Periksa = benar
Akhiri Jika
Akhiri Jika
Fungsi Akhir
'Baca halaman templat
Sub BacaTemp Publik()
Jika Periksa()<>benar Lalu
Respon.Tulis Cek()
Respon.Akhir()
Kalau tidak
Setel GetDatas=FSO.OpenTextFile(Server.MapPath(StrTemp))
FileData=DapatkanData.BacaSemua
GetDatas.Tutup
Setel GetData=tidak ada
Akhiri Jika
Akhiri Sub
'Ganti konten
Perwakilan Fungsi Publik()
Jika StrLabel = Maka
Response.Write <span style='color:red;'>Error: Tag yang akan diganti tidak disetel! </span>
Respon.Akhir()
Akhiri Jika
Jika StrLValues= Lalu
Response.Write <span style='color:red;'>Error: Data untuk tag pengganti tidak disetel! </span>
Respon.Akhir()
Akhiri Jika
FileData=Ganti(FileData,StrLabel,StrLValues)
Fungsi Akhir
'Keluaran
Sub Gema Publik()
Respon.Tulis FileData
Akhiri Sub
'Buat halaman statis
Sub Publik GetHtml()
Jika StrHtmlName= Lalu
Response.Write <span style='color:red;'>Error: Lokasi penyimpanan dan nama file dari file Html yang dihasilkan tidak disetel! </span>
Respon.Akhir()
Akhiri Jika
Setel htmlwrite=FSO.CreateTextFile(Server.MapPath(StrHtmlName),true)
'Tulis konten halaman web
htmlwrite.WriteLine FileData
htmltulis.Tutup
sethtmlwrite=Tidak ada
Akhiri Sub
Kelas Akhir
%>
Contoh penggunaan:
indeks.asp
Copy kode kodenya sebagai berikut:
<!--#include file=Awa_temp.Class.asp-->
<%
Setel awa=AwaTemp Baru
Dengan wa
.Temp=temp.tpl
.BacaTemp
.Label={tl1}
.LValues=Sakit
.Reputasi
.Gema
'.HtmlName=aa/index.html
'.DapatkanHtml
Akhiri Dengan
Tetapkan awa=tidak ada
%>
setensilan
temp.tpl：
Copy kode kodenya sebagai berikut:
<!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html xmlns=http://www.w3.org/1999/xhtml>
<kepala>
<meta http-equiv=Jenis Konten konten=teks/html; charset=gb2312 />
<title>Dokumen Tanpa Judul</title>
</kepala>
<tubuh>
<lebar tabel=200 batas=1>
<tr>
<td>{tl1}</td>
<td>{tl2}</td>
<td>{tl3}</td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</tabel>
</tubuh>
</html>