<%
******************************
函数IsValidUserName(byValUserName)
参数UserName用户名称
作者阿里西西
日期//
描述验证用户名是否包含有非法字符不含非法字符返回true
示例IsValidUserName(byValUserName)
******************************
FunctionIsValidUserName(byValUserName)
Dimic
IsValidUserName=True
Fori=ToLen(UserName)
c=Lcase(Mid(UserNamei))
IfInStr($!<>?#^%@~`&*();:+=c)>Then
IsValidUserName=False
ExitFunction
EndIF
Next
EndFunction
%>
