ASP用模板生成静态页

大家都知道,对于搜索引擎来讲,静态网页是非常受欢迎的,为了达到更好的推广效果,我也在网上找了一些这方面资料,其实现的方法也不是很难,实现方法如下
首先我们要先设计一个模板文件
如下,mode.htm
<html>
<head>
//这里我们使用一对$来定位我们的标记,也可以用其它符号代替
<title>$title$</title>
</head>
<body>
$body$<br>
$客户联系$
</body>
</html>
接着我们就新建一个ASP文件
do.asp
<%
//下面这段代码是为了从数据表中读取数据
dim connstr,dirs
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("text.mdb")&";Jet OLEDB:Database Password=qgyqgyqgy"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sql = "SELECT * FROM Hu_label where id=1"  
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.Open sql,conn,1,1
if not rs.eof then
//将表中的数据存储到变量中,备后面用
dirs=rs(4)
end if
Dim fso,htmlwrite
Dim strTitle,strContent,strOut
// 创建文件系统对象
Set   fso   =   Server.CreateObject("Scripting.FileSystemObject")  
// 打开网页模板文件,读取模板内容
Set htmlwrite=fso.OpenTextFile(Server.MapPath("mode.htm"))
strOut=htmlwrite.ReadAll
htmlwrite.close
//定义替换内容
strTitle="生成的网页标题"
strContent="什么都可以啊,哈哈,还是可以的啊。生成的网页内容"
// 用真实内容替换模板中的标记
strOut=Replace(strOut,"$title$",strTitle)
strOut=Replace(strOut,"$body$",strContent)
strOut=Replace(strOut,"$客户联系$",dirs)
// 创建要生成的静态页,在自己的网站中我们可以将MapPath()中的内容换成自己的文件名
Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)
// 写入网页内容
htmlwrite.WriteLine strOut
htmlwrite.close
Response.Write "<script> alert('生成静态页成功!')</script>"
//跳转到生成的页面
Response.Write("<script>window.navigate('test.htm')</script>")
// 释放文件系统对象
set htmlwrite=Nothing
set fso=Nothing
rs.close()
set rs=nothing
conn.close()
set conn=nothing
%>

你可能感兴趣的:(职场,休闲,ASP用模板生成静态页)