Parameterbeschreibung
'Von Demoname verwendete Vorlage [../demo/*.html]
'savename Speicherort und Name speichern [../demo/*.html]
'strflag Flag, das ersetzt werden soll [$aaa$,$bbb$]
'strcontent Ersatzinhalt jedes Tags [aaa$bbb]
'============================================== = ============================
Sub-Makepage (Demoname, Speichername, Strflag, Strcontent)
Dimmen Sie fso, htmlwrite
Dim strOut
'//Dateisystemobjekt erstellen Set fso=Server.CreateObject(Scripting.FileSystemObject)
'//Öffnen Sie die Webseiten-Vorlagendatei und lesen Sie den Vorlageninhalt
Setze htmlwrite=fso.OpenTextFile(Server.MapPath(demoname))
strOut=htmlwrite.ReadAll
htmlwrite.close
'============================================== = ============================
strflag=split(strflag,,)
für i = 0 bis ubound(strflag)
strcont=split(strcontent,$)
strOut=Replace(strOut,strflag(i),strcont(i))
'response.write strflag(i)&=&[&strcont(i)&]
nächste
'// Tags in der Vorlage durch echten Inhalt ersetzen
'============================================== = ============================
'//Erstellen Sie die zu generierende statische Seite
Setze htmlwrite=fso.CreateTextFile(Server.MapPath(savename),true)
'//Webseiteninhalt schreiben
htmlwrite.WriteLine strOut
htmlwrite.close
Antwort.Schreiben
'// Dateisystemobjekt freigeben
sethtmlwrite=Nichts
set fso=Nichts
Ende sub
-------------------------------------------------- -------------------------------------------------- ----------------------------------------
Anwendungsbeispiel:
'Tag ersetzen
commentFlag=$hotname$,$webkeywords$,$webdescription$,$webtitle$,$weblogo$
'Ersetzen Sie den Wert, der der Beschriftung entspricht
Hostname=Request.ServerVariables(SERVER_NAME)'Rufen Sie den aktuellen Domänennamen ab
set rs=conn.execute(select webtitle_cn,webkey_cn,webDescription_cn,weblogo,webbanner from [WebConfig])
commentstr=Hostname&$&rs(1)&$&rs(2)&$&rs(0)&$&rs(3)
rs.close
setze rs=nichts
'Unterprogramm aufrufen
call makepage(../Demo/index_cn.html,../Cn/index.html,commentFlag,commentstr)