Descripción del parámetro
'Plantilla utilizada por demoname [../demo/*.html]
'savename guardar ubicación y nombre [../demo/*.html]
'strflag Bandera a reemplazar [$aaa$,$bbb$]
'strcontent Contenido de reemplazo de cada etiqueta [aaa$bbb]
'=================================================== = =============================
Submakepage(demoname,savename,strflag,strcontent)
Dim fso,htmlwrite
Dim strOut
'//Crear objeto del sistema de archivos Establecer fso=Server.CreateObject(Scripting.FileSystemObject)
'//Abre el archivo de plantilla de la página web y lee el contenido de la plantilla.
Establecer htmlwrite=fso.OpenTextFile(Server.MapPath(demoname))
strOut=htmlwrite.ReadAll
htmlwrite.cerrar
'=================================================== = =============================
bandera_cadena=dividir(bandera_cadena,,)
para i = 0 a ubound(strflag)
strcont=split(strcontenido,$)
strOut=Reemplazar(strOut,strflag(i),strcont(i))
'respuesta.escribir strflag(i)&=&[&strcont(i)&]
próximo
'// Reemplazar etiquetas en la plantilla con contenido real
'=================================================== = =============================
'//Crea la página estática a generar
Establecer htmlwrite=fso.CreateTextFile(Server.MapPath(savename),true)
'//Escribir contenido de la página web
htmlwrite.WriteLine strOut
htmlwrite.cerrar
Respuesta.Escribir
'// Liberar el objeto del sistema de archivos
sethtmlwrite=Nada
establecer fso=Nada
sub final
-------------------------------------------------- -------------------------------------------------- ----------------------------------------
Ejemplo de uso:
'Reemplazar etiqueta
commentFlag=$hotname$,$webkeywords$,$webdescription$,$webtitle$,$weblogo$
'Reemplazar el valor correspondiente a la etiqueta
Hostname=Request.ServerVariables(SERVER_NAME)'Obtener el nombre de dominio actual
set rs=conn.execute(seleccione webtitle_cn,webkey_cn,webDescription_cn,weblogo,webbanner de [WebConfig])
commentstr=Nombre de host&$&rs(1)&$&rs(2)&$&rs(0)&$&rs(3)
rs.cerrar
establecer rs = nada
'Llamar a subrutina
llamar a makepage(../Demo/index_cn.html,../Cn/index.html,commentFlag,commentstr)