access转sql后,split函数分割数组提示下标越界

lj120 2007-11-27 02:33:18

错误类型：
Microsoft VBScript 运行时错误 (0x800A0009)
下标越界: '[number: 0]'
/rqdw/inc/cook.asp, 第 82 行

cook.asp 文件是用来检验用户的权限的,很重要的文件,不能省去.

'=================取得整个系统权限

if SMT_user_vip>=int(flag14) then userflag14=1 else userflag14=0
if SMT_user_vip>=int(flag15) then userflag15=1 else userflag15=0
if SMT_user_vip>=int(flag16) then userflag16=1 else userflag16=0
if SMT_user_vip>=int(flag17) then userflag17=1 else userflag17=0
if SMT_user_vip>=int(flag18) then userflag18=1 else userflag18=0
if SMT_user_vip>=int(flag19) then userflag19=1 else userflag19=0
if SMT_user_vip>=int(flag20) then userflag20=1 else userflag20=0
if SMT_user_vip>=int(flag21) then userflag21=1 else userflag21=0
if SMT_user_vip>=int(flag24) then userflag24=1 else userflag24=0
if SMT_user_vip>=int(flag36) then userflag36=1 else userflag36=0
if SMT_user_vip>=int(flag37) then userflag37=1 else userflag37=0
if SMT_user_vip>=int(flag38) then userflag38=1 else userflag38=0
if SMT_user_vip>=int(flag39) then userflag39=1 else userflag39=0
if SMT_user_vip>=int(flag40) then userflag40=1 else userflag40=0
if SMT_user_vip>=int(flag41) then userflag41=1 else userflag41=0
if SMT_user_vip>=int(flag42) then userflag42=1 else userflag42=0
if SMT_user_vip>=int(flag43) then userflag43=1 else userflag43=0
if SMT_user_vip>=int(flag44) then userflag44=1 else userflag44=0

uflag27=split(flag27,",")
uflag32=split(flag32,",")
uflag26=split(flag26,",")
uflag9=split(flag9,",")
uflag22=split(flag22,",")
if SMT_user_vip=1 then
rflag27=uflag27(1)
rflag32=uflag32(1)
rflag26=uflag26(1)
rflag9=uflag9(1)
rflag22=uflag22(1)
else
rflag27=uflag27(0)
rflag32=uflag32(0)
rflag26=uflag26(0)
rflag9=uflag9(0)
rflag22=uflag22(0)
end if

...全文