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 
%> 

上一个：ASP通用分页样式函数代码
下一个：asp下实现对HTML代码进行转换的函数