Effettuare il debug senza l'oggeto ASPError
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
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
