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

<%

Function IsValidUserName(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

%>

调用方法: IsValidUserName(UserName) 直接判断就可以了。