Dim RegEx
Set RegEx = New regexp
RegEx.Pattern = "[0-9]"
RegEx.Global = True
RegEx.IgnoreCase = True
if RegEx.Test(pass1) = FALSE then
errmsg = errmsg & "<li>您設定的密碼必包含數字!</li>"
end if
Set RegEx = New regexp
RegEx.Pattern = "[a-z]"
RegEx.Global = True
RegEx.IgnoreCase = True
if RegEx.Test(pass1) = FALSE then
errmsg = errmsg & "<li>您設定的密碼必包含英文母!</li>"
end if
Set RegEx = NOTHING