como hago esto en asp ?

[Myakire]

¿cuál función?

¿del objeto dictionary?

Bueno, es sencillo encontrarle utilidad, donde quiera que ocupes relacionar una llave con un valor es posible usarlo, por ejemplo puedes utilizarlo para mostrar o no los controles a los que un usuario tiene acceso según sus permisos, algo como esto:

Código asp:

<&#37;
Class UsuarioClass
    Public objDicPantallas
        ...
    Private Sub Class_Initialize()
       ...
             set objDicPantallas = Server.CreateObject("Scripting.Dictionary") 
    End Sub
        ...
    Private Sub Class_Terminate()
            ...
        Set objDicPantallas = Nothing
    End Sub
        
    Public Function PantallasValidas(PantallaID)
        ...
    Query = "SELECT ....."
    adoRs.Open Query, con
        IF NOT adoRs.EOF Then
       rsControlesXPantalla = adoRS.GetRows
             objDicPantallas.RemoveAll 
             For i=0 to UBound(rsControlesXPantalla,2)
                 objDicPantallas.Add rsControlesXPantalla(0,i), rsControlesXPantalla(3,i)&"|"&rsControlesXPantalla(1,i)&"|"&rsControlesXPantalla(2,i)
       Next
             ...             
        End IF
        ...
        End Function
End Class   
 
set ObjUsuario = new UsuarioClass
ObjUsuario.RequestID = Session("Login")
ObjUsuario.Password = Session("Password")
...
ObjUsuario.PantallasValidas(1)
 
if Not ObjUsuario.objDicPantallas.Exists("1.1.1") Then Permiso1_1_1 = " style='display:none' " End If 'btn Eliminar, por ejemplo
if Not ObjUsuario.objDicPantallas.Exists("1.1.2") Then Permiso1_1_2 = " style='display:none' " End If 'btn Editar, por ejemplo
if Not ObjUsuario.objDicPantallas.Exists("1.1.3") Then Permiso1_1_3 = " style='display:none' " End If 'btn Agregar, por ejemplo
%>
 

Primero se crea una clase con un método que llene el objeto, y luego simplemente se usa, ya que fue declarado como público; se le pudo dar un nivel más alto de encapsulamiento pero para efectos didacticos creo que es suficiente. Las variables Permiso1_1_n se colocan dentro de los controles HTML correspondientes y listo.

Saludos!