Проверка регистрации предотвращает ввод пробелов в именах пользователей, asp заменяет специальные символы в пакетном коде функции check.asp
Скопируйте код кода следующим образом:
<%
''''''''''''''''''''''''''''''''
Функция replaceText(fString,patrn,replStr)
Set regEx = New RegExp 'Создаем регулярное выражение.
regEx.Pattern = Patrn 'Установить шаблон.
regEx.IgnoreCase = True 'Укажите, следует ли учитывать регистр.
regEx.Global = True ' Устанавливает глобальную доступность.
replaceText = regEx.Replace(&fString&,&replStr&) 'Заменить.
Установить regEx=ничего
Конечная функция
''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''
Функция HTMLEncode(fString)
fString=Обрезать(fString)
fString=Заменить(fString,CHR(9),)
fString=Заменить(fString,CHR(13),)
fString=Заменить(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 'Фильтровать катакану (японские символы) [/u30A0-/u30FF] по yuzi
fString=escape(fString)
fString=ReplaceText(fString,%u30([AF][0-F]),0$1;)
fString = unescape (fString)
конец, если
HTMLEncode=fString
Конечная функция
''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''
ФункцияRequestInt(fString)
RequestInt=Запрос(fString)
если IsNumeric(RequestInt), то
RequestInt=int(RequestInt)
еще
ЗапросИнт=0
конец, если
Конечная функция
''''''''''''''''''''''''''''''''
UserName=HTMLEncode(unescape(Request.QueryString(UserName)))
UserNameLength = RequestInt (UserNameLength)
Если len(UserName)<>UserNameLength Тогда
Имя пользователя response.write незаконно!
Еще
Имя пользователя response.write является законным!
Конец, если
%>
Функция HTMLEncode — необходимый шаг для преобразования имени пользователя в допустимые символы.
Функция RequestInt главным образом определяет, содержит ли имя пользователя пробелы, исходя из количества введенных допустимых символов.
Метод вызова: check.asp?UserName=username&UserNameLength=длина имени пользователя.
check.asp обычно используется для оценки Ajax