在asp中实现由动态网页转变为静态网页

在asp中实现由动态网页转变为静态网页可以使用模板生成，通过FsoFile进行操作根据模板生成静态网页，比较适合产品和新闻两个板块转变！具体代码实现：

1.***********************模板文件（html）***************

<head>

<title> {title} - 新闻中心 - 哎呀呀饰品加盟连锁</title>

</head>

<body>

<div><span class="font_white"></span></div>

<div style="line-height: 22px;height: 22px;">用户名：

<input name="uname" type="text" class="bot" id="uname" size="10" maxlength="10" /> 密码：

</form> </div>

</div>

<ul>

总机：0579-89960888 <br />

传真：0579-85210995 <br>

电话：00852-36458129 <br>

传真：00852-36458092 </li>

</ul>

</div>

</div>

<ul>

<tr>

</tr>

</table>

<h1 style="margin:10px; padding:2px; font-size:18px; text-align:center;"> {title}</h1>

</li>

</li>

</ul>

</div>

</div>

<tbody>

<tr>

<td width="869"><span class="font_space01"><a href="/info_qiyejianjie.asp">关于爱呀呀</a> │ <a href="/info_jiamengzhengce.asp">加盟政策</a> | <a href="/info_zhuangxiufangan.asp">装修方案</a> | <a href="/info_jiamengyoushi.asp">加盟优势</a> | <a href="/class/">产品展示</a>│<a href="/zaixianliuyan.asp">在线留言</a>│<a href="/info_lianxiwomen.asp">联系我们</a>│<a href="sitemap.html" target="_blank">网站地图</a></span><br />

大陆区地址：浙江省义乌市经济开发区石鱼路123号8栋(稠江中学旁)大陆区电话：0579-89960888 免费热线：4006-888048 <br />

</td>

</tr>

</tbody>

</table>

<a href=" " target="_blank">哎呀呀加盟</a>

<a href=" " target="_blank">哎呀呀饰品</a> <script src=" /stat.php?id=1117055&web_id=1117055" language="JavaScript" charset="gb2312"></script></span>

</body>

</html> 2.*********************************处理的文件（asp）********************

<%Server.ScriptTimeOut=99999999%>

dim action,id,news

Layout="news"

id=request.QueryString("id")

action=request.QueryString("action")

select case action

case "add" %> <%

'全部生成html

case "htmlall"

set rs=server.CreateObject("adodb.recordset")

Sql = "Select id from news order by id"

rs.open sql,conn,1,1

do while not rs.eof

FsoFile "news",rs("id") response.write"<div style='color:#003333;' align='center'>"&rs("id")&"新闻生成HTML成功!</div>"

rs.movenext

loop

rs.close

response.write"<div style='color:#FF0000;' align='center'>全部新闻生成HTML成功!</div></br>"

end select

%> <%

'生成中文html

Function FsoFile(Layout,ID)

Dim Fso,FilePath,FsoF,FsoH,FsoRs,CreateFilePath

FSOCreateDIR "../news/" & ID & ""

CreateFilePath = "../news/" & ID & "" 'HTML所在文件夹

FilePath=Server.Mappath(CreateFilePath) & "/index.html" '定义生成html文件名

Set Fso=Server.CreateObject("Scripting.FileSystemObject")

Set FsoH=Fso.OpenTextFile(Server.Mappath("../templates/news_show.html"),1,true) '读取模版

Content = FsoH.ReadAll Set FsoRs = Conn.Execute("select * from news where id="&id)

title=FsoRs("title")

demo=FsoRs("demo") Content = Replace(Content,"{id}",FsoRs("id"))

Content = Replace(Content,"{title}",FsoRs("title"))

Content = Replace(Content,"{demo}",FsoRs("demo"))

Content = Replace(Content,"{webname}",webname)

Content = Replace(Content,"{icp}",icp)

Content = Replace(Content,"{dianhua}",dianhua)

Content = Replace(Content,"{dizhi}",dizhi)

Content = Replace(Content,"{qq}",qq)

Content = Replace(Content,"{alibaba}",alibaba)

Content = Replace(Content,"{tongji}",tongji)

FsoRs.Close

Set FsoRs=Nothing set stm = server.createobject("ADODB.Stream")

stm.Charset = "gb2312" '定义编码

stm.Open

stm.WriteText content

stm.SaveToFile FilePath, 2

set stm = nothing End Function %> <%

function FSOCreateDIR(LocalPath)

dim patharr,path_level,i,pathtmp,cpath,CreateDIR,FileObject

on error resume next

LocalPath = Server.MapPath(LocalPath)

LocalPath = replace(LocalPath,"/","/")

set FileObject = server.createobject("Scripting.FileSystemObject")

patharr = split(LocalPath,"/")

path_level = ubound(patharr)

for i = 0 to path_level

if i=0 then pathtmp = patharr(0) & "/" else pathtmp = pathtmp & patharr(i) & "/"

cpath = left(pathtmp,len(pathtmp)-1)

if not FileObject.FolderExists(cpath) then FileObject.CreateFolder(cpath)

set FileObject = nothing

if err.number<>0 then

CreateDIR = false

err.Clear

else

CreateDIR = true

end if

end function

%> 3.**************************在后台添加生成静态新闻链接**************** <TD height=20 align="center"><a href="../admin_product/saveaddnews.asp?action=htmlall" target="ggdlab">生成新闻静态</a></TD>