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