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
Version="Gila~katak! Kelas operasi templat! Versi V1.0;"
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="" Lalu
Check="<span>Kesalahan: Lokasi penyimpanan file template tidak disetel!</span>"
Kalau tidak
Jika FSO.FileExists(StrTemp)=false Lalu
Check="<span>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 = "" Lalu
Response.Write "<span>Error: Tag yang akan diganti tidak disetel!</span>"
Respon.Akhir()
Akhiri Jika
Jika StrLValues = "" Lalu
Response.Write "<span>Kesalahan: 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>Kesalahan: 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="Bolaku 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" content="teks/html; charset=gb2312" />
<title>Dokumen Tanpa Judul</title>
</kepala>
<tubuh>
<tabel>
<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>