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

用户名验证函数

最新推荐文章于 2024-02-22 17:01:50 发布

最新推荐文章于 2024-02-22 17:01:50 发布 · 93 阅读

本文介绍了一个用于验证用户名的有效性的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