Sql %> 然后您将看不到填充的数组。请打印您的查询，以查看生成的查询是否正确。你可以在这里发布&我们可以查看。首先要解决的是查询。然后，您可以思考为什么（如果）它不会进入数组。然后，您将不会看到数组被填充。请打印您的查

%>

---

然后您将看不到填充的数组。请打印您的查询，以查看生成的查询是否正确。你可以在这里发布&我们可以查看。首先要解决的是查询。然后，您可以思考为什么（如果）它不会进入数组。然后，您将不会看到数组被填充。请打印您的查询，以查看生成的查询是否正确。你可以在这里发布&我们可以查看。首先要解决的是查询。然后，您可以思考为什么（如果）它不准备数组。

Select P_Name as P_Name, P_Description as P_Description from L_PagePermission inner join A_Permission on p_permissionID = pp_PermissionID inner join A_Page on P_PageID = PP_PageID where P_PageID =" & Page_ID & " order by p_Name

'--------------------------------------------   
        Increment = 0
        Dim testArray()                  
        connectionstring = obj_ADO.getconnectionstring


        Set objConn = CreateObject("ADODB.Connection")
        Set objRSS = CreateObject("ADODB.Recordset")
        objConn.Open connectionstring

        SQL = "select * from a_permission inner join L_PagePermission on P_PermissionID = PP_PermissionID inner join A_Page on P_PageID = PP_PageID order by P_Name"                          
        objRSS.open SQL, objConn


        if not objRSS.EOF then                                            
            objRSS.MoveFirst
            while not objRSS.EOF

            Redim Preserve testArray(2, increment)              
            'Two Dimensional Array
            testArray(0, increment) = objRSS("P_PageID")
            testArray(1, increment) = objRSS("P_Name")

            objRSS.MoveNext
            Increment = Increment + 1    
        wend

        objRSS.close
        objConn.close

        else
            testArray(0, increment) = "-"
            testArray(1, increment) = "-"            
        end if     

    '--------------------------------------------       



                '--------------------------------------------
                    Page_ID = objRS("P_PageID")

                    for i = 0 to (increment - 1)
                        if testArray(0, i) = Page_ID then
                     %>                    
                        <li style="" ="padding:0;margin:0;"><%=testArray(1,i)%></li>
                    <%

                        end if

                    next

                '--------------------------------------------