Effettuare il debug senza l'oggeto ASPError

di , in Classic ASP, UserScript, Tips,

Per effettuare il debug di uno script ASP molto spesso si adoperano una serie infinita di Response.Write per visualizzare il contenuto di alcune variabili.
Con questo script basterà passare alla Subroutine Debug il nome della variabile, in formato stringa, per avere tutte le informazione sulla stessa.
E' possibile inoltre fermare l'esecuzione dello script passando come secondo parametro il valore boleano True.

<%

Sub Debug(var, fine)
  If Not IsNull(var) OR var <> "" Then
    'Riempio un array con i possibili tipi di variabili
    Dim arrayCostantiVar(8192)
    arrayCostantiVar(0) = "Empty"
    arrayCostantiVar(1) = "Null"
    arrayCostantiVar(2) = "Intero"
    arrayCostantiVar(3) = "Intero Lungo"
    arrayCostantiVar(4) = "Numero a virgola mobile in precisione singola"
    arrayCostantiVar(5) = "Numero a virgola mobile in precisione doppia"
    arrayCostantiVar(6) = "Valuta"
    arrayCostantiVar(7) = "Data"
    arrayCostantiVar(8) = "Stringa"
    arrayCostantiVar(9) = "Oggetto di automazione"
    arrayCostantiVar(10) = "Errore"
    arrayCostantiVar(11) = "Valore booleano"
    arrayCostantiVar(12) = "Valore Variant (solo con matrici di valori Variant)"
    arrayCostantiVar(13) = "Oggetto di accesso ai dati"
    arrayCostantiVar(17) = "Byte"
    arrayCostantiVar(8192) = "Matrice"
    
    Response.Write var & ": " & Eval(var) & "<br>"
    Response.Write "Tipo Variabile: " & arrayCostantiVar(varType(Eval(var))) & "<br><br>"
    
    Erase arrayCostantiVar
    
    If fine Then
      Response.End
    End If
  End If
End Sub

%>

Per testare il valore di una variabile non dovremmo fare altro che passare a Debug il nome della variabile:

<%

a = 10
Debug "a", False

b = "questo è un testo"
Debug "b", True

%>

Commenti

Visualizza/aggiungi commenti

Effettuare il debug senza l'oggeto ASPError (#308) 710 227
| Condividi su: Twitter, Facebook, LinkedIn

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