Limpiando objetos

[XaRoD]

Otra chorradita es la de limpiar los objetos que creamos.

Con esta función se escribirá lo mínimo posible.

Código:

Sub LimpiaObj(objeto)
On Error Resume Next
   
If isObject(objeto) Then
	If (objeto.State=1) Then 'comprueba si esta abierto
		objeto.Close
	End If

		Set objeto = Nothing
	End If
End Sub

El error resume es necesario debido a que hay objetos que poseen la propiedad State pero no admiten el metodo Close.

Si tengo tiempo iré publicando tips que si bien no aportan nada nuevo, si ayudan a realizar tareas repetitivas.

Yo suelo meter todas estas funcioncillas en un include en todas mis paginas, de manera que me son accesibles rapidamente.

El colmo de la vagancia son estas 3 funciones:

Function rw(str)
rw=Response.Write(str)
End Function

Function rf(elemento)
rf=Request.Form(elemento)
End Function

Function rq(elemento)
RF=Request.Querystring(elemento)
End Function

Pero poco a poco se le va cogiendo el gustillo a estas simplezas.

Salu2

[AlZuwaga]

Sos un vago!



La otra vez intenté hacer eso de preguntar por 'If isObject' pero me daba errores y lo dejé de lado. Tal vez sea por lo que comentás del on error resumen next

[lexus]

con este codigo se cierran todos los objetos y se destruyen todos? sin necesidad de nombrar a todos los que he creado?

[sjam7]

con este metodo cerramos recordsets?

[Muzztein]

sips.. yo hago lo mismo.


agrego unas mas de mi coleccion

sub escribe(str)
response.write str & chr(10)
end sub

sub imprime(str)
response.write str & "<br>"
end sub

sub termina()
response.end
end sub


sub mensaje(txt)
escribe "<script>"
escribe "alert(""" & txt & """)"
escribe "</script>"
end sub

sub cierra_y_recarga
response.write "<script>" & chr(10)
response.write "window.opener.location.reload();"
response.write "window.close();"
response.write "</script>" & chr(10)
end sub


bon apetit

[AlZuwaga]

Bueno, otra ;)


Function DebugSQL(Que)
Response.Write Que
Response.End()
End Function

DebugSQL(strSQL) 'y la llamo antes de ejecutarla

(para eso había preguntado en un mensaje anterior si les gustaría un tema con las funciones que solemos utilizar :p)

[lexus]

hola, lo qeu dice dazuaga es muy bueno, porque no creamos un tema con todas las funciones que mas usamos creo que a todos nos seria muy util tener eso.. porfavor espero toods esten de acuerdo..en abrir este tema aparte con todas las funciones. gracias

[u_goldman]

Si sho no se por qué no comenzaron je je, hasta dije que ibamos a crear un meta lenguaje ASP


Salu2,