Description des paramètres
'Modèle utilisé par demoname [../demo/*.html]
'savename enregistre l'emplacement et le nom [../demo/*.html]
'strflag Indicateur à remplacer [$aaa$,$bbb$]
'strcontent Contenu de remplacement de chaque balise [aaa$bbb]
'================================================== = ============================
Sous-makepage (nom de démo, nom de sauvegarde, strflag, strcontent)
Dim fso, htmlwrite
Dim strOut
'//Créer un objet système de fichiers Set fso=Server.CreateObject(Scripting.FileSystemObject)
'//Ouvrez le fichier de modèle de page Web et lisez le contenu du modèle
Définir htmlwrite=fso.OpenTextFile(Server.MapPath(demoname))
strOut=htmlwrite.ReadAll
htmlwrite.close
'================================================== = ============================
strflag=split(strflag,,)
pour i = 0 à ubound(strflag)
strcont=split(strcontent,$)
strOut=Remplacer(strOut,strflag(i),strcont(i))
'response.write strflag(i)&=&[&strcont(i)&]
suivant
'// Remplacer les balises du modèle par du contenu réel
'================================================== = ============================
'//Créer la page statique à générer
Définir htmlwrite=fso.CreateTextFile(Server.MapPath(savename),true)
'//Écrire le contenu d'une page Web
htmlwrite.WriteLine strOut
htmlwrite.close
Réponse.Écrire
'// Libère l'objet du système de fichiers
sethtmlwrite=Rien
set fso=Rien
fin du sous
-------------------------------------------------- -------------------------------------------------- ---------------------------------------------
Exemple d'utilisation :
'Remplacer la balise
commentFlag=$hotname$,$webkeywords$,$webdescription$,$webtitle$,$weblogo$
'Remplacer la valeur correspondant au label
Hostname=Request.ServerVariables(SERVER_NAME)'Obtenir le nom de domaine actuel
set rs=conn.execute (sélectionnez webtitle_cn,webkey_cn,webDescription_cn,weblogo,webbanner dans [WebConfig])
commentstr=Nom d'hôte&$&rs(1)&$&rs(2)&$&rs(0)&$&rs(3)
rs.fermer
définir rs = rien
'Appeler le sous-programme
appelez makepage(../Demo/index_cn.html,../Cn/index.html,commentFlag,commentstr)