Escreva o código HTML no arquivo e depois gerar o arquivo no formato .html
<%
arquivo de arquivo = test.htm
Se solicitar (corpo) <> então
set fso = server.createObject (script.filesystemoBject)
Definir htmlwrite = fso.createTextFile (Server.mappath (nome do arquivo))
htmlwrite.write <html> <head> <title> request.form (title) </title> </head>
htmlwrite.write <body> título de saída Conteúdo do título: request.form (title) <br/> Conteúdo do corpo de saída: request.form (body) </body> </html>
htmlwrite.close
Definir Fout = nada
Definir FSO = nada
final se
%>
<Nome de forma = método de formulário = pós -ação =>
<nome de entrada = valor do título = tamanho do título = 26>
<br>
<textarea nome = corpo> corpo </sexttarea>
<br>
<br>
<Tipo de entrada = Nome de envio = Valor de envio = Gere Html>
</morm>
2. No entanto, é muito inconveniente gerar o arquivo HTML de acordo com o método acima. Para preencher a função de modelo;
modelo de modelo de modelo '//
<html>
<head>
<title> $ title $ por jzxue.com </ititle>
</head>
<Body>
$ Corpo $
</body>
</html> testmplate.asp '// gerar html
<%
Dim FSO, htmlWrite
Dim strtital, strcontent, strout
'// Crie um objeto de sistema de arquivos
Set fso = server.createObject (script.filesystemoBject)
'// Abra o arquivo de modelo da web e leia o conteúdo do modelo
Definir htmlwrite = fso.opentExtfile (server.mappath (template.htm))
Strout = f.readall
htmlwrite.close
strtital = título da página da web gerada
STRCONTENT = conteúdo da página da web gerada
'// Use conteúdo real para substituir a marca no modelo
Strout = substituir (strout, $ title $, strtitle)
Strout = substituir (strout, $ body $, strcontent)
'// Crie uma página estática a ser gerada
Definir htmlwrite = fso.createTextFile (Server.mappath (test.htm), true)
'// Escreva o conteúdo da web
htmlwrite.writeline strout
htmlwrite.close
Response.Write gera um sucesso estático da página!
'// Libere o objeto do sistema de arquivos
Definir htmlwrite = nada
Definir FSO = nada
%>