用FileDB快速开发生成静态系统
最近要用到一套ASP生成静态的小系统，虽然说程序简单，但是写起来还是比较繁琐的，正好前几天写过一个：ASP文件存储方案(http://www.laopiao8.com/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 |