您现在的位置是：芭奇站群管理系统 > 学习收录 > -> ASP生成静态HTML文件的几种方法

ASP生成静态HTML文件的几种方法

时间：2012-06-13 12:02

将动态页面转换生成静态Html文件有许多好处，比如生成html网页有利于被搜索引擎收录（特别是对接受动态参数的页面）。前台访问时，脱离了数据访问,减轻对数据库访问的压力，加快网页打开速度。 Chinaz.com

当然，凡事有利必有弊，生成HTML页面无形中也耗费大量的磁盘空间以存放这些静态文件，在编辑页面过程中除读写数据库外，也要读写服务器磁盘，页面样式的改动必须重新生成全部HTML文件，等等。

像很多搜索引擎，都可以提交网站的页面地址列表，动态文件的收录问题已经不算是个问题了（如google sitemap）。得失就要自己衡量把握了，但无论如何，我们还是要懂得如何操作的。这里就引用一下别人的文章说明几种常见的生成思路，供大家参考参考。

Chinaz.com

1、下面这个例子直接利用FSO把html代码写入到文件中然后生成.html格式的文件。这是最原始的，优点是简单，缺点是页面的修改不方便，我一般用到的地方是利用它生成整站参数文件。（通常网站如标题，名称等配置保存在数据库，我将它生成config.asp保存这些变量调用，避免频繁访问数据库）

filename="test.htm"

if request("body")＜>"" then

set fso = Server.CreateObject("Scripting.FileSystemObject")

set htmlwrite = fso.CreateTextFile(server.mappath(""&filename&""))

htmlwrite.write "＜html>＜head>＜title>" & request.form("title") & "＜/title>＜/head>"

htmlwrite.write "＜body>输出Title内容: " & request.form("title") & "＜br /> 输出Body内容:" & request.form("body")& "＜/body>＜/html>" [中国站长站]

htmlwrite.close

set fout=nothing

set fso=nothing

end if

<br>

<textarea name="body">Body＜/textarea>

<br>

</form>

Chinaz.com

filename="test.htm"

if request("body")＜>"" then

set fso = Server.CreateObject("Scripting.FileSystemObject")

set htmlwrite = fso.CreateTextFile(server.mappath(""&filename&""))

htmlwrite.write "＜html>＜head>＜title>" & request.form("title") & "＜/title>＜/head>"

htmlwrite.write "＜body>输出Title内容: " & request.form("title") & "＜br /> 输出Body内容:" & request.form("body")& "＜/body>＜/html>" [中国站长站]

htmlwrite.close

set fout=nothing

set fso=nothing

end if

<br>

<textarea name="body">Body＜/textarea>

<br>

</form>

2、但是按照上面的方法生成html文件非常不方便，第二种方法就是利用模板技术，将模板中特殊代码的值替换为从表单或是数据库字段中接受过来的值，完成模板功能，将最终替换过的所有模板代码生成HTML文件。这种技术采用得比较多，大部分的CMS都是使用这类方法。

template.htm ' //模板文件

<html>

<head>

<title>$title$ by webjx.com</title>

</head>

<body>

$body$

</body>

</html>

TestTemplate.asp '// 生成Html

Dim fso,htmlwrite

Dim strTitle,strContent,strOut

'// 创建文件系统对象

Set fso=Server.CreateObject("Scripting.FileSystemObject")

'// 打开网页模板文件，读取模板内容

Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))

strOut=f.ReadAll

htmlwrite.close

strTitle="生成的网页标题"

Chinaz.com

strContent="生成的网页内容"

'// 用真实内容替换模板中的标记

strOut=Replace(strOut,"$title$",strTitle)

strOut=Replace(strOut,"$body$",strContent)

'// 创建要生成的静态页

Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)

'// 写入网页内容

htmlwrite.WriteLine strOut

htmlwrite.close

Response.Write "生成静态页成功！"

'// 释放文件系统对象

set htmlwrite=Nothing

set fso=Nothing

3、第三种方法就是用XMLHTTP获取动态页生成的HTML内容，再用ADODB.Stream或者Scripting.FileSystemObject保存成html文件。找到一段XMLHTTP生成Html的代码参考一下。

'常用函数

'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码

function getHTTPPage(url)

dim Http

set Http=server.createobject("MSXML2.XMLHTTP")

Http.open "GET",url,false

Http.send()

if Http.readystate<>4 then

exit function

end if

getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")

set http=nothing

if err.number<>0 then err.Clear

end function

'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换 Chinaz.com

Function BytesToBstr(body,Cset)

dim objstream

set objstream = Server.CreateObject("adodb.stream")

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.Write body

objstream.Position = 0

objstream.Type = 2

objstream.Charset = Cset

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = nothing

End Function

txtURL=server.MapPath("../index.asp")

sText = getHTTPPage(txtURL)

Set FileObject=Server.CreateObject("Scripting.FileSystemObject")

filename="../index.htm"

Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true为不存在自行建立

openFile.writeline(sText)

Set OpenFile=nothing

alert("静态网页生成完毕");

history.back();

</script> Chinaz.com

与ASP生成静态HTML文件的几种方法相关文章：
　　·WIN2012系统如何关掉IE增强安全设置
　　·安装.net framework3.5的方法及“组件的文件
　　·PHP提取正文第一张图片地址，支持单引号，双
　　·技巧：指定文章内容插入跳转JS代码
　　·离线安装.NET Framework 3.5环境
　　·运行PHP5.6提示php-cgi.exe - FastCGI 进程意

　　本文标题：ASP生成静态HTML文件的几种方法
　　本文地址：http://www.bakii.cn/xuexishoulu/2012061310287.html