二年级郊游的看图写话:下标越界 自己写的ASP

下面是部分代码
dim rsq,sqlq,p1_l,p1_i
redim a1(p1_l),b1(p1_l),c1(p1_l)
password1=request("new1")
p1_l=len(password1)
for p1_i = 1 to p1_l
a(p1_i)=mid(password1,p1_i,1)
if p1_i>0 and p1_i<6 then
***** b1(p1_i)= right(asc(a1(p1_i))*(p1_i+1)+3+100,2)
c1(p1_i)= left(asc(a1(p1_i))*(p1_i+1)+3+100,1)
end if
if p1_i>5 and p1_i<11 then
b1(p_i)=right(asc(a1(p1_i))*(p1_i-5)+37+100,2)
c1(p_i)= left(asc(a1(p1_i))*(p1_i-5)+37+100,1)
end if
if p1_i>10 and p1_i<17 then
b1(p1_i)=right(asc(a1(p1_i))*(p1_i-10)+13+100,2)
c1(p1_i)= left(asc(a1(p1_i))*(p1_i-10)+13+100,1)
end if
next
password1=""
for p1_i=1 to p1_l
password1=password1+b1(p1_i)
next
for p1_i=1 to p1_l
password1=password1+c1(p1_i)
next
自己写的将密码转换成ANSI码的
提示 下标越界: '1' 在*****处