وصف المعلمة
'القالب المستخدم بواسطة الاسم التجريبي [../demo/*.html]
'حفظ الاسم، حفظ الموقع والاسم [../demo/*.html]
'علامة strflag التي سيتم استبدالها [$aaa$,$bbb$]
'محتوى استبدال strcontent لكل علامة [aaa$bbb]
'======================================================================== =============================================================
صفحة الماكياج الفرعية (اسم شيطاني، حفظ اسم، strflag، strcontent)
خافت fso، أتش تي أم أل الكتابة
خافت ستروت
'// إنشاء كائن نظام الملفات Set fso=Server.CreateObject(Scripting.FileSystemObject)
'// افتح ملف قالب صفحة الويب واقرأ محتوى القالب
تعيين htmlwrite=fso.OpenTextFile(Server.MapPath(demonname))
strOut=htmlwrite.ReadAll
htmlwrite.إغلاق
'======================================================================== =============================================================
strflag = سبليت (strflag،،)
لأني = 0 إلى ubound(strflag)
strcont=split(strcontent,$)
strOut=استبدال(strOut,strflag(i),strcont(i))
'response.write strflag(i)&=&[&strcont(i)&]
التالي
'// استبدل العلامات الموجودة في القالب بمحتوى حقيقي
'======================================================================== =============================================================
'// أنشئ الصفحة الثابتة المراد إنشاؤها
تعيين htmlwrite=fso.CreateTextFile(Server.MapPath(savename),true)
'//اكتب محتوى صفحة الويب
htmlwrite.WriteLine strOut
htmlwrite. Close
الرد.اكتب
'// حرر كائن نظام الملفات
sethtmlwrite=لا شيء
تعيين fso=لا شيء
النهاية الفرعية
-------------------------------------------------- -------------------------------------------------- ----------------------------------------
مثال الاستخدام:
"استبدال العلامة."
commentFlag=$hotname$,$webkeywords$,$webdescription$,$webtitle$,$weblogo$
'استبدل القيمة المقابلة للملصق
اسم المضيف=Request.ServerVariables(SERVER_NAME)'احصل على اسم المجال الحالي
تعيين rs=conn.execute(اختر webtitle_cn,webkey_cn,webDescription_cn,weblogo,webbanner من [WebConfig])
commentstr=Hostname&$&rs(1)&$&rs(2)&$&rs(0)&$&rs(3)
rs. Close
تعيين RS=لا شيء
'"إجراء فرعي للاتصال"."
استدعاء makepage(../Demo/index_cn.html,../Cn/index.html,commentFlag,commentsstr)