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