La vérification de l'enregistrement empêche les noms d'utilisateur d'entrer des espaces, asp remplace les caractères spéciaux dans les lots code de fonction check.asp
Copiez le code comme suit :
<%
''''''''''''''''''''''''''''''
Fonction ReplaceText(fString,patrn,replStr)
Set regEx = New RegExp 'Créer une expression régulière.
regEx.Pattern = patrn 'Définir le modèle.
regEx.IgnoreCase = True ' Définit s'il doit être sensible à la casse.
regEx.Global = True 'Définit la disponibilité globale.
ReplaceText = regEx.Replace(&fString&,&replStr&) 'Remplacer.
Définir regEx = rien
Fonction de fin
''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
Fonction HTMLEncode(fString)
fChaîne=Trim(fChaîne)
fString=Remplacer(fString,CHR(9),)
fString=Remplacer(fString,CHR(13),)
fString=Remplacer(fString,CHR(22),)
fString=Remplacer(fString,CHR(38),&) '&
fString=Remplacer(fString,CHR(32), ) '
fString=Remplacer(fString,CHR(34),) '
fString=Remplacer(fString,CHR(37),%) '%
fString=Remplacer(fString,CHR(39),') ''
fString=Remplacer(fString,CHR(42),*) '*
fString=Remplacer(fString,CHR(43),+) '+
fString=Remplacer(fString,CHR(44),,) ',
fString=Remplacer(fString,CHR(45)&CHR(45),--) '--
fString=Remplacer(fString,CHR(92),/) '/
'fString=Remplacer(fString,CHR(95),_) '_
fString=Remplacer(fString,CHR(40),() '(
fString=Remplacer(fString,CHR(41),)) ')
fString=Remplacer(fString,CHR(60),<) '<
fString=Remplacer(fString,CHR(62),>) '>
fString=Remplacer(fString,CHR(123),{) '{
fString=Remplacer(fString,CHR(125),}) '}
fString=Remplacer(fString,CHR(59),;) ';
fString=Remplacer(fString,CHR(10),<br>)
fString=ReplaceText(fString,([&#])([a-z0-9]*);,$1$2;)
fString=ReplaceText(fString,(fuck|merde),string(len(&$1&),*))
si IsSqlDataBase=0 alors 'Filtre Katakana (caractères japonais) [/u30A0-/u30FF] par yuzi
fString=évasion(fString)
fString=ReplaceText(fString,%u30([AF][0-F]),0$1;)
fString=unescape(fString)
finir si
HTMLEncode=fChaîne
Fonction de fin
''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
FonctionRequestInt(fString)
RequestInt=Requête(fString)
si IsNumeric (RequestInt) alors
RequêteInt=int(RequêteInt)
autre
RequêteInt=0
finir si
Fonction de fin
''''''''''''''''''''''''''''''
Nom d'utilisateur=HTMLEncode(unescape(Request.QueryString(UserName)))
NomUtilisateurLongueur=RequestInt(NomUtilisateurLongueur)
Si len(UserName)<>UserNameLength Alors
Le nom d’utilisateur réponse.write est illégal !
Autre
Le nom d’utilisateur Response.write est légal !
Fin si
%>
La fonction HTMLEncode est une étape nécessaire pour convertir le nom d'utilisateur en caractères légaux.
La fonction RequestInt détermine principalement si le nom d'utilisateur contient des espaces en fonction du nombre de caractères valides saisis.
Méthode d'appel : check.asp?UserName=username&UserNameLength=username length
check.asp est généralement utilisé pour le jugement Ajax