La verificación del registro evita que los nombres de usuario ingresen espacios, asp reemplaza los caracteres especiales en el código de función de lotes check.asp
Copie el código de código de la siguiente manera:
<%
''''''''''''''''''''''''''''''
Función ReemplazarTexto(fString,patrn,replStr)
Set regEx = New RegExp ' Crea una expresión regular.
regEx.Pattern = patrón ' Establecer patrón.
regEx.IgnoreCase = True ' Establece si se distingue entre mayúsculas y minúsculas.
regEx.Global = True ' Establece la disponibilidad global.
ReemplazarTexto = regEx.Replace(&fString&,&replStr&) 'Reemplazar.
Establecer expresión regular = nada
Función final
''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
Función HTMLEncode(fString)
fString=Recortar(fString)
fString=Reemplazar(fString,CHR(9),)
fString=Reemplazar(fString,CHR(13),)
fString=Reemplazar(fString,CHR(22),)
fString=Reemplazar(fString,CHR(38),&) '&
fString=Reemplazar(fString,CHR(32), ) '
fString=Reemplazar(fString,CHR(34),) '
fString=Reemplazar(fString,CHR(37),%) '%
fString=Reemplazar(fString,CHR(39),') ''
fString=Reemplazar(fString,CHR(42),*) '*
fString=Reemplazar(fString,CHR(43),+) '+
fString=Reemplazar(fString,CHR(44),,) ',
fString=Reemplazar(fString,CHR(45)&CHR(45),--) '--
fString=Reemplazar(fString,CHR(92),/) '/
'fString=Reemplazar(fString,CHR(95),_) '_
fString=Reemplazar(fString,CHR(40),() '(
fString=Reemplazar(fString,CHR(41),)) ')
fString=Reemplazar(fString,CHR(60),<) '<
fString=Reemplazar(fString,CHR(62),>) '>
fString=Reemplazar(fString,CHR(123),{) '{
fString=Reemplazar(fString,CHR(125),}) '}
fString=Reemplazar(fString,CHR(59),;) ';
fString=Reemplazar(fString,CHR(10),<br>)
fString=ReplaceText(fString,([&#])([a-z0-9]*);,$1$2;)
fString=ReplaceText(fString,(joder|mierda),string(len(&$1&),*))
si IsSqlDataBase=0 entonces 'Filtrar Katakana (caracteres japoneses) [/u30A0-/u30FF] por yuzi
fCadena=escape(fCadena)
fString=ReemplazarTexto(fString,%u30([AF][0-F]),0$1;)
fString=sin escape(fString)
terminar si
HTMLEncode=fString
Función final
''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
FunciónSolicitudInt(fString)
SolicitudInt=Solicitud(fString)
si esNumeric(RequestInt) entonces
SolicitudInt=int(SolicitudInt)
demás
SolicitudInt=0
terminar si
Función final
''''''''''''''''''''''''''''''
Nombre de usuario = HTMLEncode (unescape (Request.QueryString (Nombre de usuario)))
LongitudNombreUsuario=RequestInt(LongitudNombreUsuario)
Si len (nombre de usuario) <> longitud de nombre de usuario entonces
¡El nombre de usuario Response.write es ilegal!
Demás
Response.write ¡El nombre de usuario es legal!
Terminar si
%>
La función HTMLEncode es un paso necesario para convertir el nombre de usuario en caracteres legales.
La función RequestInt determina principalmente si el nombre de usuario contiene espacios en función de la cantidad de caracteres válidos ingresados.
Método de llamada: check.asp?UserName=nombre de usuario&UserNameLength=longitud del nombre de usuario
check.asp se usa generalmente para juzgar Ajax