加速网页加载(2)

Question

我以前问过一个类似的问题，我收到了修复我的多维数组的响应，以便使用getrows更快地接收记录。有超过36000条记录返回到这个多维数组中。尽管我之前对其他问题的回答似乎并没有让我的页面变得更快。

然后，我使用这个多维数组来检查某些id是否匹配，然后将权限附加到内容。

所以我的多维数组-

'MultiDimensional Array
Dim permissionsArray
Dim permissionsCount  
connectionstring = obj_ADO.getconnectionstring               

Set c = Server.CreateObject("ADODB.Connection")
Set r = Server.CreateObject("ADODB.Recordset")
r.CursorLocation = 2 'adUseServer
c.open connectionstring
c.CursorLocation = 2 'adUseServer

SQL = "select OP_ObjectID, P_Name from l_objectpermission inner join A_Permission on op_permissionID = P_permissionID order by P_Name"

Set r = Server.CreateObject("ADODB.Recordset")
r.CursorLocation = 2 'adUseServer
r.Open SQL, c, 0, 1 'adOpenForwardOnly, adLockReadOnly
If r.BOF or r.EOF Then
   r.close()
   Set r = Nothing
Else
   permissionsArray = r.GetRows()
   permissionsCount = UBound(permissionsArray, 2)
   r.Close()
   Set r = Nothing
End If
c.Close()
Set c = Nothing

然后使用多维数组的content和id+附加权限

    while obj_ADO.EOF(lng_RecSet) = 0           
%>
                <tr>
<%
        objID = obj_ADO.GetField("O_ObjectID", adValue, lng_RecSet)
%>
                    <td align="center" valign="top"><input type="checkbox" name="selectedRecord" value="<%=objID%>"></td>
                    <td valign="top" align="left"><font class="Content1"><%=obj_ADO.GetField("O_Name", adValue, lng_RecSet)%></font></td>
                <td valign="middle" align="center"><center><div style="text-align: left; width: 180px;">
                 <%
                for i = 0 to (permissionsCount)
                    if permissionsArray(0, i) = objID then
                        %>
                        <li style="height: 2px;">
                        <%=permissionsArray(1,i)%>
                        </li>
                        </br>
                        <%
                    end if                        
                next   
                %>
                </div></center></td>
        </tr>
<%
        obj_ADO.MoveNext(lng_RecSet)
    wend
    obj_ADO.CloseRecordset lng_RecSet
%>

Answer 1

通过更改加载到多维数组中的内容修复了此问题。而不是加载我加载的所有内容，而不是用户筛选的任何内容

if str_Prefix = "" then
    SQL = "select OP_ObjectID, P_Name from l_objectpermission inner join A_Permission on op_permissionID = P_permissionID order by P_Name"
elseif str_Prefix <> "" then
    SQL = "select OP_ObjectID, P_Name from l_objectpermission inner join A_Permission on op_permissionID = P_permissionID where P_Name like '" & str_Prefix & "' + '%' OR P_Name like '% ' + '" & str_Prefix & "' + '%' order by P_Name"
else
    SQL = "select OP_ObjectID, P_Name from l_objectpermission inner join A_Permission on op_permissionID = P_permissionID order by P_Name"
end if