Dichiarazione vettore nel global.asa

[gembi]

Ciao a tutti,
volevo sapere se e come è possibile dichiarare un vettore nel file global.asa.

Con il codice seguente ho dichiarato l'etichetta del vettore che è "vettore", l'istanza vera e propria del vettore si effettua nel file che lo deve utilizzare? Anche perchè non conosco la grandezza a priori ma è il risultato di una query SQL.

Sub Application_OnStart
Application("vettore") = NULL
End Sub

Un saluto
gembi

[gembi]

Non c'è nessuno che può darmi una mano per favore?

[Baol74]

é meglio non usare array in variabili application. Si incarta facilmente il server.

In ogni caso, puoi assegnare l'array alla variabile di applicazione.
Non puoi però modificarne le dimensioni, al massimo puoi riassegnarne uno nuovo

Application.Lock
Application("vettore") = Array("1","2","3")
Application.Unlock

'Assegno nuovo array
Application.Lock
Application("vettore") = Array("1","2","3","4")
Application.Unlock

Naturalmente ci sono almeno 2 alternative, tutte che partono dal'idea che nelle variabili di applicazione di mettono solo variabili semplici

[gembi]

Ok ti ringrazio,
ho intenzione di dichiarare l'array nel global perchè devo solo memorizzare dei dati che sono in comune, quindi non ho bisogno di modificare le dimensioni dell'array.

Per quanto riguarda l'inizializzazione dell'array devo assegnare dei dati che prelevo da un database.
La select la posso fare nel global stesso? posso aprire e chiudere tag asp fuori dai tag script?
Devo inoltre precisare la dimensione dell'array? (eventualmente sarebbe recordcount del risultato della query.)

gembi

[Baol74]

C'è una funzione che ti restituisce l'array di una sql. Rs.GetRows credo.

Application.Lock
Application("vettore") = Rs.GetRows()
Application.Unlock

Se dovessi avere problemi, fammi un fischio che di dico come salvare direttamente un recordset in una variabile application e come ripristinarlo.

ciao

[gembi]

Ti ringrazio!!!!

Ti posto il codice che sto scrivendo:

<script language="vbscript" runat="SERVER">
Sub Application_OnStart
get_banner
End Sub

Sub get_banner
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "C:\Inetpub\wwwroot\prove_asp\banner\database\bann er.mdb"
set rs=conn.execute("SELECT id_banner FROM banner")
Application("vettore")=rs.GetRows
rs.Close
conn.Close
End Sub

Sub Session_OnStart
Session("indice") = ""
End Sub
</script>

In sostanza così ho solo dichiarato l'etichetta "vettore" a cui viene assegnato il risultato di getRows che dovrebbe essere un vettore. E' corretto?

[gembi]

devo aggiungere ancora il lock e unlock

[Baol74]

si, in scrittura è obbligatorio, anche se c'è chi dice che il lock provoca dei problemi...

[gembi]

Nei file che devono leggere l'array, mi conviene usare un array di comodo e caricare tutto il contenuto?

vettore = Array()
vettore = Application("vettore")

oppure

Dim vettore() 'posso qui non specificare la grandezza?
vettore = Application("vettore")


Per stampare i valori vorrei impostare un ciclo for, come faccio a sapere la grandezza dell'array?

[Baol74]

ne l'uno, ne l'altro

Dim vettore
vettore = Application("vettore")