关于数组下标的问题

VBScript code

'获取临时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

在红字那里出现错误：
Microsoft VBScript 运行时错误 错误 '800a0009'

下标越界: '[number: 1]'

/qqlogin/qqconnect.asp，行 178

[解决办法]
等着接分 友情up