存档
Const BASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
Private sBASE_64_CHARACTERS
Function Base64encode(ByVal asContents)
asContents = strUnicode2Ansi(asContents)
Dim lnPosition,lsResult,Char1,Char2,Char3,Char4,Byte1,Byte2,Byte3,SaveBits1,SaveBits2,lsGroupBinary,lsGroup64,M4, len1, len2
len1 = LenB(asContents)
If len1 < 1 Then
Base64encode = ""
Exit Function
[...]
google很给力的笔试题：现在北京有一套房子，价格200万，假设房价每年上涨10%，一个软件工程师每年固定能赚40万。如果他想买这套房子，不贷款，不涨工资，没有其他收入，每年不吃不喝不消费，那么他需要几年才能攒够钱买这套房子？
最近要用到一套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
[...]
vbs写的IIS日志分析工具
为什么要开发vbs写的IIS日志分析工具？
在网上找了很多IIS日志分析工具，功能实在太有限，有的仅能分析百度、谷歌等搜索引擎爬虫的来访次数，远远达不到我们的用户的需求。作为一个小站长，有的时候也要分析一下自己站点的广告点击情况，静态页面的还好说，下载类的业务就不好统计了。耗时一晚上写出来本工具分享给大家，同时申请落伍，请大家帮顶。申请地址：http://www.im286.com/thread-5021543-1-1.html 。
IIS日志分析工具的使用方法
本工具对于初次接收vbs脚本的用户来说，可能有点麻烦。下面我们就一步一步来说说该工具的使用方法。
1、如果 vbscript 默认引擎非cscript，需要修改称cscript。修改方法很简单，直接在运行中输入:cscript //Nologo //H:Cscript 即可切换
2、下载IIS日志分析工具 压缩包 http://www.miaoqiyuan.cn/products/iis-log.rar，解压，打开log.vbs，修改dbpath为您当前解压的路径。
3、下载您的log日志文件，删掉前三行和第四行的#Fields: ，保存文件名为test.txt，保存到解压目录。
4、在开始运行中用cmd命令打开命令提示符，直接把 log.vbs拖拽到命令提示符中，回车即可开始分析。
以后会出软件版本吗？
会的，不过最近不会，其实现在的代码，直接拿到vb中，套个界面就比市面上的iis日志工具强大，但是现在实际还没有成熟，等正式发布时，功能绝对的强大。
IIS日志分析工具是免费的吗？
是的，本工具供站长免费使用，但是传播请保留我们的版权信息。也许您的建议将会出现在我们未来的软件版中。
vbs写的IIS日志分析工具代码如下：
‘=============================================================
‘= Copyright (c) 2010 猫七(QQ:77068320) =
‘= [...]