como hago esto en asp ?

[ACX_POISON]

amigos me gustaria ssaber como pasar estas instrucciones a ASP

Código PHP:

  foreach $_server as $n => $valor
{
         echo"$n   ----  $valor<br>";
} 
   

gracias

[David]

Es que un array de PHP no es lo mismo que un array en VBScript . Algo más parecido a un array de PHP sería un objeto Dictionary, que sí podrás recorrer con un For Each.

[Muzztein]

perdonen la ignorancia.
pero que hace eso en php ?

[David]

Hola, Muzztein. Lo que hace es recorrer un array de PHP, y muestra la relación clave => valor. Algo parecido con lo que, como dije, haríamos con un objeto Dictionary para obtener sus claves y respectivos valores.

[ACX_POISON]

me podrias dar un poco de ayuda para usar y recorrer el objeto que mencionas?

[David]

Ejemplo:

Código vb:

Dim ObjArray
Dim Clave
 
Set ObjArray = Server.CreateObject("Scripting.Dictionary")
 
'Añadir Valores
ObjArray.Add "Clave", "Valor"
ObjArray.Add "User", "David el Grande"
ObjArray.Add "Location", "Foros del Web"
ObjArray.Add "Otro", "Valor"
 
'Mostrar valores
Response.Write ObjArray("User")
Response.Write ObjArray("Location")
 
'Recorrer todos y mostrar relación Clave -> Valor
For Each Clave In ObjArray
    Response.Write Clave & " ------- " & ObjArray(Clave) & "<br />"
Next
 

[Muzztein]

ah!, es un arreglo bi dimensional.... interesante. no lo habia visto nunca.

Por lo general estas cosas yo las hacia usando dos arreglo unidimensionales.

GRacias por el dato

[ACX_POISON]

Gracias X la ayuda
voy a probar el ejemplo

[David]

Iniciado por Muzztein

ah!, es un arreglo bi dimensional.... interesante. no lo habia visto nunca.

En realidad yo lo llamaría un array asociativo, porque no es un array bidimensional como tal, ya que es sólo una relación Clave -> Valor. La diferencia con un array "normal" radica en que el índice no es numérico. Así que si deseas usar arrays bidimensionales de la forma como haces está bien, asignando otro array a un índice del array (en PHP también se hace así).

[Adler]

Hola

Muy buena la trasposición David

Muzztein por si quieres saber algo mas

[Muzztein]

buenisimo.
gracias. ya lo estoy implementando en mis Apps :)

[sjam7]

podrian dar un ejemplo funcional de esa funcion? se ve interesante...

[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!