复制代码代码如下:
<%
Dimfs_nosqlhack_allstr, fs_nosqlhack_str, fs_nosqlhack_comeurlget, fs_nosqlhack_comeurlpost, fs_nosqlhack_get, fs_nosqlhack_post, fs_nosqlhack_i
'OnErrorReSumenext
Fs_nosqlhack_allstr = "'|
Fs_nosqlhack_comeurlget = request.QueryString
Fs_nosqlhack_comeurlpost = request.form
Fs_nosqlhack_str = split (fs_nosqlhack_allstr, "|")
'Publicar
Iffs_nosqlhack_comeurlpost <> "" então
Foreachfs_nosqlhack_postinRequest.form
Forfs_nosqlhack_i = 0toubound (fs_nosqlhack_str)
Ifinstr (lcase (request.form (fs_nosqlhack_post)), fs_nosqlhack_str (fs_nosqlhack_i)) <> 0Then
Response.Write ("Erro !!")
Resposta.END
Endif
Próximo
Próximo
Endif
'Pegar
Iffs_nosqlhack_comeurlget <> "" então
Foreachfs_nosqlhack_getinRequest.QueryString
Forfs_nosqlhack_i = 0toubound (fs_nosqlhack_str)
Ifinstr (lcase (request.QueryString (fs_nosqlhack_get)), fs_nosqlhack_str (fs_nosqlhack_i)) <> 0hen
Response.Write ("Erro !!")
Resposta.END
Endif
Próximo
Próximo
Endif
%>