详谈asp生成静态页方法

<div class=”PostBody”>
<p style=”text-indent: 2em”>生成静态页的好处不用说，当今大型网站，为缓解服务器端的压力许的的页面都改用了静态的页面，并利用AJAX技术动态地更新其中的部分内容，如广告等。

<p style=”text-indent: 2em”>一个简单的不用模板可以直接生成HTML静态页的方法.

<p style=”text-indent: 2em”>如一个正常的index.asp动态页面，

<p style=”text-indent: 2em”>新建一个文件makeasp2html.asp

<p style=”text-indent: 2em”>

“&vbcrlf)
ts.close
set ts=nothing ‘释放对象
Dim EditFile’定义改写文件变量
Set EditFile = fs.GetFile(filez)’设置改写文件对象
EditFile.name= left(EditFile.name,len(EditFile.name)-4)&”.htm” ‘改写文本文件成htm
next’循环生成结束(分页生成)
set EditFile=nothing ‘释放对象
set fs=nothing’释放对象
if err.number<>0 then ‘处理生成错误
Response.write (City&”更新时发生未知错误”)
else
Response.Write(City&”酒店更新已完成 “&Now())
end if
%>

<%
dimfname,fso,fout,htmlcode
dimhtmlbody,htmlbody1,page_n
htmlbody=request.form(“body”)
page_n=len(htmlbody)-len(replace(htmlbody,”$”,””))
’生成文件名的函数
functionmakefilename(fname)
fname=fname
fname=replace(fname,”-“,””)
fname=replace(fname,””,””)
fname=replace(fname,”:”,”PM”,”AM”,”上午”,”下午”,””)
makefilename=fname
endfunction
ifrequest.querystring(“action”)=”add”then
fori=0topage_n
fname=makefilename(now())
ifi=0then
ppage=0
else
ppage=i-1
endif
ifi=0andpage_n>ithen
npage=i+1
else
npage=page_n
endif
shtml=split(htmlbody,”$”)(i)&vbcrlf
shtml=shtml&”
”
Setfso=Server.CreateObject(“Scripting.FileSystemObject”)
Setfout=fso.CreateTextFile(Server.MapPath(fname&”_”&i&”.html”))
fout.WriteLineshtml
fout.close
next
response.write””
endif
%>





文章内容：