asp 驗證用戶名是否包含有非常字符的函數

<%
******************************
函數IsValidUserName(byVal UserName)
參數UserName用戶名稱
作者阿裡西西
日期//
描述驗證用戶名是否包含有非法字符不含非法字符返回true
示例IsValidUserName(byVal UserName)
******************************
Function IsValidUserName(byVal UserName)
 Dim ic
 IsValidUserName = True
 For i =  To Len(UserName)
  c = Lcase(Mid(UserName i ))
  If InStr($!<>?#^%@~`&*();:+=   c) >  Then
    IsValidUserName = False
    Exit Function
  End IF
 Next
End Function
%>

From:http://tw.wingwit.com/Article/program/Web/201405/30993.html