Microsoft VBScript 运行时错误 错误 '800a0009'下标越界: '[number: 1]'

Microsoft VBScript 运行时错误 错误 '800a0009'

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

/news.asp，行 90                                          <%
                bid = request("id")
                if bid = "" then bid ="20"
                  dim ParentID,File
                  ParentID = 112
                  Set rst2=server.CreateObject("adodb.recordset")
                                                strSql2="SELECT  * FROM AdminMenu where ParentID="&ParentID&"  order by SortNum ASC "
                                                rst2.open strSQL2,conn,1,1               
                                                if rst2.recordcount>0 then
                                                result=rst2.recordcount
                                                For i=1 to result
                                                File = Split(rst2("AdminMenuFile"),"=")
                                                id = File(1)        《----此处为90行》
                  %>
                                    <%
                                  if bid <> id then
                                 bg="Images/company/menubg2.gif"
                                 else
                                 bg="Images/company/menubg1.gif"
                                end if
                  %>
你要检查才行

 if ubound (File)>=1 then       id = File(1)      else       id="0"end
if isarray(File)=true then             id = File(1)     else            id="0" end  if

if isarray(File)=true then      
 if uBound(File)>=1 then
     id = File(1)   
     else     
     id="0"
 end if
else
  response.write("不是数组"):response.end()
end  if