错误 '800a0009' 下标越界: '[number: 1]'

[qq1486075158]

Microsoft VBScript 运行时错误 '800a0009' 下标越界: '[number: 1]'
/newpw.asp 行48

大神们帮我修改修改

'生成订单号
sjstr=split(userinip,".")
if len(sjstr(0))=1 then
sj1="0"&sjstr(0)
else
sj1=mid(sjstr(0),1,1)&mid(sjstr(0),len(sjstr(0)),len(sjstr(0)))
end if

48行 if len(sjstr(1))=1 then

sj2="0"&sjstr(1)
else
sj2=mid(sjstr(1),1,1)&mid(sjstr(1),len(sjstr(1)),len(sjstr(1)))
end if
sito=sj1&sj2&mid(sjstr(2),len(sjstr(2)),len(sjstr(2)))&mid(sjstr(3),len(sjstr(3)),len(sjstr(3)))

Const stringmodarr = "0123456789"
strlength = Len(stringmodarr)
Randomize timer
For i = 1 To 5
randarr2 = randarr2&Mid(stringmodarr,Int(Rnd * strlength + 1),1)
Next
For i = 1 To 4
randarr3 = randarr3&Mid(stringmodarr,Int(Rnd * strlength + 1),1)
Next

[无奈的奈]

sjstr=split(userinip,".") 这个sjstr可能只有一个值，断点看下，用之前判断下

[囧]

sjstr=split(userinip,".") UBound(sjstr) 用这个检测数组下标