Ejemplo de Función para limpiar cadenas SQL y evitar inyección en ASP

Aquí les dejo una función que hice hace tiempo para evitar la inyección SQL y así limpiar los registros de caracteres que pueden causar daño a un servidor o simplemente para evitar el error.

Ejemplo de función para limpiar cadenas SQL y evitar inyección SQL en ASP

<%
Function Limpia(strPalabras)
malasPalabras = array("select", "drop",";","--", "insert", "delete", "xp_","/", "", "*", "%", "<", ">","'","""")
nuevosCar = strPalabras
If not isNull(nuevosCar) then
For i = 0 to uBound(malasPalabras)
nuevosCar = replace(nuevosCar,malasPalabras(i),"")
next
nuevosCar = Server.HTMLEncode(nuevosCar)
Limpia = nuevosCar
else
end if
End Function
%>