程序代码

End Sub
Sub LoadNavHtml(id, arr, css)
    Dim i
    Dim Cid, Title, ColorMode, FontMode, UrlLink, Px, IsChk, Pid
    Dim AddTime, ShowTitle, alignVal, CnIsChk, IsNewOpen
    For i = 0 To UBound(arr, 2)
        If arr(7, i) = id Then
            Cid = arr(0, i)
            Title = arr(1, i)
            ColorMode = arr(2, i)
            FontMode = arr(3, i)
            ShowTitle = CmsFun.ReadFontMode(Title, ColorMode, FontMode)
            UrlLink = arr(4, i)
            Px = arr(5, i)
            IsChk = arr(6, i)
            Pid = arr(7, i)
            AddTime = arr(8, i)
            IsNewOpen = arr(9, i)
            alignVal = Easp.IIf(arr(7, i) > 0, " align=""center""", " align=""left""")
            CnIsChk = Easp.IIf(IsChk = 1, "启用", "禁用")
            Easp.WF Easp.IIf(i = 0, "", "  ") & "<tr align=""center"">" & vbCrLf
            Easp.WF "      <td class=""tablerow"& css &" hovered""><input type=""checkbox"" name=""ChkBoxId"" value="""& Cid &""" /></td> "& vbCrLf
            Easp.WF "      <td class=""tablerow"& css &" hovered"">"& Cid &"</td> "& vbCrLf
            Easp.WF "      <td class=""tablerow"& css &" hovered"""& alignVal &"><a href=""" & UrlLink & """  target=""_blank"">" & ShowTitle & "</a></td> "& vbCrLf
            Easp.WF "      <td class=""tablerow"& css &" hovered""><a href=""" & UrlLink & """  target=""_blank"">" & UrlLink & "</a></td> "& vbCrLf
            Easp.WF "      <td class=""tablerow"& css &" hovered"">" & Easp.IIf(IsNewOpen = 1, CmsFun.ReadFontMode("新开页面","red",""), "当前页面") & "</td> "& vbCrLf
            Easp.WF "      <td class=""tablerow"& css &" hovered""><input type=""text"" size=""5"" maxlength=""5"" name=""Px"" id=""Px"" value="""& Px &""" style=""text-align:center;"" onkeyup=""value=value.replace(/[^\d]/g,'')"" onblur=""PxHandler("& Cid &",$(this).val(),'navpx');"" /></td> "& vbCrLf
            Easp.WF "      <td class=""tablerow"& css &" hovered"">"& CnIsChk &"</td> "& vbCrLf
            Easp.WF "      <td class=""tablerow"& css &" hovered""><a href=""?action=edit&id="& Cid &""">编辑</a> | <a href=""?action=del&id="& Cid &""" onclick=""return confirm('您确定要删除吗?')"">删除</a></td> "& vbCrLf
            Easp.WF "    </tr>" & vbCrLf
            css = css + 1
            If css = 3 Then
                css = 1
            End If
            Call LoadNavHtml(Cid, arr, css)
        End If
    Next
End Sub
Sub Add()
    HeadHtml()

报错代码
Microsoft VBScript ����ʱ���� ���� '800a000d'

���Ͳ�ƥ��: 'Ubound'

/hekai/sys/Admin_Nav.Asp���� 103

就是这一行
For i = 0 To UBound(arr, 2)

本人是程序小白，求个位大大 解释一下是什么问题

UBound(arr, 2)是数组还是自定义函数？检查一下它的值。

是自定义函数！在哪看值= =

[ 本帖最后由 qa1s2 于 2014-7-9 09:00 编辑 ]

将其写在页面的某个地方看显示结果。