Forms 检测字符串中的引号（"；）、单引号（&x27；）和逗号

我需要确保一个人的密码符合特定的标准，然后他们才能继续创建自己的帐户。我想添加一个语句来检查

，
，
，
，
。该应用程序是用VBScript编写的。这是我目前所拥有的。我在web上找不到任何内容

IsComplex = True

'Check Length
If Len(cPassword) < 8 Then
    IsComplex = False
End If

'Check for lowercase letters
HasLowerCase = False
For x = 97 to 122
    If Instr(4,cPassword,chr(x)) > 0 Then
        HasLowerCase = True
    End If
Next
If HasLowerCase = False Then
    IsComplex = False
    cForceChange = "E"
End If

'Check for uppercase letters
HasUpperCase = False
For x = 65 to 90
    If Instr(1,cPassword,chr(x)) > 0 Then
        HasUpperCase = True
    End If
Next
If HasUpperCase = False Then
    IsComplex = False
    cForceChange = "E"
End If

'Check for numbers
HasNumber = False
For x = 48 to 57
    If Instr(1,cPassword,chr(x)) > 0 Then
        HasNumber = True
        cForceChange = "E"
    End If
Next
If HasNumber = False Then
    IsComplex = False
    cForceChange = "E"
End If

IsComplex=True
“检查长度
如果Len（cPassword）<8，则
IsComplex=False
如果结束
'检查小写字母
HasLowerCase=False
对于x=97到122
如果Instr（4，cPassword，chr（x））>0，则
HasLowerCase=True
如果结束
下一个
如果HasLowerCase=False，则
IsComplex=False
cforchechange=“E”
如果结束
'检查大写字母
hassuppercase=False
对于x=65到90
如果Instr（1，cPassword，chr（x））>0，则
hassuppercase=True
如果结束
下一个
如果hassuppercase=False，则
IsComplex=False
cforchechange=“E”
如果结束
“查一下数字
HasNumber=False
对于x=48到57
如果Instr（1，cPassword，chr（x））>0，则
HasNumber=True
cforchechange=“E”
如果结束
下一个
如果HasNumber=False，则
IsComplex=False
cforchechange=“E”
如果结束
您可以逐字检查它们：

If InStr(cPassword, "'")  > 0 Then  ' Single-quote found
If InStr(cPassword, """") > 0 Then  ' Double-quote found (need to use TWO quotes)
If InStr(cPassword, ",")  > 0 Then  ' Comma found

唯一棘手的是双引号（
“
）。由于VBScript将其用于字符串文字，因此当您需要在字符串文字中引用它时，必须对其进行转义（通过使用其中两个转义）。
使用正则表达式-在这方面更有用。感谢您下次对此进行研究，现在只需在其中添加一条语句即可。