Écrivez le code HTML dans le fichier, puis générez le fichier au format .html
<%
filename = test.htm
Si demande (corps) <> alors
set fso = server.createObject (scripting.fileSystemObject)
définir htmlwrite = fso.createtextfile (server.mappath (nom de fichier)))
htmlwrite.write <html> <éad- head> <itle> request.form (title) </title> </ head>
htmlwrite.write <body> Titre de sortie Contenu du titre: request.form (title) <br/> contenu du corps de sortie: request.form (body) </ body> </html>
htmlwrite.close
set fout = rien
Définir FSO = rien
terminer si
%>
<Form name = Form Method = Post Action =>
<entrée name = Title Value = Title Size = 26>
<br>
<TextArea name = Body> Body </ TextArea>
<br>
<br>
<Type d'entrée = soumettre name = soumettre une valeur = générer HTML>
</ form>
2. Cependant, il est très gênant de générer le fichier HTML en fonction de la méthode ci-dessus. Pour compléter la fonction de modèle;
Template.htm '// Fichier de modèle
<html>
<adal>
<Title> $ Title $ par jzxue.com </Title>
</ head>
<body>
$ Body $
</docy>
</html> testmlate.asp '// Générer HTML
<%
DIM FSO, HTMLWRITE
Strtital Dim, Stracent, Strout
'// Créer un objet Système de fichiers
Set fso = server.createObject (scripting.fileSystemObject)
'// Ouvrez le fichier de modèle Web et lisez le contenu du modèle
SET HTMLWRITE = FSO.OPENEXTFILE (server.mappath (template.htm))
Stout = F.Readall
htmlwrite.close
strtital = titre de page Web généré
StrContent = contenu de page Web généré
'// Utilisez du contenu réel pour remplacer la marque dans le modèle
Strout = remplacer (Strout, $ title $, strtitle)
Strout = Remplacer (Strout, $ body $, strContent)
'// Créer une page statique à générer
SET HTMLWRITE = FSO.CREATETEXTFILE (server.mappath (test.htm), true)
'// Écrivez dans le contenu Web
htmlwrite.writeline Stout
htmlwrite.close
Response.Write génère un succès de page statique!
'// Libérez l'objet Système de fichiers
définir htmlwrite = rien
Définir FSO = rien
%>