% '****************************** '函數：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 %>
