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

摘要：具体代码实现：1.模板文件（html）复制代码代码如下:{title}-新闻中心-哎呀呀饰品加盟连锁用户名：密码：首页|企业简介|产品展示|...

具体代码实现：

1.模板文件（html）

复制代码代码如下:

<head>

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

</head>

<body>

<div>

<div>用户名：

<input name="uname" type="text" id="uname" size="10" maxlength="10" /> 密码：

</form>

</div>

</div>

<div>

<div>

<ul>

总机：0579-89960888 <br />

传真：0579-85210995 <br>

电话：00852-36458129 <br>

传真：00852-36458092 </li>

</ul>

</div>

</div>

<div>

<div>

<ul>

<tr>

</tr>

</table>

<li>

<h1>{title}</h1>

</li>

</li>

</ul>

</div>

</div>

<tbody>

<tr>

<td width="869"><span><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 align='center'>"&rs("id")&"新闻生成HTML成功!</div>"

rs.movenext

loop

rs.close

response.write"<div 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("..templatesnews_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