ASP  动态生成HTML文件
FileSystemObject的CreateTextFile可以生成任意类型的文本文件，HTML文件也是一种文本文件。下面的练习，根据用户的输入信息，动态生成HTML页面。
首先创建一个虚拟目录myweb，在该虚拟目录下创建一个名为createhtml的asp文件。
然后打开该文件，并输入以下代码：
<%
dim action,username
action=request.Form("action")
username=request.Form("username")
if action="create" then
    dim objfile,objstream 
    set objfile=Server.CreateObject("scripting.FileSystemObject")
    set objstream=objfile.CreateTextFile(server.MapPath("index.html"))
    objstream.WriteLine("<html>")
    objstream.WriteLine("<title>动态生成的HTML文件</title>")
    objstream.WriteLine("<body>")
    objstream.WriteLine("<a href='www.webzcn'>欢迎光临"&username&"的个人网站</a>")
    objstream.WriteLine("</body>")
    objstream.WriteLine("</html>") 
    objstream.close 
    set objstream=nothing 
    set objfile=nothing
%>
<a href="index.html">查看生成的页面</a>
<%
else
%>
<form name="form1" action="" method="post">
请输入您的名字：<input name="username" type="text" />
<input type="hidden" name="action" value="create" />
<br />
<input type="submit" value="提交" />
</form>
<%
end if
%>
上述代码中首先显示一个表单，该表单供用户输入名字，如图3-20所示。用户输入名字，提交后，首先创建FileSystemObject对象，通过该对象的CreateTextFile()方法，返回TextStream对象，又通过TextStream对象的WriteLine()方法，将HTML代码写入到文件中。
   
图3-20  显示输入名字的表单      图3-21  显示输入名字的表单
浏览器中运行，输入名字后提交，生成的页面效果及生成的文件内容如图3-21所示。
将html代码显示为文本

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。