SQL分页标签 页面调用的时候 出现下标越界错误

我自己写了一个 “SQL标签打造有特色的终级下载分页列表”  SQL分页标签 页面调用的时候 出现如下错误

• 错误类型：
  Microsoft VBScript 运行时错误 (0x800A0009)
  下标越界: '[number: 0]'
  /KS_Cls/Kesion.Label.SQLCls.asp, 第 231 行

      If GetFromQueryID=0 Then
        Dim QueryParams:QueryParams=Replace(Lcase(Request.ServerVariables("QUERY_STRING")),GCls.StaticExtension,"")
        Dim G_P_Arr:G_P_Arr=Split(QueryParams,"-")
        If G_P_Arr(0)=GCls.StaticPreList Then                --------------------第 231 行
          GetFromQueryID=KS.ChkClng(G_P_Arr(1))
       If Ubound(G_P_Arr)>=2 Then CurrPage=KS.ChkClng(G_P_Arr(2)) Else CurrPage=1
        Else
          GetFromQueryID=0
        End If
      End If