网页生成静态Html文件有许多好处,比如生成html网页有利于被收录,不仅被收录的快还收录的全.前台脱离了数据访问,减轻对访问的压力,加快网页打开速度.
像www.aspid.cn的主站就采用了TSYS生成html文件!
所以吟清最近对生成html比较感兴趣,看了不少文章,也有一点点收获.

1,下面这个例子直接利用FSO把html代码写入到文件中然后生成.html格式的文件＜%
filename="test.htm"
ifrequest("body")＜>""then
setfso=Server.CreateObject("Scripting.FileSystemObject")
sethtmlwrite=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
setfout=nothing
setfso=nothing
endif
%>
＜formname="form"method="post"action="">
＜inputname="title"value="Title"size=26>
＜br>
＜textareaname="body">Body＜/textarea>
＜br>
＜br>
＜inputtype="submit"name="Submit"value="生成html">
＜/form>
2,但是按照上面的方法生成html文件非常不方便,第二种方法就是利用模板技术,将模板中特殊代码的值替换为从表单或是字段中接受过来的值,完成模板功能;将最终替换过的所有模板代码生成HTML文件.这种技术采用得比较多,大部分的CMS都是使用这类方法.
template.htm'//模板文件＜html>
＜head>
＜title>$title$byaspid.cn＜/title>
＜/head>
＜body>
$body$
＜/body>
＜/html>?

TestTemplate.asp'//生成Html＜%
Dimfso,htmlwrite
DimstrTitle,strContent,strOut
'//创建文件系统对象
Setfso=Server.CreateObject("Scripting.FileSystemObject")
'//打开文件，读取模板内容
Sethtmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))
strOut=f.ReadAll
htmlwrite.close

strTitle="生成的网页标题"
strContent="生成的网页内容"

'//用真实内容替换模板中的标记
strOut=Replace(strOut,"$title$",strTitle)
strOut=Replace(strOut,"$body$",strContent)

'//创建要生成的静态页
Sethtmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)

'//写入网页内容
htmlwrite.WriteLinestrOut
htmlwrite.close

Response.Write"生成静态页成功！"

'//释放文件系统对象
sethtmlwrite=Nothing
setfso=Nothing
%>

3,第三种方法就是用XMLHTTP获取动态页生成的HTML内容，再用ADODB.Stream或者Scripting.FileSystemObject保存成html文件。这句话是在蓝色理想上看到的,对XMLHTTP吟清还不熟悉正在找资料了解.找到一段XMLHTTP生成Html的代码参考一下.
＜%

'常用函数
'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码
functiongetHTTPPage(url)
dimHttp
setHttp=server.createobject("MSXML2.XMLHTTP")
Http.open"GET",url,false
Http.send()
ifHttp.readystate＜>4then
exitfunction
endif
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
sethttp=nothing
iferr.number＜>0thenerr.Clear
endfunction

'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换
FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction


txtURL=server.MapPath("../index.asp")

sText=getHTTPPage(txtURL)

SetFileObject=Server.CreateObject("Scripting.FileSystemObject")
filename="../index.htm"
SetopenFile=FileObject.OpenTextfile(server.mapPath(filename),2,true)'true为不存在自行建立
openFile.writeline(sText)
SetOpenFile=nothing

%>
＜script>
alert("静态网页生成完毕");
history.back();
＜/script>