<%
'******************************
'函數：IsValidUserName(byValUserName)
'參數：UserName,用戶名稱
'作者：阿里西西
'日期：2007/7/15
'描述：驗證用戶名是否包含有非法字符，不含非法字符返回：true
'示例：IsValidUserName(byValUserName)
'******************************
FunctionIsValidUserName(byValUserName)
Dimi,c
IsValidUserName=True
Fori=1ToLen(UserName)
c=Lcase(Mid(UserName,i,1))
IfInStr("$!<>?#^%@~`&*();:+='""",c)>0Then
IsValidUserName=False
ExitFunction
EndIF
Next
EndFunction
%>