<%
'***********************************
'Função: IsValidUserName (ByValuserName)
Parâmetro: nome de usuário, nome de usuário
'Autor: Alixi
Data: 2007/7/15
'Descrição: Verifique se o nome de usuário contém caracteres ilegais, sem caracteres ilegais retornar: true
'Exemplo: IsValidUserName (ByvalUserName)
'***********************************
FunctionisValidUserName (ByValUserName)
Dimi, c
IsValidUserName = true
Fori = 1Tolen (nome de usuário)
c = lcase (Mid (nome de usuário, i, 1))
Ifinstr ("$! <>?#^%@~` &*();:+= '"" ", c)> 0hen
IsValidUserName = false
Saída de saída
Endif
Próximo
Função final
%>