Запишите код HTML в файл, а затем сгенерируйте файл в формате .html
<%
filename = test.htm
Если запрос (тело) <> тогда
Установить fso = server.createObject (scripting.filesystemobject)
Установить htmlWrite = fso.createTextFile (server.mappath (filename))
htmlwrite.write <html> <head> <title> request.form (title) </title> </head>
htmlwrite.write <body> Содержание вывода «Body>»
htmlwrite.close
Установить fout = ничего
Установить FSO = ничего
конец, если
%>
<Form name = form method = post action =>
<Имя ввода = значение заголовка = размер заголовка = 26>
<br>
<textarea name = body> body </textarea>
<br>
<br>
<input type = отправить имя = отправить значение = генерировать HTML>
</form>
2. Однако очень неудобно генерировать HTML -файл в соответствии с приведенным выше методом. Чтобы завершить функцию шаблона;
Template.htm '// Файл шаблона
<html>
<голова>
<Title> $ title $ by jzxue.com </title>
</head>
<тело>
$ Body $
</body>
</html> testmplate.asp '// генерировать html
<%
Dim fso, HtmlWrite
Dim Strtital, Strcontent, Strout
'// Создать объект файловой системы
Установить fso = server.createObject (scripting.filesystemobject)
'// Откройте файл веб -шаблона и прочитайте содержимое шаблона
Установить htmlWrite = fso.opentextfile (server.mappath (template.htm))
Strout = f.readall
htmlwrite.close
strtital = сгенерированное название веб -страницы
Strcontent = сгенерированное контент веб -страницы
'// Использование реального контента для замены отметки в шаблоне
Strout = reply (strout, $ title $, strtitle)
Strout = reply (strout, $ body $, strcontent)
'// Создать статическую страницу, которая будет сгенерирована
Установить htmlWrite = fso.createTextFile (server.mappath (test.htm), true)
'// Записать в веб -контент
htmlwrite.writeline strout
htmlwrite.close
Response.write генерирует статическую страницу успеха!
'// Отпустите объект файловой системы
Установить htmlwrite = ничего
Установить FSO = ничего
%>