周子铺不卖包子

'******************************************************
'本SDK由周子铺制作
'个人博客：http://4jax.net/log/
'如果你有更好的方法，欢迎共享。
'******************************************************
1.个头小，功能全面，易于扩展
2.使用Dictionary对象灵活排序参数
3.实例中以腾讯微博为例子，支持同步图片。
4.包含完整的授权过程，其它期待你去发现。
5.重新整理文件，原来是为了避免vbscript和javascript混写，现在把sha1.wsc改为javascript服务端运行，减少文件数量，节省空间。

更强的扩展能力：
此sdk并非参数拼接形式，sdk内置参数排序，简单几行就可扩展其他功能。

比如：User/info获取自己的详细资料

Function home_timeline()
oDic.Add "format","json" '设置格式
url="http://open.t.qq.com/api/user/info" 'api的url地址
method="GET" '请求方式
home_timeline=doRequest(method, url, Signature(method,url,Sorts,method), "", false)
End Function

函数：doRequest(verb, resLoc, getData, objData, multi)
参数说明：
verb：GET或POST
resLoc：api的url地址
getData：当请求为get时赋值请求为post是请留空
objData：和getData相反
multi：是否包含图片

调用：
Dim z : Set z = New OAuth
z.getToken Session("token"),"token"
Response.Write z.home_timeline()

其中Session("token")你也可以在授权后保存起来，按照数组的形式，Session("token")其实等同于 Array(Session("token")(0), Session("token")(1))

源码下载：

sdk