Bloquear declaraciones SQL en URL

Función Filter_SQL(strData)

Dim strFilter

Dim blnFlag

Dim i

strFilter="', ',;, //, --, @, _, exec, declara " 'Caracteres para filtrar, puedes agregar tus propios caracteres, "," es el delimitador

blnFlag = False 'Indicador de filtro, verdadero si se genera un filtro

Dim arrayFilter

arrayFilter=Split(strFilter, ","")

For i= 0 To UBound (arrayFilter)

Si Instr(strData, arrayFilter(i))gt; 0 entonces

blnFlag = True

Salir para

End If

Siguiente

If blnFlag Then

'response.Write "¡Error al recibir parámetros!"'

iMessenger ("Recibir parámetro ¡error!")

'response.End()

Else

Filter_SQL=strData

Finalizar si

Función final