当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp 由动态网页转变为静态网页的实现代码

ASP
微软建议的ASP性能优化28条守则(6)
微软建议的ASP性能优化28条守则(7)
微软建议的ASP性能优化28条守则(8)
微软建议的ASP性能优化28条守则(9)
用ASP建立站内搜索
ASP开发中数据库文件调用(1)
ASP开发中数据库文件调用(2)
ASP开发中数据库文件调用(3)
基于ASP的编程常见问题
asp编写的加密和解密类
模似windows XP 左侧的菜单效果(1)
模似windows XP 左侧的菜单效果(2)
模似windows XP 左侧的菜单效果(3)
web应用程序中的数据库连接(1)
web应用程序中的数据库连接(2)
ASP.net中md5加密码的方法
不能使用asp标记的时候的一个解决办法
asp 用存储过程实现数据分页
ASP 五大高效提速技巧
ASP＋Access的安全隐患及对策

No. « 121 122 123 124 »

技术文章搜索

关键字

ASP 中的 asp 由动态网页转变为静态网页的实现代码

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-12   浏览: 157 ::
收藏到网摘: n/a

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

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>{title} - 新闻中心 - 哎呀呀饰品加盟连锁</title>
<meta name="keywords" content="{metak},哎呀呀饰品店、哎呀呀加盟店、哎呀呀、哎呀呀加盟、哎呀呀饰品、哎呀呀饰品店、哎呀呀加盟店、哎呀呀连锁店、如何加盟哎呀呀" />
<meta name="description" content="{metad},(香港)哎呀呀饰品国际集团有限公司是一家经营饰品、日用品、化妆品、文具、玩具等为一体的公司，下设加工厂和连锁店两个利润中心。香港哎呀呀饰品公司欢迎您爱呀呀饰品加盟连锁店。" />
<link href="/css/style_new.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div><span class="font_white"></span></div>
<!-- top开始 -->
<div><span class="font_white"></span></div>
<!-- top开始 -->
<div id="top">
<div class="left"></div>
<div class="right">
<div class="topuser">
<form class="formbox" action="login_click.asp" method="post" name="loginform" id="loginform" onSubmit="return checkform2()">
<div style="line-height: 22px;height: 22px;">用户名：
<input name="uname" type="text" class="bot" id="uname" size="10" maxlength="10" /> 密 码：
<input name="pwd" type="password" class="bot" id="pwd" size="10" maxlength="18"/><label></label>
<input type="submit" name="Submit" value="登 陆" /> <INPUT onClick="Javascript:window.location='/reg.asp';" type=button value="注 册" name=Submit2></div>
</form>
</div>
<div class="bottomuser"><a href="/index.asp">首页</a> | <a href="/info_qiyejianjie.asp">企业简介</a> | <a href="/class/">产品展示</a> | <a href="/news_xinwenzhongxin.asp">新闻中心</a> | <a href="/info_jiamengzhengce.asp">经销政策</a> | <a href="/info_kaiyedali.asp">开业大礼</a> | <a href="/info_zhuangxiufangan.asp">装修方案</a> | <a href="/info_xingxiangzhanshi.asp">形象展示</a> | <a href="/info_jiamengliucheng.asp">合作流程</a> | <a href="/info_touziwenda.asp">投资问答</a> | <a href="/zaixianliuyan.asp">在线留言</a></div>
</div>
</div>
<!-- top结束 -->
<!-- ad开始 -->
<div id="subject01"><a href="/info_jiamengzhengce.asp" target="_blank"><img src="/upload/tech/20091012/20091012012732_92977ae4d2ba21425a59afb269c2a14e.jpg" alt="爱呀呀饰品加盟连锁" width="948" height="218" border="0" /></a></div>
<!-- ad结束 -->
<div class="clear"></div>
<!-- top结束 -->
<!-- ad开始 -->
<!-- ad结束 -->
<div class="clear"></div>
<!-- 内容开始 -->
<div id="main">
<!-- 左边开始 -->
<div class="left">
<div class="top" style="/upload/tech/20091012/20091012012733_c2626d850c80ea07e7511bbae4c76f4b.jpg);"></div>
<div class="middle">
<ul>
<script language="javascript" src="../../class.js"></script>
<li class="middle02"></li>
<li class="middle03">免费热线：4006-888048<br>
<strong>大陆总部：</strong><br>
总机：0579-89960888 <br />
传真：0579-85210995 <br>
<strong>香港总部：</strong><br>
电话：00852-36458129 <br>
传真：00852-36458092 </li>
<li class="middle04"></li>
</ul>
</div>
<div class="bottom"></div>
<div class="leftnews"></div>
</div>
<!-- 左边结束 -->
<div class="right">
<div class="righttop"></div>
<div class="rightmiddle">
<ul>
<li class="04"><table width="700" border="0" cellpadding="0" cellspacing="0" background="/upload/tech/20091012/20091012012733_432aca3a1e345e339f35a30c8f65edce.jpg">
<tr>
<td width="104" height="32" align="center"><h1 style="color:#FFFFFF; font-size:14px; font-weight:bold; margin:0 auto; padding:0px;" >新闻中心</h1></td>
<td width="596" align="right">当前位置：<a href="/index.asp">首页</a> - 新闻中心</td>
</tr>
</table>
<li class="02">
<h1 style="margin:10px; padding:2px; font-size:18px; text-align:center;">{title}</h1>
</li>
<li class="02" style="text-align:left;">{demo}</li>
</li>
</ul>
</div>
<div class="rightbottom"></div>
</div>
</div>
<!-- 内容结束 -->
<div class="clear"></div>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="/css/style_new.css" rel="stylesheet" type="text/css" />
<div class="clear"></div>
<!-- footer开始 -->
<table cellspacing="0" cellpadding="0" width="948" align="center" border="0">
<tbody>
<tr>
<td valign="center" align="middle" width="79"><a href="/info_lianxiwomen.asp"><img height="66" alt="点击进入" src="/upload/tech/20091012/20091012012734_5ef698cd9fe650923ea331c15af3b160.jpg" width="69" border="0" /></a></td>
<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>
<!-- footer结束 -->
<span style="visibility: hidden;"><a href="http://www.51aiyaya.com" target="_blank"><strong>哎呀呀</strong></a>
<a href="http://www.51aiyaya.com" target="_blank">哎呀呀加盟</a>
<a href="http://www.51aiyaya.com" target="_blank">哎呀呀饰品</a> <script src="http://s23.cnzz.com/stat.php?id=1117055&web_id=1117055" language="JavaScript" charset="gb2312"></script></span>
</body>
</html>

2.处理的文件（asp）
复制代码 代码如下:

<!--#include file="conn.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)
next
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>

来源于我的博客
http://blog.csdn.net/lingfeng179