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

　　具体代码实现：

　　1.模板文件（html）

　　<head>

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

　　</head>

　　<body>

　　<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="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)

　　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

教程首页更多教程