Descrição do parâmetro
'Modelo usado por demoname [../demo/*.html]
'savename salva local e nome [../demo/*.html]
'strflag Sinalizador a ser substituído [$aaa$,$bbb$]
'strcontent Conteúdo de substituição de cada tag [aaa$bbb]
'================================================ = ============================
Sub makepage(demoname,savename,strflag,strcontent)
Dim fso,htmlwrite
Dim strOut
'//Criar objeto do sistema de arquivos Set fso=Server.CreateObject(Scripting.FileSystemObject)
'//Abra o arquivo de modelo da página web e leia o conteúdo do modelo
Definir htmlwrite=fso.OpenTextFile(Server.MapPath(demoname))
strOut=htmlwrite.ReadAll
htmlwrite.fechar
'================================================ =============================
strflag=dividir(strflag,,)
para i = 0 para ubound(strflag)
strcont=dividir(strcontent,$)
strOut=Substituir(strOut,strflag(i),strcont(i))
'response.write strflag(i)&=&[&strcont(i)&]
próximo
'// Substitua tags no modelo por conteúdo real
'================================================ =============================
'//Cria a página estática a ser gerada
Definir htmlwrite=fso.CreateTextFile(Server.MapPath(savename),true)
'//Escreve o conteúdo da página web
htmlwrite.WriteLine strOut
htmlwrite.fechar
Resposta.Escrever
'// Libera o objeto do sistema de arquivos
sethtmlwrite=Nada
definir fso=Nada
final sub
-------------------------------------------------- -------------------------------------------------- ----------------------------------------
Exemplo de uso:
'Substituir etiqueta
commentFlag=$hotname$,$webkeywords$,$webdescription$,$webtitle$,$weblogo$
'Substitua o valor correspondente ao rótulo
Hostname=Request.ServerVariables(SERVER_NAME)'Obter o nome de domínio atual
set rs=conn.execute(selecione webtitle_cn,webkey_cn,webDescription_cn,weblogo,webbanner em [WebConfig])
comentarstr=Nome do host&$&rs(1)&$&rs(2)&$&rs(0)&$&rs(3)
rs.fechar
definir rs = nada
'Chama sub-rotina
chame makepage(../Demo/index_cn.html,../Cn/index.html,commentFlag,commentstr)