เพื่อนที่ต้องการคลาสเทมเพลตที่ง่ายที่สุดของคลาสการดำเนินการเทมเพลต ASP Crazy สามารถอ้างอิงได้ ชื่อไฟล์: Awa_temp.Class.asp
คัดลอกรหัสรหัสดังต่อไปนี้:
-
'กบบ้า!
'Author Crazy~frog! QQ:379969387 ยินดีต้อนรับสู่การสื่อสาร
'เวอร์ชั่น V1.0;
คลาสAwaTemp
สาธารณะเอเอ
FSO ส่วนตัว, StrTemp, FileData, GetDatas, StrHtmlName, html เขียน, StrLabel, StrLValues
-
'Constructor_Initialize ส่วนประกอบ FSO
-
Class_Initialize ส่วนตัว ()
ตั้งค่า FSO=Server.CreateObject(Scripting.FileSystemObject)
จบหมวดย่อย
-
'ส่วนประกอบ Destructor_Destroy FSO
-
Class_terminate ส่วนตัวย่อย ()
ตั้งค่า FSO=nothing
จบหมวดย่อย
-
'แอตทริบิวต์คลาส
-
'ข้อมูลเวอร์ชั่น
ทรัพย์สินสาธารณะรับเวอร์ชัน
เวอร์ชัน = บ้า ~ กบ! คลาสการดำเนินการเทมเพลต!
สิ้นสุดคุณสมบัติ
'รับที่อยู่และชื่อเทมเพลต
ทรัพย์สินสาธารณะ Let Temp (ค่า ByVal)
StrTemp=ค่า
สิ้นสุดคุณสมบัติ
'รับชื่อไฟล์ของไฟล์ที่สร้างขึ้น
ทรัพย์สินสาธารณะให้ HtmlName (ค่า ByVal)
StrHtmlName=ค่า
สิ้นสุดคุณสมบัติ
'รับแท็ก'
ทรัพย์สินสาธารณะ Let Label (ค่า ByVal)
StrLabel=ค่า
สิ้นสุดคุณสมบัติ
'รับค่าที่มาแทนที่ป้ายกำกับ
ทรัพย์สินสาธารณะให้ LValues (ค่า ByVal)
StrLValues=ค่า
สิ้นสุดคุณสมบัติ
-
'วิธีการเรียน
-
'ตรวจสอบการตั้งค่าเทมเพลตและดูว่ามีอยู่หรือไม่
ตรวจสอบฟังก์ชันส่วนตัว()
ถ้า StrTemp= จากนั้น
ตรวจสอบ=<span style='color:red;'>ข้อผิดพลาด: ไม่ได้ตั้งค่าตำแหน่งที่เก็บไฟล์เทมเพลต! </span>
อื่น
ถ้า FSO.FileExists(StrTemp)=false แล้ว
ตรวจสอบ=<span style='color:red;'>ข้อผิดพลาด: ไม่มีเทมเพลตที่ระบุ! </span>
อื่น
ตรวจสอบ=จริง
สิ้นสุดถ้า
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'อ่านหน้าเทมเพลต
สาธารณะย่อย ReadTemp()
ถ้า Check()<>true แล้ว
Response.เขียนเช็ค()
การตอบสนองสิ้นสุด()
อื่น
ตั้งค่า GetDatas=FSO.OpenTextFile(Server.MapPath(StrTemp))
FileData=GetDatas.ReadAll
GetDatas ปิด
ตั้งค่า GetData=nothing
สิ้นสุดถ้า
จบหมวดย่อย
'แทนที่เนื้อหา
ตัวแทนฟังก์ชั่นสาธารณะ()
ถ้า StrLabel= จากนั้น
Response.Write <span style='color:red;'>ข้อผิดพลาด: ไม่ได้ตั้งค่าแท็กที่จะแทนที่! </span>
การตอบสนองสิ้นสุด()
สิ้นสุดถ้า
ถ้า StrLValues= จากนั้น
Response.Write <span style='color:red;'>ข้อผิดพลาด: ไม่ได้ตั้งค่าข้อมูลสำหรับแท็กทดแทน! </span>
การตอบสนองสิ้นสุด()
สิ้นสุดถ้า
FileData=แทนที่(FileData,StrLabel,StrLValues)
ฟังก์ชันสิ้นสุด
'เอาท์พุต
เสียงสะท้อนย่อยสาธารณะ()
การตอบสนองเขียน FileData
จบหมวดย่อย
'สร้างเพจแบบคงที่
สาธารณะย่อย GetHtml()
ถ้า StrHtmlName= จากนั้น
Response.Write <span style='color:red;'>ข้อผิดพลาด: ไม่ได้ตั้งค่าตำแหน่งที่เก็บข้อมูลและชื่อไฟล์ของไฟล์ Html ที่สร้างขึ้น! </span>
การตอบสนองสิ้นสุด()
สิ้นสุดถ้า
ตั้งค่า htmlwrite=FSO.CreateTextFile(Server.MapPath(StrHtmlName),true)
'เขียนเนื้อหาหน้าเว็บ
htmlwrite.WriteLine FileData
htmlwrite.ปิด
sethtmlwrite=ไม่มีอะไร
จบหมวดย่อย
จบคลาส
-
ตัวอย่างการใช้งาน:
ดัชนี.asp
คัดลอกรหัสรหัสดังต่อไปนี้:
<!--#include file=Awa_temp.Class.asp-->
-
ตั้ง awa=AwaTemp ใหม่
ด้วยเอ้า
.Temp=temp.tpl
.อ่านอุณหภูมิ
.เลเบล={tl1}
.LValues=มันเจ็บ
.ตัวแทน
.เอคโค่
'.HtmlName=aa/index.html
'.GetHtml
จบด้วย
ตั้ง awa=ไม่มีอะไร
-
ลายฉลุ
อุณหภูมิ.tpl：
คัดลอกรหัสรหัสดังต่อไปนี้:
<!DOCTYPE html สาธารณะ -//W3C//DTD XHTML 1.0 การเปลี่ยนผ่าน//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html xmlns=http://www.w3.org/1999/xhtml>
<หัว>
<meta http-equiv=เนื้อหาประเภทเนื้อหา=ข้อความ/html; charset=gb2312 />
<title>เอกสารที่ไม่มีชื่อ</title>
</หัว>
<ร่างกาย>
<ความกว้างของตาราง=200 เส้นขอบ=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>
</ตาราง>
</ร่างกาย>
</html>