وحدة روتين فرعي لإنشاء HTML ثابت من صفحة ويب ديناميكية

وصف المعلمة

'القالب المستخدم بواسطة الاسم التجريبي [../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)