asp 验证用户名是否包含有非常字符的函数

要验证用户名是否包含非常字符，我们需要编写一个 ASP 函数来达到目的。下面是一份示例代码：

Function IsValidUserName(username)
  Dim pattern
  pattern = "^[a-zA-Z0-9_]+$"

  Dim regEx
  Set regEx = New RegExp

  regEx.Pattern = pattern

  IsValidUserName = regEx.Test(username)

  Set regEx = Nothing
End Function

在上面的代码中，IsValidUserName 是我们编写的函数名称，它接收一个用户名参数。该函数首先声明一个正则表达式模式，它只包含大小写字母、数字和下划线字符。

接下来，我们声明了一个新的正则表达式对象，将我们的正则表达式模式设置为对象的 Pattern 属性。然后，我们调用 Test 函数来执行正则表达式匹配，检测传递进来的用户名是否符合规则。

最后，如果传递进来的用户名符合规则，函数将返回 True。如果不符合，函数将返回 False。

现在，我们来看两个示例说明：

示例 1：

<%
Dim username
username = "myusername123"

If IsValidUserName(username) Then
  Response.Write("用户名 " & username & " 合法")
Else
  Response.Write("用户名 " & username & " 不合法")
End If
%>

在上面的示例中，我们首先声明一个用户名变量，并将其设置为 "myusername123"。然后，我们调用 IsValidUserName 函数来验证该用户名，根据返回的结果输出相应的信息。

由于用户名 "myusername123" 只包含大小写字母和数字，因此它是合法的，IsValidUserName 函数将返回 True，输出结果为“用户名 myusername123 合法”。

示例 2：

<%
Dim username
username = "myusername!@#"

If IsValidUserName(username) Then
  Response.Write("用户名 " & username & " 合法")
Else
  Response.Write("用户名 " & username & " 不合法")
End If
%>

在上面的示例中，我们将用户名变量设置为 "myusername!@#"，该名称包含感叹号、@ 和井号等特殊字符，因此不合法。当我们调用 IsValidUserName 函数时，它将返回 False，并输出 "用户名 myusername!@# 不合法"。

需要注意的是，此功能有其局限性，因为它只验证用户名是否只包含特定字符。仅使用此函数不足以完全保护网站安全，还需要采取其他措施，例如限制用户名长度、使用验证码等等。