关于数组下标的问题
'获取临时token,返回一个数组Array(oauth_token, oauth_token_secret),用于生成调用地址
Public Function GetTempToken()
Dim url, params, result
Dim temp
result = Array("", "")
url = "http://openapi.qzone.qq.com/oauth/qzoneoauth_request_token"
params = "oauth_consumer_key=" & QQ_OAUTH_CONSUMER_KEY
params = params & "&oauth_nonce=" & MakeRandNum()
params = params & "&oauth_signature_method=HMAC-SHA1"
params = params & "&oauth_timestamp=" & Timestamp()
params = params & "&oauth_version=1.0"
params = params & "&oauth_signature=" & MakeSign("GET", url, params, "")
url = url & "?" & params
temp = RequestUrl(url)
temp = Split(temp, "&")
result(0) = Split(temp(0), "=")(1)
result(1) = Split(temp(1), "=")(1)Session("qq_oauth_token_secret") = result(1)
GetTempToken = result
End Function
