Deambulando

Como la mayoría sabe ASP no tiene compilador, así que lo mejor que puedes hacer es depurar el código.

Para esto a parte de comentar el código, va bien ponernos unos cuantos response.write para ir viendo que sucede en la ejecución.

La cosa es que puede ser molesto tener tantos response que luego tienes que comentar.

Una manera sencilla de solventar esto podría ser esta:

‘***********************depuracion
dim dep:dep=1 ‘variable depuracion
‘*********************************

function rd (s)’hace un response write si esta la variable dep=1
if dep=1 then response.Write ”
” & s
end function

‘uso
rd “esto se imprime si esta dep=1″ & variables

Pero el problema es que nos pone toda la info en medio… a mi me gusta mas que me lo ponga al final, y con algo mas de información y mas ordenado.

En este código nos muestra el tiempo de ejecución a parte que usa un array para ir guardando los sucesos.

‘******************variables globales
dim depurar: depurar=true ‘variable depuracion
dim aDepuracion():redim aDepuracion(0)’aqui se mete todo lo que se va
depurando
‘************************************

‘********************depuracion de código
function rd (s)’hace un response write si esta la variable dep=1
if depurar=true then
redim preserve aDepuracion(ubound(aDepuracion)+1)’hacemos
crecer el array 1 mas
aDepuracion(ubound(aDepuracion))=s’ y establecemos el valor
end if
end function

function getDepuracion’obtenemos todo lo depurado
if depurar=true and ubound(aDepuracion)>0 then’si esta depurando
y el indide es mayor de 0
endtime = Timer()’*****tiempo
rd “Tiempo ejecucion: ” & round(endtime-starttime ,2) &
“s”‘*****tiempo

dim i:i=0’seteo de i
for i=0 to ubound(aDepuracion)’bucle hasta el final
response.Write ”
” & aDepuracion(i)’imprimimos los
resultados
next
redim aDepuracion(0)’no vamos a usar mas esta variable
end if
end function
‘******************************************

‘Uso:
rd “depurando!!!”

‘mostrando la depuracion:
call getDepuracion

Esto es todo espero os sea útil ;)