يمكن للأصدقاء الذين يحتاجون إلى أبسط فئة قالب لفئة تشغيل قالب ASP Crazy الرجوع إليها.
اسم الملف: Awa_temp.Class.asp
انسخ رمز الكود كما يلي:
<%
"الضفدع المجنون فئة التشغيل."
'الكاتب مجنون ~ الضفدع! QQ:379969387 مرحبا بكم في التواصل
'الإصدار V1.0;
ClassAwaTemp
أأ العامة
FSO الخاص، StrTemp، FileData، GetDatas، StrHtmlName، htmlwrite، StrLabel، StrLValues
'====================================================================================
"Constructor_Initialize مكون FSO
'====================================================================================
فئة فرعية خاصة_Initialize()
تعيين FSO=Server.CreateObject("Scripting.FileSystemObject")
نهاية الفرعية
'====================================================================================
'Destructor_Destroy مكون FSO
'====================================================================================
فئة فرعية خاصة_إنهاء ()
اضبط FSO = لا شيء
نهاية الفرعية
'====================================================================================
"سمة الطبقة."
'====================================================================================
"معلومات الإصدار."
الملكية العامة احصل على النسخة
الإصدار = "مجنون ~ الضفدع! فئة تشغيل القالب! إصدار V1.0؛"
نهاية الملكية
"احصل على عنوان القالب واسمه."
الملكية العامة تسمح بدرجة الحرارة (قيم ByVal)
StrTemp=Values
نهاية الملكية
'احصل على اسم الملف للملف الذي تم إنشاؤه
الملكية العامة دع HtmlName (قيم ByVal)
StrHtmlName=القيم
نهاية الملكية
"احصل على العلامات."
تسمية السماح للملكية العامة (قيم ByVal)
StrLabel=القيم
نهاية الملكية
'احصل على القيمة التي تحل محل التسمية
الملكية العامة دع LValues (قيم ByVal)
StrLValues=Values
نهاية الملكية
'====================================================================================
"طريقة الطبقة
'====================================================================================
"تحقق من إعدادات القالب وما إذا كانت موجودة أم لا
فحص الوظيفة الخاصة ()
إذا StrTemp = "" ثم
التحقق من = "<span>خطأ: لم يتم تعيين موقع تخزين ملف القالب!</span>"
آخر
إذا كان FSO.FileExists(StrTemp)=خطأ، إذن
التحقق من = "<span>خطأ: القالب المحدد غير موجود!</span>"
آخر
تحقق = صحيح
نهاية إذا
نهاية إذا
وظيفة النهاية
"قراءة صفحة القالب."
قراءة مؤقتة فرعية عامة ()
إذا تحقق ()<>صحيحًا إذن
الاستجابة.كتابة الاختيار ()
الاستجابة. النهاية ()
آخر
تعيين GetDatas=FSO.OpenTextFile(Server.MapPath(StrTemp))
FileData=GetDatas.ReadAll
GetDatas.Close
اضبط GetData = لا شيء
نهاية إذا
نهاية الفرعية
"استبدال المحتوى."
ممثل الوظيفة العامة ()
إذا StrLabel = "" ثم
Response.Write "<span>خطأ: لم يتم تعيين العلامة المراد استبدالها!</span>"
الاستجابة. النهاية ()
نهاية إذا
إذا StrLValues = "" ثم
Response.Write "<span>خطأ: لم يتم تعيين بيانات علامة الاستبدال!</span>"
الاستجابة. النهاية ()
نهاية إذا
FileData=Replace(FileData,StrLabel,StrLValues)
وظيفة النهاية
"الإخراج."
صدى فرعي عام ()
الاستجابة.اكتب بيانات الملف
نهاية الفرعية
"إنشاء صفحة ثابتة."
GetHtml الفرعي العام ()
إذا StrHtmlName = "" ثم
Response.Write "<span>خطأ: لم يتم تعيين موقع التخزين واسم الملف لملف Html الذي تم إنشاؤه!</span>"
الاستجابة. النهاية ()
نهاية إذا
تعيين htmlwrite=FSO.CreateTextFile(Server.MapPath(StrHtmlName),true)
"اكتب محتوى صفحة الويب."
htmlwrite.WriteLine FileData
أتش تي أم أل الكتابة. إغلاق
sethtmlwrite=لا شيء
نهاية الفرعية
نهاية الفصل
%>
أمثلة الاستخدام:
Index.asp
انسخ رمز الكود كما يلي:
<!--#include file="Awa_temp.Class.asp"-->
<%
تعيين awa=جديد AwaTemp
مع عوا
.درجة الحرارة = "temp.tpl"
.قراءة درجة الحرارة
.التسمية = "{tl1}"
.LValues="خصيتي تؤلمني"
.مندوب
.صدى
'.HtmlName = "aa/index.html"
'.احصل على HTML
نهاية مع
تعيين أوا = لا شيء
%>
مرسام
درجة الحرارة.tpl:
انسخ رمز الكود كما يلي:
<!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">
<الرأس>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>مستند بدون عنوان</title>
</الرأس>
<الجسم>
<الجدول>
<تر>
<td>{tl1}</td>
<td>{tl2}</td>
<td>{tl3}</td>
</tr>
<تر>
<td> </td>
<td> </td>
<td> </td>
</tr>
<تر>
<td> </td>
<td> </td>
<td> </td>
</tr>
</الجدول>
</الجسم>
</html>