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

时间:2022-03-20 21:59:22

具体代码实现: 
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" /> 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