关于数组下标的有关问题

关于数组下标的问题

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

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

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

/qqlogin/qqconnect.asp，行 178 
------解决方案--------------------
等着接分  友情up