亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 編程 > ASP > 正文

asp 由動態網頁轉變為靜態網頁的實現代碼

2024-05-04 11:08:49
字體:
來源:轉載
供稿:網友
在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="/images/pic_948x160.jpg" /> <!-- ad結束 --> 
<div class="clear"></div> 
<!-- top結束 --> 
<!-- ad開始 --> 
<!-- ad結束 --> 
<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> 
<!-- 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" /> <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.#/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> 
 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
国产精品视频自在线| 一区二区av在线| 日韩中文字幕精品| 91精品在线影院| 亚洲变态欧美另类捆绑| 久久成人在线视频| 色综合91久久精品中文字幕| 久久久久久国产精品美女| 日韩精品视频免费专区在线播放| 亚洲第一天堂无码专区| 欧美极品在线视频| 成人a在线视频| 国模gogo一区二区大胆私拍| 欧美精品激情在线| 国产精品一区久久| 国产97色在线|日韩| 91国产一区在线| 黄网动漫久久久| 狠狠做深爱婷婷久久综合一区| …久久精品99久久香蕉国产| 日韩精品在线电影| 欧美极品少妇xxxxⅹ免费视频| 免费不卡在线观看av| 91精品一区二区| 国产精品久久97| 中文字幕综合在线| 亚洲人成伊人成综合网久久久| 海角国产乱辈乱精品视频| 欧美精品激情在线观看| 97精品免费视频| 欧美大肥婆大肥bbbbb| 欧美日韩在线一区| 日韩电影中文字幕av| 91精品国产777在线观看| 亚洲第一网中文字幕| 久久精品国产亚洲7777| 日韩av黄色在线观看| 少妇高潮 亚洲精品| 欧美精品一本久久男人的天堂| 日韩毛片在线观看| 国产精品黄色影片导航在线观看| 亚洲无线码在线一区观看| 在线视频中文亚洲| 日韩在线观看免费全| 成人免费视频在线观看超级碰| 日韩h在线观看| 福利一区视频在线观看| 国产精品激情av在线播放| 在线精品视频视频中文字幕| 九色91av视频| 久久精品一偷一偷国产| 亚洲伊人成综合成人网| 欧美亚洲激情视频| 久久久精品国产网站| 亚洲美女av网站| 久久久之久亚州精品露出| 国产欧美精品一区二区| 亚洲影视九九影院在线观看| 日韩极品精品视频免费观看| 国产日韩欧美电影在线观看| 欧美丰满少妇xxxxx| xvideos国产精品| 国产日韩精品在线观看| 超碰精品一区二区三区乱码| 日韩成人在线播放| 91豆花精品一区| 在线观看国产精品淫| 亚洲精品乱码久久久久久按摩观| 亚洲美女在线看| 91系列在线播放| 日韩中文在线视频| 伊人久久男人天堂| 亚洲国产精品一区二区三区| 久久久人成影片一区二区三区观看| 欧美日韩国产丝袜另类| 国产成人精品视频在线观看| 精品视频www| 日韩69视频在线观看| 国产精品视频在线播放| 欧美裸体男粗大视频在线观看| 亚洲人成在线观看| 国产一区二区三区视频| 国内精品久久久久影院 日本资源| 91tv亚洲精品香蕉国产一区7ujn| 精品亚洲一区二区三区四区五区| 久久久久中文字幕| 亚洲美女喷白浆| 亚洲美女av在线| 欧美二区乱c黑人| 亚洲第一区第二区| 性欧美激情精品| 91在线观看免费高清| 国语自产偷拍精品视频偷| 国产精品视频一区二区高潮| 91在线网站视频| 北条麻妃一区二区在线观看| 欧美日韩美女在线观看| 欧美另类暴力丝袜| 欧美老女人在线视频| 国产亚洲激情在线| 欧美日韩国产页| 青草青草久热精品视频在线观看| 国内精久久久久久久久久人| 国产日韩专区在线| 欧美激情视频三区| 久久久久久久久综合| 国产一区二区三区毛片| 亚洲人成网站免费播放| 欧美www视频在线观看| 久久久av网站| 国产亚洲人成网站在线观看| 久久久国产精彩视频美女艺术照福利| 国产精品亚洲欧美导航| 亚洲欧洲一区二区三区久久| 亚洲码在线观看| 欧美乱妇高清无乱码| 亚洲成人免费在线视频| 91av在线网站| 国产欧美精品va在线观看| 91精品国产综合久久香蕉922| 精品亚洲男同gayvideo网站| 91精品国产91久久久久福利| 成年无码av片在线| 最近2019年好看中文字幕视频| 亚洲精品少妇网址| 欧美在线日韩在线| 久久婷婷国产麻豆91天堂| 日韩中文字幕精品| 国产精品普通话| 国产主播喷水一区二区| 国产精品777| 欧美成人精品h版在线观看| 国产精品一区二区久久久久| 成人黄色免费看| 77777亚洲午夜久久多人| 久久久久国产一区二区三区| 中国日韩欧美久久久久久久久| 亚洲人成网站999久久久综合| 国产美女久久精品| 久久不射电影网| 国精产品一区一区三区有限在线| 欧美性感美女h网站在线观看免费| 久久久免费观看| 亚洲精品国精品久久99热| 久久久精品一区二区| 亚洲欧美国产日韩中文字幕| 国产一区二区三区在线播放免费观看| 国产精品高潮呻吟视频| 久久亚洲精品毛片| 国产精品一区二区久久国产| 97超级碰碰碰久久久| 久久中文字幕在线视频| 欧美插天视频在线播放| 国产精品久久综合av爱欲tv| 热门国产精品亚洲第一区在线| 欧美激情第99页| 久久久久久久久久久久av| 国产婷婷成人久久av免费高清| 欧美久久久精品| 日韩欧美999| 久久久亚洲欧洲日产国码aⅴ| 欧美日韩国内自拍| 欧美成人一区在线| 亚洲精品v欧美精品v日韩精品|