苗启源的部落格

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
[...]

在很多场合，特别重要的要加密传输。使用成熟的加密算法是一个不错的选择，但是~ 有些算法这个语言支持而另一种语言不支持。或者直接要安装某某组件，实在是太烦琐了，为了方便以后使用，自己抽空写了一个。

最近经常需要开发API，Microsoft.XMLHttp、MSXML2.XMLHTTP 等组件不能满足我的要求(主要是不能自定义header等信息)，通过查资料发现了WinHttp.WinHttpRequest.5.1，但是关于winhttprequest的资料太少了。通过这几天摸索，勉强了解了WinHttpRequest使用方法。

自己写的ASP汉字转拼音的程序，支持部分不常见汉字的拼音。更多不常见汉字的拼音正在整理中，更新地址：http://www.miaoqiyuan.cn/product/update/pinyin.db.rar

‘=====================================================================
‘ 意见反馈地址：http://www.miaoqiyuan.cn/p/asp-pinyin
‘ 最新数据库：http://www.miaoqiyuan.cn/Products/update/pinyin.db.zip
‘=====================================================================
‘函数名：GET_PINYIN
‘ 功能：返回拼音
‘ 参数：word – 要转换的汉字，只支持一个汉字
Function GET_PINYIN(word)
if asc(word) > 0 and asc(word) < 128 then
GET_PINYIN = word
[...]

google很给力的笔试题：现在北京有一套房子，价格200万，假设房价每年上涨10%，一个软件工程师每年固定能赚40万。如果他想买这套房子，不贷款，不涨工资，没有其他收入，每年不吃不喝不消费，那么他需要几年才能攒够钱买这套房子？

做程序的，经常遇到同一个空间仿多个测试站点的问题。如果遇到一个“聪明”的用户，登录自己的后台系统，访问其他目录下站点的后台，可能发现也同时可能把其他人的后台系统也登录了。
问题描述有点绕口，我写了一个小小的函数，不同目录使用不同的Session，解决了这个问题。