TA的每日心情 | 开心 2014-7-28 21:47 |
---|
签到天数: 2 天 [LV.1]初来乍到
|
大家都知道HTML静态网页更容易被搜索引擎收录索引,动态生成HTML网页,也可使网站的网页数量增多,搜索引擎收录的数量也可能多,再加下提高网页的质量也意未着什么呢?我想大家也知道。* E) ?8 Z" A$ k" p: q/ U) O
为了这个,我决定了改变之前网站建设,网页设计的方法,经过多翻的研究及思考,对多种网页动态生成的方法,我比较喜欢用标签替换的方法成生网页。
8 [3 P, T0 _, ^$ A# r" r$ k! L标签替换法:这是我个人理解的定义,不知道别人怎么叫它的,呵呵! P+ N- n3 D1 E8 i+ D( |# k2 ^
, [0 ]9 J: q r B 标签替换法,就是在设计好了的网页模板中,放入自已设定的标签,然后用你需要显示出来的东东替换它。如; i a5 f9 }. E- C3 K
. ~1 i' c; Z( A' S7 D
模板文件1* U% Q9 R0 e k c$ y% D
& F! U/ j* S9 y
这个模板我们保存在数据库表中 temptable; j' x# g1 w0 Q
/ ^/ H# f; m9 l: h: T3 }
<html>
. m G2 z( U, A5 ?& D) l0 ?. J2 i<head>
8 f% H) v* S+ Y$ }<title>{$SiteName} </title>
" `9 A6 v1 U7 V</head>
- W& j) z' n3 E9 V3 V. p<body>
9 L/ W v1 D/ ^; A9 @{$Arc_List$} + n2 @! B' J7 W7 h9 w" Z) T
</body>: Q4 k2 \8 H% P" \. d' K" D/ t
<html>- |, z0 l6 ~) E1 A* n7 S+ N+ N
& x4 [* J. ^* G$ S# ?0 y
在以上模板中我放入了两个标签{$SiteName}网站名称和{$Arc_List$}文章列表,再来看下面的代码# Q% r$ N6 ?1 w5 H/ n0 H
! d% C1 _( f6 q3 ~. y8 _) [) m
<%/ t# J$ V, a, U
dim rs,SiteName,Arc_List,fso,myFile,FilePath,html( M, q6 W4 S* ^
SiteName="我的第一个动态生成的HTML网页" l! t" U8 R \
FilePath = Server.MapPath("/html/index.html")
$ [- Q7 r2 Y# z6 O0 H% f' I set rs=server.createobject("adodb.recordset")
- I) m' ?6 n6 T rs.open"select [temp] from temptable,conn,1,1# _' {; P' v( C8 [' \ ]0 d! C8 s
html = rs("temp") '读取网页模板9 S$ @7 P3 }2 F7 P& S
rs.close; S; j# ^+ K! J; O8 T9 B
. J2 N% t1 Z7 I
html = replace(html, "{$SiteName}" , SiteName) '用自定义的 SiteName 替换{$SiteName}标签
1 O" y( l; Y9 _" C4 P! j5 c html = html & replace(html, "{$Arc_List$} " , get_ArcList()) '用自定义的get_ArcList()函数替换{$Arc_List$}标签
1 ?7 l# L* K/ J ]7 l) m/ W/ W/ [ set rs=nothing
2 s$ T( C6 `8 c; F7 D) f0 C conn.close
! {! N- h& ^' h" g* K8 C0 Z set conn=nothing: {0 M# F. m! C: P
1 c; h3 w4 a( _# A+ L
set fso=CreateObject("***ing.FileSystemObject") '创建文件系统对象% E+ c3 z( s; Q3 J- v
Set MyFile = fso.CreateTextFile(FilePath,True) '创建文件7 c$ T3 k6 ^, d: V7 M
MyFile.WriteLine(html) '把htm代码写入文件
8 Z( g. [) T* {# [! l% k& m MyFile.close '关闭文件3 W* W3 M8 Q/ W, g5 w5 q0 }' X2 x* T
Set MyFile = nothing '释放文件对象
3 C) o. q- i7 P2 g* Q. a set fso = nothing '释放系统文件对象
8 A* q! K# n- s6 {' Z( s" `; L response.write "<*** language='java***'>window.alert('文件生成成功了');</***>"# K" e& M4 O, H
response.end() U; H8 W* e% q* V
1 H0 ?/ U' I; Q# r: ]
7 w1 w: W2 N# t Function get_ArcList()' ^5 y x4 i4 V" Y- f; x" a
dim str,str1
- M9 ~8 B" Y4 W4 M4 u$ P0 o str1=""8 o+ O9 X" Y2 w; o* z
str = "<ul>{list}</ul>"9 \# Q* X" I# L# ?
rs.open"select Title,url from Arc"* T3 ~( j3 r( x; H' }5 ~2 [
while not rs.eof 5 k* w" ^2 L7 \" V u
str1 = str1 & "<li><a href="&rs("url")&">"&rs("Title")&"</a></li>"
+ p/ K! O0 {9 P rs.movenext( m- b: H/ x' |/ O" F6 {$ Z/ U
wend
3 V/ Q3 F, x5 [) @% d B( [; [' s rs.close
9 o2 [/ N% r% L- z& U# ` str = replace(str, "{list}", Str1)
7 |! b6 ~" D8 I5 j- s/ B get_ArcList = str
, l2 l9 E- F8 ~4 }2 {) ^: f8 h# D3 m8 c# ~" z
%>
7 g8 A2 F! R1 REnd Function
2 z$ u4 ^+ J" H, F, b8 Y2 c# l. @: p* u X3 C/ ^
以上的方法是不是很简单,现在很多CMS都是采用这种方法生成静态网页的,这种方法使用比较灵活,只要你用心去设计一下你的系统,以后做一个网站,只要设计模板就可以了。。。 |
|