VBSCRIPT正则表达式验证用户名函数

<%

Function IsValidUserName(UserName)
IsValidUserName = True
'判断用户名长度是否在3-20字符之间
If   Len(UserName)<3   or   Len(UserName)>20   Then  
      IsValidUserName=False  
      Exit   Function  
End   If  
'检测是否包含特殊字符，可能造成不安全的SQL注入
For i = 1 To Len(UserName)
c = Lcase(Mid(UserName, i, 1))
If InStr("$!<>?#^%@~`&*();:+='"" ", c) > 0 Then
IsValidUserName = False
Exit Function
End IF
Next
'判断输入的用户名是否是中文字符,英文字符(大小写）,数字,下划线,中文字符组合
Dim regEx, Match1, Matches      ' 建立变量。
Set regEx = New RegExp         ' 建立正则表达式。
regEx.Pattern ="[^0-9a-z_/u4e00-/u9fa5]"        ' 设置模式。
regEx.IgnoreCase = True         ' 设置是否区分字符大小写。
regEx.Global = True         ' 设置全局可用性。
Set Matches = regEx.Execute(UserName)   ' 执行搜索。
For Each Match1 in Matches      ' 遍历匹配集合。
RetStr = RetStr & "找到非法字符位置：" & Match1.FirstIndex & " 字符是:"& Match1.Value & "" & vbCRLF
Next
response.Write("<br>"&RetStr)
if RetStr="" then
IsValidUserName = True
else
IsValidUserName = False
end if
RegExpTest = RetStr

End Function
response.Write(IsValidUserName("我是_xqf222"))
response.Write(IsValidUserName("我是_xqf   222"))

%>