asp 验证用户名是否包含有非常字符的函数

2018-09-06 12:49

阅读:428

  <%
******************************
函数: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
%>


评论


亲,登录后才可以留言!