错误 '800a0009' 下标越界: '[number: 1]'
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