请教一下高手:下标越界: '[number: 1]'

独出心裁

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

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
以下是134行附近的代码：


for i=0 to ubound(bad)-1        if InStr(LCase(name),bad(i))<>0 then Response.Redirect "error.asp?id=131"nextdieip=hgjh_dieipipk=split(userip,".",-1)if Instr(dieip,"*.*.*.*")<>0 or Instr(dieip,ipk(0)&".*.*.*")<>0 or Instr(dieip,ipk(0)&"."&ipk(1)&".*.*")<>0 or Instr(dieip,ipk(0)&"."&ipk(1)&"."&ipk(2)&".*")<>0 or Instr(dieip,userip)<>0 then Response.Redirect "error.asp?id=111"iplocktime=int(Application("hgjh_iplocktime"))Set conn=Server.CreateObject("ADODB.CONNECTION")Set rs=Server.CreateObject("ADODB.RecordSet")conn.open Application("hgjh_usermdb")dcz=0sql="SELECT a FROM i WHERE DateDiff('n',b,#" & sj & "#)>=" & iplocktimers.open sql,conn,1,1if Not(rs.Eof and rs.Bof) then dcz=1rs.closeif dcz=1 then        conn.Execute "DELETE FROM i WHERE DateDiff('n',b,#" & sj & "#)>=" & iplocktimeend ifsql="SELECT a,b FROM i WHERE a='" & userip & "'"rs.open sql,conn,1,1if NOT(rs.Eof and rs.Bof) then        lockdate=rs("b")        rs.close        set rs=nothing        conn.close        set conn=nothing        Response.Redirect "error.asp?id=110&lockdate=" & server.URLEncode(lockdate)end ifrs.close
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
其中134行代码是：
if Instr(dieip,"*.*.*.*")<>0 or Instr(dieip,ipk(0)&".*.*.*")<>0 or Instr(dieip,ipk(0)&"."&ipk(1)&".*.*")<>0 or Instr(dieip,ipk(0)&"."&ipk(1)&"."&ipk(2)&".*")<>0 or Instr(dieip,userip)<>0 then Response.Redirect "error.asp?id=111"
请问一下：该怎么修改呢？谢谢了

天天

在134行前面加这行代码
if ubound(ipk)<3 then ipk=split("127.0.0.1",".")

独出心裁

谢谢 天天