存档
最近要用到一套ASP生成静态的小系统，虽然说程序简单，但是写起来还是比较繁琐的，正好前几天写过一个：ASP文件存储方案(http://www.miaoqiyuan.cn/p/asp-filedb)，用改类，可以直接快速开发生成ASP的系统。
‘加载模板
‘对于模板，不了解的，可以参考我以前写过的文章，当然也可以用任何asp的模板系统
set p = new MYW3_TPL
p.LoadTpl "tpl/chengyu.html"
p.assign "Title","猫七"
p.assign "WebHome",WebHome
p.assign "WebSkin",WebSkin
‘/index.html
url = "index"
‘/home/index.html
‘url = "home::index"
‘/home/1/2/333.html
‘url = "home::1::2::333"
‘生成静态
‘使用FileDB类，超级简单
set f = new FileDB
f.DBPath = "/"
[...]
四月份做个一个短信系统，当时为了节省成本(使用万网的空间，不带SQL数据库空间便宜)，使用了ASP+Access开发，最近需要升级，增加一个短信接口。发现现在Access的数据库竟然有170MB。我的天啊，因为查询比较少，不是很耗资源，所以没有检查出来。
仅仅六个月，数据库竟然到了170MB。随着客户业务的增长，可能再过六个月就要到500MB了，真恐怖。主要占空间大小的，就是存储的短信的发送号码，思考再三，决定将所有的保存到文本文件中。于是写下了一个暂时成为FileDB的asp类。
Class FileDB
Dim fso,IdxKey,DBPath
Private Sub Class_Initialize
Set fso = Server.CreateObject("Scripting.FileSystemObject")
idxKey = "demo::test"
DBPath = "DataCenter/File_DB/"
End Sub
Private Function getPath()
Dim tmp
getPath = replace(idxKey,"::","/") & ".html"
[...]
最近接了一个彩信接口的网站，需要将 文本文件、图片文件 转换成 HexString，通过Form提交，.net、php、javascript的函数网上一抓一大把，asp的却不好找，今天我就来写一个asp版本的hexstring转换函数，为了方便以后用，直接写成类。
class bin2txt
dim adostream
private sub class_initialize
set adostream = server.createobject("ADODB.Stream")
adostream.type = 1
adostream.mode = 3
end sub
[...]
很久之前写的一个ASP无限级分类函数，今晚闲了无事，以此为基础写了一个php无限级分类函数版本的，一起分享给大家。
‘作者：苗启源(Miaoqiyuan.cn)
‘函数：getCatagory
‘功能：获得分类列表
‘参数：cat_arr -> 分类数组(Rscordset:id:分类编号,pid:上级分类,classname:分类名称,childs:子分类)
‘ 按此顺出些sql语句，用getRows获取得到的数据
‘ cat_pid -> 上级分类编号
‘ cat_childs -> 下级分类编号
‘ [...]
MSSQL 导入/导出数据库的时候，常常因为字段设置成自动编号而出现以下两种问题。
1、导入，导出 因为自动编号不允许写入值，而导致失败。
2、逻辑方面 因为每次自动编号都会增加，所以以id作为关联的数据会出现逻辑错误。
解决这种问题的方案就是把所有表的自动编号先去掉:
set IDENTITY_INSERT hst on
导入完毕后，再改回来就可以了。
set IDENTITY_INSERT hst off
下面是IDENTITY_INSERT的说明
说明：允许将显式值插入表的标识列中。
语法：SET IDENTITY_INSERT [ database.[ owner.] ] { table } { ON | OFF }
参数：database 是指定的表所驻留的数据库名称。
owner 是表所有者的名称。
table 是含有标识列的表名。
注释：任何时候，会话中只有一个表的 IDENTITY_INSERT 属性可以设置为 ON。如果某个表已将此属性设置为 ON，并且为另一个表发出了 SET [...]