在商城模型中增加了自字段字段后,添加了商品想修改,点修改就出错了!

错误类型：
Microsoft VBScript 运行时错误 (0x800A0009)
下标越界: 'i'
F:\调试网站\V5.5 ESHOP\ADMIN\../KS_Cls/Kesion.AdministratorCls.asp, 第 42 行

第42行附近的内容是:

-----------------------------------------------------------------

  '取得后台信息添加时的自定义字段表单
     Function Get_KS_D_F_I(F_Arr,ChannelID,ByVal UserDefineFieldValueStr,V_Tag)
        Dim I,K,O_Arr,F_Value
     Dim O_Text,O_Value,BRStr,O_Len,F_V
                If UserDefineFieldValueStr<>"0" And UserDefineFieldValueStr<>""  Then UserDefineFieldValueStr=Split(UserDefineFieldValueStr,"||||")
              If IsArray(F_Arr) Then
    For I=0 To Ubound(F_Arr,2)
        If ChannelID=101 and F_Arr(10,I)="0" Then
        Get_KS_D_F_I=Get_KS_D_F_I & "<tr class='tdbg'[@NoDisplay(" & F_Arr(0,i) & ")]>" & vbcrlf
     Else
        Get_KS_D_F_I=Get_KS_D_F_I & "<tr class='tdbg'>" & vbcrlf
     End If
     Get_KS_D_F_I=Get_KS_D_F_I & " <td width=""85"" align=""right"" class='clefttitle'><strong>" & F_Arr(1,I) & ":</strong></td>" & vbcrlf
     Get_KS_D_F_I=Get_KS_D_F_I & " <td>"
     If IsArray(UserDefineFieldValueStr) Then
        F_Value=UserDefineFieldValueStr(I)
      Else
        F_Value=F_Arr(4,I)
        If Instr(F_Value,"|")<>0 Then F_Value=""
      End If

-----------------------------------------------------------------

有可能是自定义字段导致的,老大们,有办法解决吗?

此主题相关图片如下：未标题-3.gif

科汛官方,你试试这用个测试!然后在产品简介等输入这个页面的东西(

http://www.hoten.com.cn/a/p1/112120338.html

),然后保存再修改,必定出错!

 If ChannelID=101 and F_Arr(10,I)="0" Then

是不是这个ChannelID=101 有问题?商城的ChannelID是5啊

有人吗???