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

admin 管理员 admin UID: 1 头衔: Webclub Team 精华: 28 积分: 12267 帖子: 657 金币: 2215 威望: 1647 贡献: 1144 阅读权限: 255 注册: 2007-10-3 在线: 722 小时失踪: 48 天来自: 山东状态:	1楼大中小发表于 2008-1-19 00:10 只看该作者发短消息加为好友个人空间 ASP生成静态Html文件技术汇总网页生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录,不仅被收录的快还收录的全.前台脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度. ! P2 S" v" g0 r6 f, z! ~1 b I( ? 像www.aspid.cn的主站就采用了TSYS生成html文件! 3 A* Z/ U# p" T d所以吟清最近对生成html比较感兴趣,看了不少文章,也有一点点收获. W' K) Y9 r2 ?4 ?& B( g$ N8 u5 U' \| v; g: s0 d( `' J2 y- ^ 1,下面这个例子直接利用FSO把html代码写入到文件中然后生成.html格式的文件＜% " a& W5 t& ~8 R/ ~+ y$ C filename="test.htm" 2 v: \|. p7 N! l2 _6 @ if request("body")＜>"" then 8 X* D# k; i4 d2 A$ j6 d; D# iset fso = Server.CreateObject("Scripting.FileSystemObject") 4 C, L. e& k8 _. w# o5 { set htmlwrite = fso.CreateTextFile(server.mappath(""&filename&"")) & {8 t+ d: y1 L- w% O htmlwrite.write "＜html>＜head>＜title>" & request.form("title") & "＜/title>＜/head>" # _: v4 l) H7 E V+ @% ]- } P htmlwrite.write "＜body>输出Title内容: " & request.form("title") & "＜br /> 输出Body内容:" & request.form("body")& "＜/body>＜/html>" + a9 v6 g0 z, _% k htmlwrite.close 0 [" n' v* q/ l% Y! uset fout=nothing * C+ f) C5 V- y& f. W set fso=nothing ! K6 d' P5 {8 @- m0 E* J7 R) Eend if $ n- \|4 i9 l% D* C! L4 Q- D %> ) B0 ?, `1 d+ o2 ~2 q, P2 T＜form name="form" method="post" action=""> / ^9 v; s; b6 j, ` ＜input name="title" value="Title" size=26> : K/ [* t3 W; i5 X7 j5 n4 S＜br> / \|/ g8 J. w9 D8 x/ U0 w ＜textarea name="body">Body＜/textarea> / O& x0 f; b/ s3 V＜br> 7 I4 }+ t0 G$ i, Q. @8 }＜br> ; L! j5 G% n0 t$ C7 Z+ w$ F7 V ＜input type="submit" name="Submit" value="生成html"> ! G E \: [: S ＜/form> 5 P$ _6 e+ P2 u! g3 G2 z) v 2,但是按照上面的方法生成html文件非常不方便,第二种方法就是利用模板技术,将模板中特殊代码的值替换为从表单或是数据库字段中接受过来的值,完成模板功能;将最终替换过的所有模板代码生成HTML文件.这种技术采用得比较多,大部分的CMS都是使用这类方法. 4 D! {8 h" K* G% _5 ^: Vtemplate.htm ' //模板文件＜html> ; ?: k& Z5 h- ~5 s3 T; { k( V1 c＜head> ! U! c/ M! [0 o1 V, \|! ` ＜title>$title$ by aspid.cn＜/title> 4 j+ w: q1 ]6 S1 T3 h ＜/head> ) q1 s' }! M& k! I. U$ [* W- W ＜body> & j8 H- h" y! T0 z, k' y" u $body$ # y" @ t' X$ c$ M＜/body> 5 w* o1 z. Y; Z1 c＜/html> ? ; t, w9 h% r- x : i( \|) A% p: y7 C5 I3 R TestTemplate.asp '// 生成Html ＜% ( C( }( g- @* S4 D% M9 v Dim fso,htmlwrite : q. O- E9 i7 P3 _$ \|Dim strTitle,strContent,strOut - \| ^/ d* G' _- J4 g'// 创建文件系统对象 6 ?, P4 x+ T( G2 h3 G6 F Set fso=Server.CreateObject("Scripting.FileSystemObject") & ^% M/ e+ m' m C, X'// 打开网页模板文件，读取模板内容 3 Y+ ? r3 h8 ASet htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm")) 8 e+ V# l- P o! V l; D, cstrOut=f.ReadAll ; F6 X8 r; \' K; e9 m* g7 bhtmlwrite.close : v! d, g! k; T8 j, M, c: @8 R 2 X+ O4 `' J; o) k& XstrTitle="生成的网页标题" * H+ S2 w# k! P3 ]3 f, S. K strC " X& X! `2 x; A. \" j! Z % p9 ]) K4 O0 [4 A* {9 {; t '// 用真实内容替换模板中的标记 8 ?- V8 C4 V$ U/ a0 ZstrOut=Replace(strOut,"$title$",strTitle) 0 U! \|. A5 }. ~ strOut=Replace(strOut,"$body$",strContent) 4 `9 E3 K0 A+ y _- ?" Y& T4 a0 {. Q '// 创建要生成的静态页 . h2 o0 c' x1 y0 y, A6 q) a# N: G' KSet htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true) 8 E. @0 G7 q! f5 l1 f( h$ y" A 4 ?% M3 U' \|! }( P" z& O* o8 d '// 写入网页内容 & _$ c) F% {; A/ z4 ahtmlwrite.WriteLine strOut ! c: W* `) P/ v9 Thtmlwrite.close # B# o4 \; g$ W% ` . k, J( T% v1 F lResponse.Write "生成静态页成功！" 9 p: g% T; l. M; l p k $ @) N" h+ r, Y '// 释放文件系统对象 $ b- h* y1 S9 X& @( \|) H8 Jset htmlwrite=Nothing Q. s' X k& y set fso=Nothing % ^9 _7 L. Y% V% ` %> ' \& m% x1 Q' I) e$ ?) I0 z* U& ]3 w8 g+ O! W3 Q 3,第三种方法就是用XMLHTTP获取动态页生成的HTML内容，再用ADODB.Stream或者Scripting.FileSystemObject保存成html文件。这句话是在蓝色理想上看到的,对XMLHTTP吟清还不熟悉正在找资料了解.找到一段XMLHTTP生成Html的代码参考一下. + n ^0 p" N: r* Z: L. e5 u ＜% ; K4 r8 O% \0 {6 l, s5 l 9 w; n! r2 Z }- u; r9 M'常用函数 ; h9 C) n6 n Z'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码 . X* u g( Q& M function getHTTPPage(url) 8 v9 e, @3 R1 P# R# l3 Rdim Http 7 p- v& O1 ~/ ?; g a6 i+ D set Http=server.createobject("MSXML2.XMLHTTP") ' k- i3 c' r" \" J- {1 U Http.open "GET",url,false & z; a# K* T2 u( z; ?* E6 \|- wHttp.send() 8 E3 @' F5 r; U G# ]6 i+ c if Http.readystate＜>4 then 0 A; v, R- l& h; R+ {$ \| exit function 0 r2 H2 Z* p5 E' N$ Xend if v7 B: c( f# s' ^ getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") 2 N; v! C! P% J# X; Pset http=nothing ]3 p1 o; }, I" h" y/ _+ sif err.number＜>0 then err.Clear ' m f. ~ H' ?8 I, eend function 6 P% `. K8 B% {2 e+ Z3 x" h9 c ) x; C- b+ R: u: M0 }& O'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换 0 o6 ~2 y& `0 R n# }$ A$ s1 T Function BytesToBstr(body,Cset) ; b" P. m5 S2 Bdim objstream ?5 Q% x1 J! `. p" m! Y' F set objstream = Server.CreateObject("adodb.stream") ! }( c/ I; R2 `1 \5 y! oobjstream.Type = 1 * N0 \|7 t! `& ]* X& j/ xobjstream.Mode =3 : v% {+ A z, _6 J7 L) ]. n+ `9 Aobjstream.Open ; E' ?0 v8 }5 U& u, K5 `% h objstream.Write body - U0 y! C2 \|( G7 O) K4 dobjstream.Position = 0 - s) V Y+ L; d* ~, Yobjstream.Type = 2 5 C, p8 f( m+ j& D5 _3 _objstream.Charset = Cset 7 [1 J0 \& c/ S. e BytesToBstr = objstream.ReadText % K1 C' h8 H, {) A7 Vobjstream.Close 1 A/ ]7 X% F+ I% Y# C& x" F6 Sset objstream = nothing 5 V! L2 P" ?& z) \ End Function 3 d. v9 a9 s" [7 q9 t * E; F/ G+ W, i* ]1 W , h8 X* Y7 t- W$ X0 R0 j txtURL=server.MapPath("../index.asp") 5 t0 \|5 c& D" g1 p$ E* s sText = getHTTPPage(txtURL) ( ?% `& ~3 {" \+ ^5 s7 ^! ~6 F 9 Z6 o) t+ [, rSet FileObject=Server.CreateObject("Scripting.FileSystemObject") 3 S q8 @8 e& ?* u* J* @ filename="../index.htm" 2 J. D' G S2 N/ R( v Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true为不存在自行建立 " Z/ u" d0 h0 o! \& T8 G; DopenFile.writeline(sText) # t4 y, V2 a. A4 @5 s8 DSet OpenFile=nothing , D$ I2 }7 _8 \" e) b! y + r2 J$ l! @. L% b%> 8 X+ x. O2 o& h% e ＜script> ' A/ g2 J* O4 C( ~3 `- A5 @alert("静态网页生成完毕"); & @; a3 m3 J% i$ K# n0 Thistory.back(); # s: l6 S/ l" q. Y( f. n5 v2 I1 U＜/script> 搜索更多相关主题的帖子: ASP技术静态Html

	捌玖网络 89w.org----致力于站长学习交流
查看个人网站查看详细资料	TOP

‹‹ 上一主题 | 下一主题 ››

admin 管理员 admin UID: 1 头衔: Webclub Team 精华: 28 积分: 12267 帖子: 657 金币: 2215 威望: 1647 贡献: 1144 阅读权限: 255 注册: 2007-10-3 在线: 722 小时失踪: 48 天来自: 山东状态:	1楼大中小发表于 2008-1-19 00:10 只看该作者发短消息加为好友个人空间 ASP生成静态Html文件技术汇总网页生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录,不仅被收录的快还收录的全.前台脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度. ! P2 S" v" g0 r6 f, z! ~1 b I( ? 像www.aspid.cn的主站就采用了TSYS生成html文件! 3 A* Z/ U# p" T d所以吟清最近对生成html比较感兴趣,看了不少文章,也有一点点收获. W' K) Y9 r2 ?4 ?& B( g$ N8 u5 U' \| v; g: s0 d( `' J2 y- ^ 1,下面这个例子直接利用FSO把html代码写入到文件中然后生成.html格式的文件＜% " a& W5 t& ~8 R/ ~+ y$ C filename="test.htm" 2 v: \|. p7 N! l2 _6 @ if request("body")＜>"" then 8 X* D# k; i4 d2 A$ j6 d; D# iset fso = Server.CreateObject("Scripting.FileSystemObject") 4 C, L. e& k8 _. w# o5 { set htmlwrite = fso.CreateTextFile(server.mappath(""&filename&"")) & {8 t+ d: y1 L- w% O htmlwrite.write "＜html>＜head>＜title>" & request.form("title") & "＜/title>＜/head>" # _: v4 l) H7 E V+ @% ]- } P htmlwrite.write "＜body>输出Title内容: " & request.form("title") & "＜br /> 输出Body内容:" & request.form("body")& "＜/body>＜/html>" + a9 v6 g0 z, _% k htmlwrite.close 0 [" n' v* q/ l% Y! uset fout=nothing * C+ f) C5 V- y& f. W set fso=nothing ! K6 d' P5 {8 @- m0 E* J7 R) Eend if $ n- \|4 i9 l% D* C! L4 Q- D %> ) B0 ?, `1 d+ o2 ~2 q, P2 T＜form name="form" method="post" action=""> / ^9 v; s; b6 j, ` ＜input name="title" value="Title" size=26> : K/ [* t3 W; i5 X7 j5 n4 S＜br> / \|/ g8 J. w9 D8 x/ U0 w ＜textarea name="body">Body＜/textarea> / O& x0 f; b/ s3 V＜br> 7 I4 }+ t0 G$ i, Q. @8 }＜br> ; L! j5 G% n0 t$ C7 Z+ w$ F7 V ＜input type="submit" name="Submit" value="生成html"> ! G E \: [: S ＜/form> 5 P$ _6 e+ P2 u! g3 G2 z) v 2,但是按照上面的方法生成html文件非常不方便,第二种方法就是利用模板技术,将模板中特殊代码的值替换为从表单或是数据库字段中接受过来的值,完成模板功能;将最终替换过的所有模板代码生成HTML文件.这种技术采用得比较多,大部分的CMS都是使用这类方法. 4 D! {8 h" K* G% _5 ^: Vtemplate.htm ' //模板文件＜html> ; ?: k& Z5 h- ~5 s3 T; { k( V1 c＜head> ! U! c/ M! [0 o1 V, \|! ` ＜title>$title$ by aspid.cn＜/title> 4 j+ w: q1 ]6 S1 T3 h ＜/head> ) q1 s' }! M& k! I. U$ [* W- W ＜body> & j8 H- h" y! T0 z, k' y" u $body$ # y" @ t' X$ c$ M＜/body> 5 w* o1 z. Y; Z1 c＜/html> ? ; t, w9 h% r- x : i( \|) A% p: y7 C5 I3 R TestTemplate.asp '// 生成Html ＜% ( C( }( g- @* S4 D% M9 v Dim fso,htmlwrite : q. O- E9 i7 P3 _$ \|Dim strTitle,strContent,strOut - \| ^/ d* G' _- J4 g'// 创建文件系统对象 6 ?, P4 x+ T( G2 h3 G6 F Set fso=Server.CreateObject("Scripting.FileSystemObject") & ^% M/ e+ m' m C, X'// 打开网页模板文件，读取模板内容 3 Y+ ? r3 h8 ASet htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm")) 8 e+ V# l- P o! V l; D, cstrOut=f.ReadAll ; F6 X8 r; \' K; e9 m* g7 bhtmlwrite.close : v! d, g! k; T8 j, M, c: @8 R 2 X+ O4 `' J; o) k& XstrTitle="生成的网页标题" * H+ S2 w# k! P3 ]3 f, S. K strC " X& X! `2 x; A. \" j! Z % p9 ]) K4 O0 [4 A* {9 {; t '// 用真实内容替换模板中的标记 8 ?- V8 C4 V$ U/ a0 ZstrOut=Replace(strOut,"$title$",strTitle) 0 U! \|. A5 }. ~ strOut=Replace(strOut,"$body$",strContent) 4 `9 E3 K0 A+ y _- ?" Y& T4 a0 {. Q '// 创建要生成的静态页 . h2 o0 c' x1 y0 y, A6 q) a# N: G' KSet htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true) 8 E. @0 G7 q! f5 l1 f( h$ y" A 4 ?% M3 U' \|! }( P" z& O* o8 d '// 写入网页内容 & _$ c) F% {; A/ z4 ahtmlwrite.WriteLine strOut ! c: W* `) P/ v9 Thtmlwrite.close # B# o4 \; g$ W% ` . k, J( T% v1 F lResponse.Write "生成静态页成功！" 9 p: g% T; l. M; l p k $ @) N" h+ r, Y '// 释放文件系统对象 $ b- h* y1 S9 X& @( \|) H8 Jset htmlwrite=Nothing Q. s' X k& y set fso=Nothing % ^9 _7 L. Y% V% ` %> ' \& m% x1 Q' I) e$ ?) I0 z* U& ]3 w8 g+ O! W3 Q 3,第三种方法就是用XMLHTTP获取动态页生成的HTML内容，再用ADODB.Stream或者Scripting.FileSystemObject保存成html文件。这句话是在蓝色理想上看到的,对XMLHTTP吟清还不熟悉正在找资料了解.找到一段XMLHTTP生成Html的代码参考一下. + n ^0 p" N: r* Z: L. e5 u ＜% ; K4 r8 O% \0 {6 l, s5 l 9 w; n! r2 Z }- u; r9 M'常用函数 ; h9 C) n6 n Z'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码 . X* u g( Q& M function getHTTPPage(url) 8 v9 e, @3 R1 P# R# l3 Rdim Http 7 p- v& O1 ~/ ?; g a6 i+ D set Http=server.createobject("MSXML2.XMLHTTP") ' k- i3 c' r" \" J- {1 U Http.open "GET",url,false & z; a# K* T2 u( z; ?* E6 \|- wHttp.send() 8 E3 @' F5 r; U G# ]6 i+ c if Http.readystate＜>4 then 0 A; v, R- l& h; R+ {$ \| exit function 0 r2 H2 Z* p5 E' N$ Xend if v7 B: c( f# s' ^ getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") 2 N; v! C! P% J# X; Pset http=nothing ]3 p1 o; }, I" h" y/ _+ sif err.number＜>0 then err.Clear ' m f. ~ H' ?8 I, eend function 6 P% `. K8 B% {2 e+ Z3 x" h9 c ) x; C- b+ R: u: M0 }& O'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换 0 o6 ~2 y& `0 R n# }$ A$ s1 T Function BytesToBstr(body,Cset) ; b" P. m5 S2 Bdim objstream ?5 Q% x1 J! `. p" m! Y' F set objstream = Server.CreateObject("adodb.stream") ! }( c/ I; R2 `1 \5 y! oobjstream.Type = 1 * N0 \|7 t! `& ]* X& j/ xobjstream.Mode =3 : v% {+ A z, _6 J7 L) ]. n+ `9 Aobjstream.Open ; E' ?0 v8 }5 U& u, K5 `% h objstream.Write body - U0 y! C2 \|( G7 O) K4 dobjstream.Position = 0 - s) V Y+ L; d* ~, Yobjstream.Type = 2 5 C, p8 f( m+ j& D5 _3 _objstream.Charset = Cset 7 [1 J0 \& c/ S. e BytesToBstr = objstream.ReadText % K1 C' h8 H, {) A7 Vobjstream.Close 1 A/ ]7 X% F+ I% Y# C& x" F6 Sset objstream = nothing 5 V! L2 P" ?& z) \ End Function 3 d. v9 a9 s" [7 q9 t * E; F/ G+ W, i* ]1 W , h8 X* Y7 t- W$ X0 R0 j txtURL=server.MapPath("../index.asp") 5 t0 \|5 c& D" g1 p$ E* s sText = getHTTPPage(txtURL) ( ?% `& ~3 {" \+ ^5 s7 ^! ~6 F 9 Z6 o) t+ [, rSet FileObject=Server.CreateObject("Scripting.FileSystemObject") 3 S q8 @8 e& ?* u* J* @ filename="../index.htm" 2 J. D' G S2 N/ R( v Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true为不存在自行建立 " Z/ u" d0 h0 o! \& T8 G; DopenFile.writeline(sText) # t4 y, V2 a. A4 @5 s8 DSet OpenFile=nothing , D$ I2 }7 _8 \" e) b! y + r2 J$ l! @. L% b%> 8 X+ x. O2 o& h% e ＜script> ' A/ g2 J* O4 C( ~3 `- A5 @alert("静态网页生成完毕"); & @; a3 m3 J% i$ K# n0 Thistory.back(); # s: l6 S/ l" q. Y( f. n5 v2 I1 U＜/script> 搜索更多相关主题的帖子: ASP技术静态Html

	捌玖网络 89w.org----致力于站长学习交流
查看个人网站查看详细资料	TOP