ASP empêche Get Get, post-injection et attaques de serveurs et enregistre IP

Recommandé: ASP remplace le dernier bit d'adresse IP par le code d'instance Asterisk
Enregistrez d'abord l'adresse IP dans la base de données, puis retirez-la. L'effet est comme indiqué sur la figure: le code est le suivant:% 'source ipstr = rs (CIP) ipstr = Split (ipstr,., - 1,1) ipstrout = ipstr (0) .ipstr (1) .ipstr (2). * Response.write ipstrout%%

<%

'Empêcher Get, post-injection et attaque de serveur

«Il est acceptable d'utiliser ce fichier pour inclure le fichier qui doit être noté. Expliquons que les attaques post-post-post-attaques ici ne sont pas nécessairement des attaques. Veuillez prêter attention à les utiliser dans la version anglaise.

'Feng Xu modifié

session.abandon ()

Dim fxjt111_attack_post, fxjt111_attack_get, fxjt111_attack_system

fxjt111_attack_post = "/ attaque.txt" 'Enregistrement d'attaque fxjt111_attack_post est le nom du fichier d'enregistrement post-attaque.

fxjt111_attack_get = "/ attaque.txt" 'fxjt111_attack_get est le nom de fichier de l'enregistrement d'attaque get

fxjt111_attack_system = "/ attaque_system.txt" 'fxjt111_attack_system est le nom de fichier de l'enregistrement d'attaque du système

Dim fy_post, fy_get, fy_in, fy_inf, fy_xh, fy_db, fy_dbstr

Fy_in = "'★; ★ et ★ EXEC ★ INSERT ★ SELECT ★ DELETE ★ MISE À JOUR ★ COUNT ★ * ★% ★ CHR ★ MID ★ MASTER ★ TRUNCATE ★ CHAR ★ DÉCLARE"

'----------------------------------

Fy_inf = split (fy_in, "★")

'-----------------------------------------------------------------------------------------------------------------------------

Si demande.form <> "" alors

Pour chaque fy_post dans demande.form

Pour fy_xh = 0 à ubound (fy_inf)

Si instlin (lcase (request.form (fy_post)), fy_inf (fy_xh)) <> 0 alors

'Enregistrer le post-attaque commence

DIM VALIDENTRY_POST

VALIDENTRY_POST = TRUE

Sinon IsEmpty (session ("Login_post")) alors ValiLIDGRY_POST = FALSE

Si VALIDENTRY_POST alors

Const ForAspending_post = 8

Const Create_post = true

DIM FSO_POST

DIM TS_POST

Dim myfilename_post

'Dim strlog

Dim strtime_post, strip_post, strurll_post, strwords_post

MyFileName_Post = server.mappath (fxjt111_attack_post)

Set fso_post = server.createObject ("scripting.fileSystemObject")

SET TS_POST = FSO_POST.OPENEXTFILE (MYFILENAME_POST, FORAPPENDING_POST, CREATE_POST)

strip_post = request.servervariables ("rote_addr") & ""

Si strip_post = "" alors

strip_post = request.servervariables ("http_x_forwarded_for") & ""

terminer si

'strurll_post = request.servervariables ("http_referer")

strwords_post = request.servervariables ("query_string")

strtime_post = maintenant ()

Partager: code de conversion de demi-largeur pleine largeur
Conversion JavaScript: script / * ************************** * DESCRIPTION DESCRIPTION: * STR: La chaîne à convertir * Flag: Mark, 0 et moitié en plein, et 0 et moitié en pleine * Type de valeur de retour: String ********************************** * / fonction dbc2sbc (str, drap) {var i; var result = ''; si (