加入收藏 | 设为首页 | 会员中心 | 我要投稿 银川站长网 (https://www.0951zz.com/)- 云通信、基础存储、云上网络、机器学习、视觉智能!
当前位置: 首页 > 站长学院 > Asp教程 > 正文

比较ASP生成静态HTML文件的几种方案

发布时间:2023-09-06 11:03:30 所属栏目:Asp教程 来源:
导读:将动态页面转换生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录(特别是对接受动态参数的页面)。前台访问时,脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度。当然,凡事有利必有弊,

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

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

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

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

%>

<form name="form" method="post" action="">

<input name="title" value="Title" size=26>

<br>

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

<br>

<br>

<input type="submit" name="Submit" value="生成html">

</form>

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

以下为引用的内容:

template.htm ' //模板文件

<html>

<head>

<title>$title$ by CuoXIn.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="生成的网页标题"

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组件进行转换

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

%>

<script>

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

history.back();

</script>

小结,这三种方式是比较常用的生成HTML文件方法,我个比较喜欢使用第三种方式,因为页面改动时非常方便,就算动态页改动多大都好,只要重新用XMLHTTP读取生成一次即可。

(编辑:银川站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章