Question

Microsoft VBScript 运行时错误 错误 '800a0009' 下标越界: '0'

请各位大侠，帮帮忙，万分感激，万分感激，万分感激，万分感激。
SEUserID=request("SEUserID")
WS_Orderby=request("WS_Orderby")
WS_Watch=request("WS_Watch")
WS_Code=request("WS_Code")
if SEUserID<>"" and WS_Orderby<>"" then
SEUserIDArr=split(SEUserID,",")
WS_OrderbyArr=split(WS_Orderby,",")
WS_WatchArr=split(WS_Watch,",")
WS_CodeArr=split(WS_Code,",")
for i=0 to ubound(SEUserIDArr)
WS_Orderby=WS_OrderbyArr(i)
if not WS_S.HX_IsNum(WS_Orderby) then WS_Orderby=0
WS_Watch=WS_WatchArr(i)
if not WS_S.HX_IsNum(WS_Watch) then WS_Watch=0
WS_Code=trim(WS_CodeArr(i))
conn.execute("update HX_CompanyUser set WS_Orderby="&WS_Orderby&",WS_Watch="&WS_Watch&",WS_Code='"&WS_Code&"' where WS_Uid="&SEUserIDArr(i))
next
end if
WS_S.HX_Redirect("modify.asp?page="&page)

Answer 1

把for语句：
for i=0 to ubound(SEUserIDArr)

修改为
for i=1 to ubound(SEUserIDArr)

因为这里的数组下标是从1开始的，而不是从0开始。