像www.myeducs.cn的主站就采用了开发生成html文件!
所以吟清最近对生成html比较感兴趣,看了不少文章,也有一点点收获.
1,下面这个例子直接利用FSO把html代码写入到文件中然后生成.html格式的文件
<% filename="test.htm" if request("body")<>"" then set fso = Server.CreateObject("Scripting.FileSystemObject") set htmlwrite = fso.CreateTextFile(server.mappath(""&filename&"")) htmlwrite.write "<html><head><title>" & request.form("title") & "</title></head>" htmlwrite.write "<body>输出Title内容: " & request.form("title") & "<br /> 输出Body内容:" & request.form("body")& "</body></html>" htmlwrite.close set fout=nothing set fso=nothing end if %> <form name="form" method="post" action=""> <input name="title" value="Title" size=26> <br> <textarea name="body">Body</textarea> <br> <br> <input type="submit" name="Submit" value="生成html"> </form> |
template.htm ' //模板文件
<html> <head> <title>$title$ by aspid.cn</title> </head> <body> $body$ </body> </html> ? TestTemplate.asp '// 生成Html <% Dim fso,htmlwrite Dim strTitle,strContent,strOut '// 创建文件系统对象 Set fso=Server.CreateObject("Scripting.FileSystemObject") '// 打开网页模板文件,读取模板内容 Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm")) strOut=f.ReadAll htmlwrite.close strTitle="生成的网页标题" strC '// 用真实内容替换模板中的标记 strOut=Replace(strOut,"$title$",strTitle) strOut=Replace(strOut,"$body$",strContent) '// 创建要生成的静态页 Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true) '// 写入网页内容 htmlwrite.WriteLine strOut htmlwrite.close Response.Write "生成静态页成功!" '// 释放文件系统对象 set htmlwrite=Nothing set fso=Nothing %> |
3,第三种方法就是用xml(标准化越来越近了)HTTP获取动态页生成的HTML内容,再用ADODB.Stream或者Scripting.FileSystemObject保存成html文件。这句话是在蓝色理想上看到的,对xml(标准化越来越近了)HTTP吟清还不熟悉正在找资料了解.找到一段xml(标准化越来越近了)HTTP生成Html的代码参考一下.