<% Dim FS_NoSqlHack_AllStr,FS_NoSqlHack_Str,FS_NoSqlHack_ComeUrlGet,FS_NoSqlHack_ComeUrlPost,FS_NoSqlHack_Get,FS_NoSqlHack_Post,FS_NoSqlHack_i 'On Error Resume Next FS_NoSqlHack_AllStr="'|;| and |chr(|exec |insert |select |delete from|update |mid(|master." FS_NoSqlHack_ComeUrlGet   = Request.QueryString FS_NoSqlHack_ComeUrlPost  = Request.Form FS_NoSqlHack_Str = Split(FS_NoSqlHack_AllStr,"|") 'Post If FS_NoSqlHack_ComeUrlPost<>"" then  For Each FS_NoSqlHack_Post In Request.Form   For FS_NoSqlHack_i = 0 To Ubound(FS_NoSqlHack_Str)    If Instr(LCase(Request.Form(FS_NoSqlHack_Post)),FS_NoSqlHack_Str(FS_NoSqlHack_i))<>0 Then     Response.Write("Error!!")     Response.End    End if   Next  Next End if 'Get If FS_NoSqlHack_ComeUrlGet<>"" then   For Each FS_NoSqlHack_Get In Request.QueryString   For FS_NoSqlHack_i = 0 To Ubound(FS_NoSqlHack_Str)    If Instr(LCase(Request.QueryString(FS_NoSqlHack_Get)),FS_NoSqlHack_Str(FS_NoSqlHack_i))<>0 Then     Response.Write("Error!!")     Response.End    End if   Next  Next End if %>