ASP生成静态Html文件技术汇总

ASP技术, 静态Html

网页生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录,不仅被收录的快还收录的全.前台脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度.
像www.aspid.cn的主站就采用了TSYS生成html文件!
所以吟清最近对生成html比较感兴趣,看了不少文章,也有一点点收获.
" R$ D, x5 s2 {% a+ J
1,下面这个例子直接利用FSO把html代码写入到文件中然后生成.html格式的文件＜%
filename="test.htm" " T. T# ?. v) u
if request("body")＜>"" then - K, `  I* a" N  I# |5 \
set fso = Server.CreateObject("Scripting.FileSystemObject") . ]" I# ~! m/ h- f
set htmlwrite = fso.CreateTextFile(server.mappath(""&filename&""))
htmlwrite.write "＜html>＜head>＜title>" & request.form("title") & "＜/title>＜/head>" ( w9 k: n; f( l5 W
htmlwrite.write "＜body>输出Title内容: " & request.form("title") & "＜br /> 输出Body内容:" & request.form("body")& "＜/body>＜/html>"
htmlwrite.close
set fout=nothing ; p( ?" O3 B0 V. _' f1 s# f  o
set fso=nothing
end if
%> 6 B6 \  w& M& n$ C) b
＜form name="form" method="post" action=""> 1 X0 L: ?# H. m* F% v
＜input name="title" value="Title" size=26> 5 ?1 p1 c$ {! |4 q% r4 X; Q/ H9 P
＜br>
＜textarea name="body">Body＜/textarea>
＜br> % N" U# ~/ Y% e" t4 E* k) a
＜br> * B& Q- B& g: b; m, z+ R
＜input type="submit" name="Submit" value="生成html"> , K6 r9 _4 S1 K: A
＜/form>
2,但是按照上面的方法生成html文件非常不方便,第二种方法就是利用模板技术,将模板中特殊代码的值替换为从表单或是数据库字段中接受过来的值,完成模板功能;将最终替换过的所有模板代码生成HTML文件.这种技术采用得比较多,大部分的CMS都是使用这类方法.   i' p) \- B( v$ |1 N* J6 z
template.htm ' //模板文件＜html> 9 b& I: D& D1 {$ d# }
＜head>
＜title>$title$ by aspid.cn＜/title>   z: @: C3 b' w, Y7 U
＜/head>
＜body>
$body$ 8 W: d# }1 \$ X  J9 Q9 B
＜/body> : L: K* d3 }) Y. ?# b
＜/html> ?
3 l+ E7 j' _4 }
TestTemplate.asp '// 生成Html ＜%
Dim fso,htmlwrite 3 G9 r  W, A1 F# c. d+ q
Dim strTitle,strContent,strOut
'// 创建文件系统对象 / n5 i. h# l) Q6 k) \
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'// 打开网页模板文件，读取模板内容 # ?& ], Z) W/ V( |7 R
Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))
strOut=f.ReadAll
htmlwrite.close 8 n' P3 H; E- |' a5 P: l' O
  Y3 }  _# @5 g/ m# O8 @; [
strTitle="生成的网页标题" & c! R7 |$ v' Q: e5 x
strC : O& I  D$ @% a& Y1 b, s
  d  x! _7 y7 g3 m: C" N! e
'// 用真实内容替换模板中的标记
strOut=Replace(strOut,"$title$",strTitle)
strOut=Replace(strOut,"$body$",strContent) : _2 x2 @& ^; ^+ F2 X
1 m( @/ b+ N5 @
'// 创建要生成的静态页 9 w6 |$ O9 ?: P) @' E5 K" @2 ?
Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)

'// 写入网页内容 / O6 T. |- V% f7 c2 j  q  q3 }
htmlwrite.WriteLine strOut , J) _% N. e, D! M# p
htmlwrite.close

Response.Write "生成静态页成功！" 8 g, k  L& Q1 l. y0 ~
' a& h8 z' I* e; x& a0 c
'// 释放文件系统对象
set htmlwrite=Nothing * n) ?& G$ g' ^4 N- b1 ^
set fso=Nothing
%>

3,第三种方法就是用XMLHTTP获取动态页生成的HTML内容，再用ADODB.Stream或者Scripting.FileSystemObject保存成html文件。这句话是在蓝色理想上看到的,对XMLHTTP吟清还不熟悉正在找资料了解.找到一段XMLHTTP生成Html的代码参考一下.
＜% ' G* M, e$ V4 s: S6 x! e8 O
2 c; F4 ^" q, D3 s% I: \' _" R
'常用函数
'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码 ! Z5 W$ u1 c1 g" g* B* [; _
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")   H; S! M% [  |! m
Http.open "GET",url,false
Http.send() , \4 G6 j$ S( z: M) r4 C5 Z
if Http.readystate＜>4 then / T9 l, P' G1 w2 W$ [
exit function
end if 3 F; Z# V7 c9 I% }* H) f4 X& v
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") $ y0 a: U& y) b7 q
set http=nothing # A2 }1 n7 z- h3 \& i
if err.number＜>0 then err.Clear
end function $ ~  }0 r' W/ m4 n2 c

'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换
Function BytesToBstr(body,Cset)
dim objstream # J7 P- `2 n, b1 u2 M5 j
set objstream = Server.CreateObject("adodb.stream") ! {; G  O. ?# p# M" A
objstream.Type = 1 9 i* o% N' W4 O/ M" K
objstream.Mode =3
objstream.Open 1 d1 B8 S( T* \+ ?
objstream.Write body
objstream.Position = 0 3 O5 b5 F; V9 p1 [3 B2 ?4 K4 g3 K
objstream.Type = 2
objstream.Charset = Cset " c7 K5 P8 a# d; S6 Z
BytesToBstr = objstream.ReadText
objstream.Close 5 y3 i! E* J3 W/ x. U' w3 T" X
set objstream = nothing ; k# _2 m# v% K0 }7 N
End Function
7 |  c2 d* V' j3 Q# l! t6 g3 |
) g) n# r+ J3 Z2 C
txtURL=server.MapPath("../index.asp") * s+ `$ e8 S  _7 h
) \- a' C" x/ B# ]
sText = getHTTPPage(txtURL)

Set FileObject=Server.CreateObject("Scripting.FileSystemObject") # j0 J) c) Z, d, p
filename="../index.htm"
Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true为不存在自行建立   E9 A: Z* R* Y  l: R/ `
openFile.writeline(sText)
Set OpenFile=nothing 9 f" z( \  b6 @) K

%>
＜script>
alert("静态网页生成完毕"); ! J" V$ b* y* F, Y- \% O
history.back(); , b4 |5 v5 L8 K
＜/script>

捌玖网络 89w.org----致力于站长学习交流

返回列表

ASP生成静态Html文件技术汇总

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]