<%
'*********************************
'Функция: isvalidusername (byvalusername)
'Параметр: имя пользователя, имя пользователя
Автор: Аликси
Дата: 2007/7/15
'Описание: Убедитесь, содержит ли имя пользователя незаконные символы без незаконных символов возвращайте: true
Пример: isvalidusername (byvalusername)
'*********************************
FunctionSvalidusername (byvalusername)
DiMi, c
Isvalidusername = true
Fori = 1tolen (имя пользователя)
c = lcase (середина (имя пользователя, i, 1))
Ifinstr ("$! <>?#^%@~` &*();:+= '"" ", c)> 0then
Isvalidusername = false
Выходная функция
Эндиф
Следующий
Конечная функция
%>