คำอธิบายพารามิเตอร์
'เทมเพลตที่ใช้โดย demoname [../demo/*.html]
'savename บันทึกตำแหน่งและชื่อ [../demo/*.html]
'ธง strflag จะถูกแทนที่ [$aaa$,$bbb$]
'เนื้อหาการแทนที่ strcontent ของแต่ละแท็ก [aaa$bbb]
'=================================================' = ============================
makepage ย่อย (demoname, savename, strflag, strcontent)
Dim fso,htmlwrite
Dim strOut
'//สร้างวัตถุระบบไฟล์ ตั้ง fso=Server.CreateObject(Scripting.FileSystemObject)
'//เปิดไฟล์เทมเพลตของหน้าเว็บและอ่านเนื้อหาเทมเพลต
ตั้งค่า htmlwrite=fso.OpenTextFile(Server.MapPath(demoname))
strOut=htmlwrite.ReadAll
htmlwrite.ปิด
'=================================================' = ============================
strflag=แยก(strflag,,)
สำหรับ i = 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.ปิด
การตอบสนอง.เขียน
'// ปล่อยวัตถุระบบไฟล์
sethtmlwrite=ไม่มีอะไร
ตั้งค่า fso=ไม่มีอะไร
จบย่อย
-------------------------------------------------- -------------------------------------------------- -------------------------------------------------- -------------------------------------------------- --------------------------------------------
ตัวอย่างการใช้งาน:
'แทนที่แท็ก
commentFlag=$hotname$,$webkeywords$,$webdescription$,$webtitle$,$weblogo$
'แทนที่ค่าที่สอดคล้องกับป้ายกำกับ
Hostname=Request.ServerVariables(SERVER_NAME)'รับชื่อโดเมนปัจจุบัน
ตั้งค่า rs=conn.execute (เลือก webtitle_cn,webkey_cn,webDescription_cn,weblogo,webbanner จาก [WebConfig])
ความคิดเห็นstr=ชื่อโฮสต์&$&rs(1)&$&rs(2)&$&rs(0)&$&rs(3)
RS.ปิด
ตั้งค่า rs=nothing
'เรียกรูทีนย่อย
โทร makepage (../Demo/index_cn.html,../Cn/index.html,commentFlag,commentstr)