关于数组上标的有关问题

'获取临时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)
        [color=#FF0000]result(1) = Split(temp(1), "=")(1)[/color]        Session("qq_oauth_token_secret") = result(1)
        GetTempToken = result
    End Function