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

　　<%

　　'******************************

　　'函数：IsValidUserName(byVal UserName)

　　'参数：UserName,用户名称

　　'作者：阿里西西

　　'日期：2007/7/15

　　'描述：验证用户名是否包含有非法字符，不含非法字符返回：true

　　'示例：IsValidUserName(byVal UserName)

　　'******************************

　　Function IsValidUserName(byVal UserName)

　　Dim i,c

　　IsValidUserName = True

　　For i = 1 To Len(UserName)

　　c = Lcase(Mid(UserName, i, 1))

　　If InStr("$!<>?#^%@~`&*();:+='""　  ", c) > 0 Then

　　IsValidUserName = False

　　Exit Function

　　End IF

　　Next

　　End Function

　　%>