Question

Microsoft VBScript 运行时错误 错误 '800a0009' 下标越界: '[number: 1]' /admin/wpupdate.asp，行 9

<%
dim Url
Url = "http://www.wpidea.org/update/get_wp_list.asp"
Dim UpCo
UpCo = GetFileText(url,2)
UpList = split(UpCo,"|||")
for i = 0 to Ubound(UpList)
next
UpdateNews = UpList(0)
SignCode = UpList(1)
WPzhaoxi = UpList(2)
Public Function GetFileText(url,types)
on error resume next
Dim http
Set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.Send()
If http.status = 200 Then
If Http.readystate<>4 Then
Exit Function
End If
Select Case types
Case 1
GetFileText=bytes2BSTR_(Http.responseBody,"GB2312")
Case 2
GetFileText=bytes2BSTR_(Http.responseBody,"UTF-8")
Case 3
GetFileText = Http.responsetext
End Select
end if

Answer 1

Dim UpCo
UpCo = GetFileText(url,2)
UpList = split(UpCo,"|||")
应该是|||有误,在Url中并没有|||字符,有的只是//或/

追问

那怎么改呢？

追答

UpList = split(UpCo,"|||")
改为
UpList = split(UpCo,"/")
试下