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

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

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

<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>

</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>


<div id="subject01"><a href="/info_jiamengzhengce.asp" target="_blank"><img src="/images/pic_948x160.jpg" alt="爱呀呀饰品加盟连锁" width="948" height="218" border="0" /></a></div>

<div class="clear"></div>

<div class="clear"></div>

<div id="main">

<div class="left">
<div class="top" style="background:url(/images/fenlei_12_07.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="/images/title.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>

<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="/images/paizi_03.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>

<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）********************

<%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>

在asp中实现由动态网页转变为静态网页相关推荐

动态网页搜索与静态网页搜索
★ 网页的搜索主要分为两类:静态网页搜索和动态网页搜索. ✈ 静态网页搜索:是指网页的内容都是在.html(或htm)或.js中,并不需要从数据库服务器中读取后再显示出网页内容,简而言之,就是 ...
第二十八篇网页实战之静态网页爬取，四大案例，小说，书，图片等抓取操作
心得:不知道从什么时候开始,喜欢上了思考,完全可以把自己沉浸在自己的程序中,看着自己一点点的累积,慢慢的成长,证明这一天没有白白浪费掉,感谢还在认真的你. 自己在学习过程中总结出来的爬虫的过程: 1. ...
HTML+CSS+JS体育网页制作 DW静态网页设计(篮球NBA 5页带psd文件 )
⛵ 源码获取文末联系 ✈ Web前端开发技术描述网页设计题材,DIV+CSS 布局制作,HTML+CSS网页设计期末课程大作业 | 校园篮球网页设计 | 足球体育运动 | 体育游泳运动 | 兵乓 ...
山东菏泽家乡网页代码 html静态网页设计制作 dw静态网页成品模板素材网页 web前端网页设计与制作 div静态网页设计
家乡旅游景点网页作业制作网页代码运用了DIV盒子的使用方法,如盒子的嵌套.浮动.margin.border.background等属性的使用,外部大盒子设定居中,内部左中右布局,下方横向浮动排列,大 ...
家乡主题网页设计代码旅游主题网页设计 html静态网页设计制作 dw静态网页成品模板素材网页 web前端网页设计与制作 div静态网页设计
家乡旅游景点网页作业制作网页代码运用了DIV盒子的使用方法,如盒子的嵌套.浮动.margin.border.background等属性的使用,外部大盒子设定居中,内部左中右布局,下方横向浮动排列,大 ...
html静态网页设计制作 HTML我的家乡沧州网页代码 dw静态网页成品模板素材网页 web前端网页设计与制作 div静态网页设计
家乡旅游景点网页作业制作网页代码运用了DIV盒子的使用方法,如盒子的嵌套.浮动.margin.border.background等属性的使用,外部大盒子设定居中,内部左中右布局,下方横向浮动排列,大 ...
HTML+CSS鲜花网页制作 DW静态网页设计个人网页制作
一.作品介绍网页作品代码简单html+css,可使用任意HTML编辑软件(如:Dreamweaver.HBuilder.Vscode .Sublime .Webstorm.Text .Notepad ...
HTML+CSS鲜花网页制作 DW静态网页设计简单的个人网页制作
一.作品介绍网页作品代码简单html+css,可使用任意HTML编辑软件(如:Dreamweaver.HBuilder.Vscode .Sublime .Webstorm.Text .Notepad ...
dreamweaver个人网页设计作业小米商城官网商城购物网页设计 WEB静态网页作业模板大学生个人购物商城网页代码 dw个人网页作业
HTML实例网页代码, 本实例适合于初学HTML的同学.该实例里面有设置了css的样式设置,有div的样式格局,这个实例比较全面,有助于同学的学习,本文将介绍如何通过从头开始设计个人网站并将其转换为代 ...

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

在asp中实现由动态网页转变为静态网页相关推荐

最新文章

热门文章