A verificação de registro evita que nomes de usuários insiram espaços, asp substitui caracteres especiais em lotes código de função check.asp
Copie o código do código da seguinte forma:
<%
'''''''''''''''''''''''''''''''
Função SubstituirTexto(fString,patrn,replStr)
Set regEx = New RegExp ' Cria uma expressão regular.
regEx.Pattern = patrn ' Definir padrão.
regEx.IgnoreCase = True ' Define se deve diferenciar maiúsculas de minúsculas.
regEx.Global = True ' Define a disponibilidade global.
SubstituirText = regEx.Replace(&fString&,&replStr&) 'Substituir.
Definir regEx = nada
Função final
'''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
Função HTMLEncode(fString)
fString=Cortar(fString)
fString=Substituir(fString,CHR(9),)
fString=Substituir(fString,CHR(13),)
fString=Substituir(fString,CHR(22),)
fString=Substituir(fString,CHR(38),&) '&
fString=Substituir(fString,CHR(32), ) '
fString=Substituir(fString,CHR(34),) '
fString=Substituir(fString,CHR(37),%) '%
fString=Substituir(fString,CHR(39),') ''
fString=Substituir(fString,CHR(42),*) '*
fString=Substituir(fString,CHR(43),+) '+
fString=Substituir(fString,CHR(44),,) ',
fString=Substituir(fString,CHR(45)&CHR(45),--) '--
fString=Substituir(fString,CHR(92),/) '/
'fString=Substituir(fString,CHR(95),_) '_
fString=Substituir(fString,CHR(40),() '(
fString=Substituir(fString,CHR(41),)) ')
fString=Substituir(fString,CHR(60),<) '<
fString=Substituir(fString,CHR(62),>) '>
fString=Substituir(fString,CHR(123),{) '{
fString=Substituir(fString,CHR(125),}) '}
fString=Replace(fString,CHR(59),;) ';
fString=Substituir(fString,CHR(10),<br>)
fString=ReplaceText(fString,([&#])([a-z0-9]*);,$1$2;)
fString=ReplaceText(fString,(porra|merda),string(len(&$1&),*))
se IsSqlDataBase=0 then 'Filtrar Katakana (caracteres japoneses) [/u30A0-/u30FF] por yuzi
fString=escape(fString)
fString=ReplaceText(fString,%u30([AF][0-F]),0$1;)
fString=unescape(fString)
terminar se
HTMLEncode=fString
Função final
''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
FunçãoRequestInt(fString)
RequestInt=Solicitação(fString)
se IsNumeric(RequestInt) então
RequestInt=int(RequestInt)
outro
SolicitaçãoInt=0
terminar se
Função final
''''''''''''''''''''''''''''''
UserName=HTMLEncode(unescape(Request.QueryString(UserName)))
UserNameLength=RequestInt(UserNameLength)
If len(UserName)<>UserNameLength Then
O nome de usuário response.write é ilegal!
Outro
O nome de usuário response.write é legal!
Terminar se
%>
A função HTMLEncode é uma etapa necessária para converter o nome de usuário em caracteres legais.
A função RequestInt determina principalmente se o nome do usuário contém espaços com base no número de caracteres válidos inseridos.
Método de chamada: check.asp?UserName=username&UserNameLength=comprimento do nome de usuário
check.asp é geralmente usado para julgamento do Ajax