Die Registrierungsüberprüfung verhindert, dass Benutzernamen Leerzeichen eingeben. Asp ersetzt Sonderzeichen im Batch-Funktionscode check.asp
Kopieren Sie den Codecode wie folgt:
<%
''''''''''''''''''''''''''''''
Funktion ReplacementText(fString,patrn,replStr)
Set regEx = New RegExp ' Erstellt einen regulären Ausdruck.
regEx.Pattern = patrn ' Muster festlegen.
regEx.IgnoreCase = True ' Legen Sie fest, ob die Groß-/Kleinschreibung beachtet werden soll.
regEx.Global = True ' Globale Verfügbarkeit festlegen.
ReplacementText = regEx.Replace(&fString&,&replStr&) 'Ersetzen.
Setze regEx=nothing
Funktion beenden
''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
Funktion HTMLEncode(fString)
fString=Trim(fString)
fString=Replace(fString,CHR(9),)
fString=Replace(fString,CHR(13),)
fString=Replace(fString,CHR(22),)
fString=Replace(fString,CHR(38),&) '&
fString=Replace(fString,CHR(32), ) '
fString=Replace(fString,CHR(34),) '
fString=Replace(fString,CHR(37),%) '%
fString=Replace(fString,CHR(39),') ''
fString=Replace(fString,CHR(42),*) '*
fString=Replace(fString,CHR(43),+) '+
fString=Replace(fString,CHR(44),,) ',
fString=Replace(fString,CHR(45)&CHR(45),--) '--
fString=Replace(fString,CHR(92),/) '/
'fString=Replace(fString,CHR(95),_) '_
fString=Replace(fString,CHR(40),() '(
fString=Replace(fString,CHR(41),)) ')
fString=Replace(fString,CHR(60),<) '<
fString=Replace(fString,CHR(62),>) '>
fString=Replace(fString,CHR(123),{) '{
fString=Replace(fString,CHR(125),}) '}
fString=Replace(fString,CHR(59),;) ';
fString=Replace(fString,CHR(10),<br>)
fString=ReplaceText(fString,([&#])([a-z0-9]*);,$1$2;)
fString=ReplaceText(fString,(fuck|shit),string(len(&$1&),*))
if IsSqlDataBase=0 then 'Filter Katakana (japanische Zeichen) [/u30A0-/u30FF] nach Yuzi
fString=escape(fString)
fString=ReplaceText(fString,%u30([AF][0-F]),0$1;)
fString=unescape(fString)
Ende wenn
HTMLEncode=fString
Funktion beenden
''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
FunctionRequestInt(fString)
RequestInt=Anfrage(fString)
if IsNumeric(RequestInt) dann
RequestInt=int(RequestInt)
anders
RequestInt=0
Ende wenn
Funktion beenden
''''''''''''''''''''''''''''''
UserName=HTMLEncode(unescape(Request.QueryString(UserName)))
UserNameLength=RequestInt(UserNameLength)
Wenn len(UserName)<>UserNameLength Dann
Der Benutzername „response.write“ ist illegal!
Anders
Der Benutzername „response.write“ ist legal!
Ende wenn
%>
Die HTMLEncode-Funktion ist ein notwendiger Schritt, um den Benutzernamen in zulässige Zeichen umzuwandeln.
Die RequestInt-Funktion bestimmt hauptsächlich anhand der Anzahl der eingegebenen gültigen Zeichen, ob der Benutzername Leerzeichen enthält.
Aufrufende Methode: check.asp?UserName=username&UserNameLength=username length
check.asp wird im Allgemeinen für die Ajax-Beurteilung verwendet