Dream Maker 老漂 不要有和人斗的心,你要赢的是你自己!

用FileDB快速开发生成静态系统

最近要用到一套ASP生成静态的小系统,虽然说程序简单,但是写起来还是比较繁琐的,正好前几天写过一个:ASP文件存储方案(http://www.laopiao.cc/post/3457.html),用改类,可以直接快速开发生成ASP的系统。

01 '加载模板
02 '对于模板,不了解的,可以参考我以前写过的文章,当然也可以用任何asp的模板系统
03 set p = new MYW3_TPL
04 p.LoadTpl "tpl/chengyu.html"
05 p.assign "Title","猫七"
06 p.assign "WebHome",WebHome
07 p.assign "WebSkin",WebSkin
08 '/index.html
09 url = "index"
10 '/home/index.html
11 'url = "home::index"
12 '/home/1/2/333.html
13 'url = "home::1::2::333"
14 '生成静态
15 ‘使用FileDB类,超级简单
16 set f = new FileDB
17 f.DBPath = "/"
18 f.idxKey = url
19 f.save(p.outHtml)

需要对FileDB的类做一下小的修改

 
1 Private Function getPath()
2     Dim tmp
3     getPath = replace(idxKey,"::","/") & ".html"
4   End Function

Tags: asp

发布: 老漂 分类: 网站|站长 评论: 0 浏览: 136
留言列表
发表留言
◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。