يمكن للأصدقاء الذين يحتاجون إلى أبسط فئة قالب من فئة تشغيل قالب 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 style='color:red;'>خطأ: لم يتم تعيين موقع تخزين ملف القالب! </span>
آخر
إذا كان FSO.FileExists(StrTemp)=خطأ، إذن
تحقق=<span style='color:red;'>خطأ: القالب المحدد غير موجود! </span>
آخر
تحقق = صحيح
نهاية إذا
نهاية إذا
وظيفة النهاية
"قراءة صفحة القالب."
قراءة مؤقتة فرعية عامة ()
إذا تحقق ()<>صحيحًا إذن
الاستجابة.كتابة الاختيار ()
الاستجابة. النهاية ()
آخر
تعيين GetDatas=FSO.OpenTextFile(Server.MapPath(StrTemp))
FileData=GetDatas.ReadAll
GetDatas.Close
اضبط GetData = لا شيء
نهاية إذا
نهاية الفرعية
"استبدال المحتوى."
ممثل الوظيفة العامة ()
إذا StrLabel = إذن
Response.Write <span style='color:red;'>خطأ: لم يتم تعيين العلامة المراد استبدالها! </span>
الاستجابة. النهاية ()
نهاية إذا
إذا StrLValues = ثم
Response.Write <span style='color:red;'>خطأ: لم يتم تعيين بيانات علامة الاستبدال! </span>
الاستجابة. النهاية ()
نهاية إذا
FileData=Replace(FileData,StrLabel,StrLValues)
وظيفة النهاية
"الإخراج."
صدى فرعي عام ()
الاستجابة.اكتب بيانات الملف
نهاية الفرعية
"إنشاء صفحة ثابتة."
GetHtml الفرعي العام ()
إذا StrHtmlName = إذن
Response.Write <span style='color:red;'>خطأ: لم يتم تعيين موقع التخزين واسم الملف لملف Html الذي تم إنشاؤه! </span>
الاستجابة. النهاية ()
نهاية إذا
تعيين htmlwrite=FSO.CreateTextFile(Server.MapPath(StrHtmlName),true)
"اكتب محتوى صفحة الويب."
htmlwrite.WriteLine FileData
أتش تي أم أل الكتابة. إغلاق
sethtmlwrite=لا شيء
نهاية الفرعية
نهاية الفصل
%>
أمثلة الاستخدام:
Index.asp
انسخ رمز الكود كما يلي:
<!--#include file=Awa_temp.Class.asp-->
<%
تعيين awa=جديد AwaTemp
مع عوا
.Temp=temp.tpl
.قراءة درجة الحرارة
.التسمية={tl1}
.LValues=إنه مؤلم
.مندوب
.صدى
'.HtmlName=aa/index.html
'.احصل على HTML
نهاية مع
تعيين أوا = لا شيء
%>
مرسام
درجة الحرارة:
انسخ رمز الكود كما يلي:
<!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;
<title>مستند بدون عنوان</title>
</الرأس>
<الجسم>
<عرض الجدول=200 حد=1>
<تر>
<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>