Dall'archivio script > Classic ASP

Utilizzare al meglio le variabili Application

di Leonardo PapiLeonardo Papi, in Classic ASP, Application, Tips,

Precedentemente si e' visto come utilizzare l'oggetto Application per mettere a disposizione di tutti i visitatori una variabile temporanea.
Forse per chi controlla il sito puo' essere utile verificare di tanto in tanto la situazione delle variabili Application utilizzate.

Un semplice script come il seguente può essere d'aiuto

<%
' Restituisce l'indice dell'oggetto APPLICATION ed il suo contenuto
' In questo primo script utilizzo lo statement FOR ... NEXT

  For i = 1 To Application.Contents.Count
    Response.Write i & " = "

    If IsObject(Application.Contents(i)) Then
      Response.Write "<i>APPLICATION e' utilizzato come ""Oggetto""</i>" & "<BR>"

    ElseIf IsArray(Application.Contents(i)) Then
      Response.Write "<i>APPLICATION e' utilizzato come ""array""</i>" & "<BR>"

      aLMatrice = Application.Contents(i)

 For y = 0 to Ubound(aLMatrice)
     Response.write "   elemento " & y & " - " &_
          aLMatrice(y) & "<br>"
       Next
 
   Else
      Response.Write "<i>APPLICATION contiene ==> </i>" & Application.Contents(i) & "<BR>"
    End If
  Next

%>

Se non si hanno a disposizione variabili Application puo' essere utilizzato questo script per crearne alcune.
Tra le altre cose ho voluto utilizzare, in fase di creazione della Matrice l'istruzione REDIM con la clausola PRESERVE
Che a sua volta puo' tornare utile nella costruzione di matrici da ridimensionare dinamicamente.

<%
  Dim aMatrice()
  Dim connConnesAdo

i = 0
  redim aMatrice(i)
  aMatrice(i) = "Primo Elemento"

i = i + 1
  redim preserve aMatrice(i)
  aMatrice(i) = "Secondo Elemento"

i = i + 1
  redim preserve aMatrice(i)
  aMatrice(i) = "Terzo Elemento"

i = i + 1
  redim preserve aMatrice(i)
  aMatrice(i) = "Quarto Elemento"

i = i + 1
  redim preserve aMatrice(i)
  aMatrice(i) = "Quinto Elemento"

  Application("Matrice") = aMatrice

  Application("Testo") = "Questo testo e' contenuto nell'Oggetto Application ""Testo"""

  Set connConnesAdo = Server.CreateObject("ADODB.Connection")
  Set Application("ConnessioneADO") = connConnesAdo

%>

Commenti

Visualizza/aggiungi commenti

| Condividi su: LinkedIn, Facebook
Aggiorna

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi