|
 
- UID
- 1
- 帖子
- 738
- 精华
- 28
- 积分
- 14421
- 金币
- 2496
- 威望
- 1647
- 贡献
- 1444
|
网页生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录,不仅被收录的快还收录的全.前台脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度.
+ h: q9 `/ _2 Y$ r% _, `像www.aspid.cn的主站就采用了TSYS生成html文件! 8 I/ D* d" a5 c4 P% m' G$ a5 K6 ^
所以吟清最近对生成html比较感兴趣,看了不少文章,也有一点点收获. W6 ~8 M; y' B* h7 @
" [4 o+ d: R& K [+ {! x2 U. N2 Z; z
1,下面这个例子直接利用FSO把html代码写入到文件中然后生成.html格式的文件 ＜%
5 F* N) q2 L: ^! J4 Q Qfilename="test.htm" " `- W. {- m5 K e! W
if request("body")＜>"" then " B2 } L' h- \ K
set fso = Server.CreateObject("Scripting.FileSystemObject")
0 O* l2 ?0 t( G* N6 m) Zset htmlwrite = fso.CreateTextFile(server.mappath(""&filename&""))
! x6 O' Q5 n1 p4 N" ehtmlwrite.write "＜html>＜head>＜title>" & request.form("title") & "＜/title>＜/head>" 7 j( D: l/ g) f: N' T
htmlwrite.write "＜body>输出Title内容: " & request.form("title") & "＜br /> 输出Body内容:" & request.form("body")& "＜/body>＜/html>"
+ w! n+ X+ b! L0 U4 ehtmlwrite.close 8 t3 `8 p& t! x6 M
set fout=nothing 8 K6 q3 V0 s$ l: j
set fso=nothing
5 ~5 s) w4 [( y5 Q5 wend if
* W0 [4 [! R' U- s# c& f( b- { u%>
`* T) p' N; [8 Z/ q8 l＜form name="form" method="post" action=""> ! _0 T7 c0 _. }+ Q1 m, G/ P0 b/ m
＜input name="title" value="Title" size=26> " w6 j3 {! \9 a& N, @
＜br> 4 x [1 O) c& q
＜textarea name="body">Body＜/textarea> 7 a2 O B" ~, F7 F H
＜br>
. q" S5 O$ d0 g4 I5 _) R＜br>
" I$ r0 x' g3 z9 G: b1 ?& \＜input type="submit" name="Submit" value="生成html"> 3 s; G; I2 G4 v% x. a# H& H
＜/form>
5 b- m( `4 \0 i6 [5 L9 Z' T1 z5 P2,但是按照上面的方法生成html文件非常不方便,第二种方法就是利用模板技术,将模板中特殊代码的值替换为从表单或是数据库字段中接受过来的值,完成模板功能;将最终替换过的所有模板代码生成HTML文件.这种技术采用得比较多,大部分的CMS都是使用这类方法.
: T7 `* j. ?( q8 s0 Rtemplate.htm ' //模板文件 ＜html> 7 x3 ^" Q u/ E$ c/ ]% C5 k! X
＜head> , j& y1 l: D9 d7 j" N
＜title>$title$ by aspid.cn＜/title> # n: {) W" ^& S
＜/head> - F0 k) H' E0 j' f& R& C8 v: O v
＜body>
0 I: a# a5 A% n% z8 `3 y# C$body$ - I& D2 P4 [8 f9 y$ v! k
＜/body> + x# p+ S1 j% Z- h# ^9 j
＜/html> ? " L$ ~8 p$ `0 s' h
& O3 q' s6 m, N9 V- f d" ]TestTemplate.asp '// 生成Html ＜% 5 k. D% M2 H- I4 ]2 Z, n
Dim fso,htmlwrite 3 W/ l" _1 m2 E- T
Dim strTitle,strContent,strOut
. b8 ], |: _5 [/ Y'// 创建文件系统对象 # }% ?$ G( v* x9 z& ^5 ]: U
Set fso=Server.CreateObject("Scripting.FileSystemObject")
0 u# i+ ~: _7 Q$ v$ t& `5 a0 t'// 打开网页模板文件，读取模板内容 9 d) Q6 Q: F0 W
Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))
: @# `) T' [6 O# V8 B& s( N- `- ~strOut=f.ReadAll 6 \& F" I2 X) n6 N9 Q6 t
htmlwrite.close " O* c1 R2 X J1 v# j0 t4 H
4 E( ~, ]9 C% o/ X5 B5 s, EstrTitle="生成的网页标题" 9 l3 M% }: Y/ A7 m2 q
strC
, b$ N2 `/ T8 Z5 Z9 F3 W; Y& i6 Y u5 Y. b
'// 用真实内容替换模板中的标记 / M4 l2 {3 p4 u* t9 _
strOut=Replace(strOut,"$title$",strTitle)
- I0 {2 B+ A6 }* M7 m3 D1 X0 |strOut=Replace(strOut,"$body$",strContent) 3 v4 X- _7 x, }
+ Z1 N/ i, C8 Y'// 创建要生成的静态页
4 c( c% Z0 O1 O( R9 ?Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)
3 M' L# |* b m# _( E8 V
4 q% L! ?4 n! |* S. Z9 m'// 写入网页内容
% N q8 l& Q- ^! H% |: S! F8 {htmlwrite.WriteLine strOut . y- j7 @3 J4 D0 Q0 N; G, U$ v
htmlwrite.close
# z3 Z1 X. G7 |( l- ^! e- [1 x: r' z2 Y' }6 \/ R" U, f
Response.Write "生成静态页成功！"
, u/ O; V6 y9 E" D' k" t7 Y# M' \8 j2 Z2 T/ b
'// 释放文件系统对象 : K5 ^2 S1 ^) N! L% K
set htmlwrite=Nothing
6 w0 u# K8 f* D( h0 \9 _# g; C- p" Lset fso=Nothing
x7 b1 [. y8 i8 W; f# }%> " n! \* D7 k" \) V% a- n
4 v2 A; B9 `6 w
3,第三种方法就是用XMLHTTP获取动态页生成的HTML内容，再用ADODB.Stream或者Scripting.FileSystemObject保存成html文件。这句话是在蓝色理想上看到的,对XMLHTTP吟清还不熟悉正在找资料了解.找到一段XMLHTTP生成Html的代码参考一下.
4 }3 k+ ]: U; r2 C% h＜% ! y' B2 t1 S2 s. p; T
2 z" `6 [' m- _9 t9 V
'常用函数 # F6 o0 z' j! V5 f X; L5 b; a
'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码 ! ~/ p5 x9 J6 K2 f' k$ {
function getHTTPPage(url) : F: ]( F1 E# O. \+ N/ b/ R7 n$ I
dim Http , r9 Q+ `- u7 C
set Http=server.createobject("MSXML2.XMLHTTP") ' Z2 {' h; I; j) ~: J' J
Http.open "GET",url,false
) P9 g: V2 V0 A) V! [. gHttp.send() # [9 d! q! i0 L: C
if Http.readystate＜>4 then % Q7 E, y" Z2 Y9 I1 R3 F0 e
exit function
0 e( N2 ?: m' _8 Q: z$ pend if ( f2 o) _3 ` r) n8 v/ E% X
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") / A+ ^$ {+ [* g
set http=nothing ' Q" \: n# ^. e
if err.number＜>0 then err.Clear 0 _( b9 A2 t H' g
end function
7 E: A, w* l3 `$ U0 s D6 p9 a% Z7 _& R2 y+ Y. k
'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换 . M& m/ F9 m& r' C T! t
Function BytesToBstr(body,Cset)
( {6 i. _# f5 g; W, z" E ?. Ldim objstream
6 G' K0 b& N" ?) w- `1 \set objstream = Server.CreateObject("adodb.stream")
( E! P# d( G" L) pobjstream.Type = 1 . ^- \' y- ^% W; m5 L1 l# [
objstream.Mode =3 & t8 {6 e; I( o" j& r4 X& P
objstream.Open
! u1 H" S1 j0 B& f/ Fobjstream.Write body
: q( d& P" c* M7 C1 k/ Eobjstream.Position = 0 & n# G( j# {$ Q6 }& K6 c
objstream.Type = 2
) ~' B0 w9 r! o7 S; {( R3 _( |objstream.Charset = Cset
u) T' o- z3 X7 f# d7 j% jBytesToBstr = objstream.ReadText 2 }) J) w2 D2 H9 |. F
objstream.Close
" w- v$ M7 q) z/ p6 Xset objstream = nothing
' @" `( M) q7 B" N% @" nEnd Function
& d9 k" z+ B( o
. D: h; n9 U0 O% @* e8 @5 g" P* M" _
" ^/ E# z- w0 S! mtxtURL=server.MapPath("../index.asp") j1 q0 R4 B7 u8 x5 g' m! `+ y4 B8 H
- Z( N' O4 O3 ^% L- {1 GsText = getHTTPPage(txtURL) 4 ~' d! j2 V: V2 ^+ R% B9 \
9 J' b3 A( a0 q/ B P9 K
Set FileObject=Server.CreateObject("Scripting.FileSystemObject") + ?9 h1 k+ [; ^# q B0 h/ b: F
filename="../index.htm" % ~1 P% Z( M8 V: p& O( J' K% U( {
Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true为不存在自行建立 ( U' g3 G1 W' ]4 b: `
openFile.writeline(sText) ' j E: V7 X% V9 U: ~( P( d& j
Set OpenFile=nothing
9 P N/ }: h2 B( ]' h- t2 ]. ` b8 Z4 h* V
%>
c0 @1 E! J- ^. ~ M＜script>
- F$ s6 w5 P) ?4 }4 N V9 lalert("静态网页生成完毕"); ! V, T R3 _* `
history.back();
& J8 ?; b1 i O＜/script> |
|
发表于 2008-1-19 00:10
| 