ASP última función de filtrado antiinyección SQL
Autor：Eve Cole
Fecha de actualización：2009-06-25 17:44:59
función checkstr(str)
si es nulo (cadena) entonces
cadena de control = ""
función de salida
terminar si
cadena = reemplazar(cadena,chr(0),"", 1, -1, 1)
cadena = reemplazar(cadena, """", """, 1, －1, 1)
cadena = reemplazar(cadena,"<；","<；", 1, －1, 1)
cadena = reemplazar(cadena,">；",">；", 1, －1, 1)
cadena = reemplazar(cadena, "guión", "guión", 1, －1, 0)
cadena = reemplazar(cadena, "guión", "guión", 1, －1, 0)
cadena = reemplazar(cadena, "guión", "guión", 1, －1, 0)
cadena = reemplazar(cadena, "guión", "guión", 1, －1, 1)
str = reemplazar(cadena, "objeto", "objeto", 1, －1, 0)
str = reemplazar(cadena, "objeto", "objeto", 1, －1, 0)
str = reemplazar(cadena, "objeto", "objeto", 1, －1, 0)
str = reemplazar(cadena, "objeto", "objeto", 1, －1, 1)
cadena = reemplazar(cadena, "applet", "applet", 1, －1, 0)
cadena = reemplazar(cadena, "applet", "applet", 1, －1, 0)
cadena = reemplazar(cadena, "applet", "applet", 1, －1, 0)
cadena = reemplazar(cadena, "applet", "applet", 1, －1, 1)
cadena = reemplazar(cadena, "[", "[")
cadena = reemplazar(cadena, "]", "]")
cadena = reemplazar(cadena, """", "", 1, －1, 1)
cadena = reemplazar(cadena, "=", "=", 1, －1, 1)
cadena = reemplazar(cadena, "'", "''", 1, －1, 1)
cadena = reemplazar(cadena, "seleccionar", "seleccionar", 1, －1, 1)
str = reemplazar(cadena, "ejecutar", "ejecutar", 1, －1, 1)
cadena = reemplazar(cadena, "exec", "exec", 1, －1, 1)
cadena = reemplazar(cadena, "unirse", "unirse", 1, －1, 1)
cadena = reemplazar(cadena, "unión", "unión", 1, －1, 1)
cadena = reemplazar(cadena, "dónde", "dónde", 1, －1, 1)
cadena = reemplazar(cadena, "insertar", "insertar", 1, －1, 1)
cadena = reemplazar(cadena, "eliminar", "eliminar", 1, －1, 1)
cadena = reemplazar(cadena, "actualizar", "actualizar", 1, －1, 1)
cadena = reemplazar(cadena, "me gusta", "me gusta", 1, －1, 1)
str = reemplazar(cadena, "soltar", "soltar", 1, －1, 1)
cadena = reemplazar(cadena, "crear", "crear", 1, －1, 1)
str = reemplazar(cadena, "renombrar", "renombrar", 1, －1, 1)
cadena = reemplazar(cadena, "cuenta", "cuenta", 1, －1, 1)
cadena = reemplazar(cadena, "chr", "chr", 1, －1, 1)
cadena = reemplazar(cadena, "media", "media", 1, －1, 1)
str = reemplazar(cadena, "truncar", "truncar", 1, －1, 1)
cadena = reemplazar(cadena, "nchar", "nchar", 1, －1, 1)
cadena = reemplazar(cadena, "char", "char", 1, －1, 1)
cadena = reemplazar(cadena, "alterar", "alterar", 1, －1, 1)
cadena = reemplazar(cadena, "emitir", "emitir", 1, －1, 1)
cadena = reemplazar(cadena, "existe", "existe", 1, －1, 1)
str = reemplazar(str,chr(13),"<；br>；", 1, －1, 1)
checkstr = reemplazar(str,"'","''", 1, －1, 1)
función final
