いくつかの優れたフォーム検証関数があります。「*************************************」を参照してください。 *****
'英語と数字だけが含まれているかどうかを確認する
「************************************
関数 IsvalidValue(ArrayN, Str)
IsvalidValue = False
ディムGネーム
ArrayN 内の各 GName について
Str = GName の場合
IsvalidValue = True
出口
終了の場合
次
終了機能
「************************************
'有効な番号かどうかを確認する
「************************************
関数 IsInteger(Para)
IsInteger = False
そうでない場合 (IsNull(Para) または Trim(Para) = または IsNumeric(Para))
IsInteger = True
終了の場合
終了機能
「************************************
'ユーザー名の検出
「************************************
関数 IsValidUserName(byVal UserName)
薄暗いi、c
DimVUserName
IsValidUserName = True
For i = 1 To Len(ユーザー名)
c = LCase(Mid(ユーザー名, i, 1))
If InStr($!<>?#^%@~`&*();:+=' , c) > 0 then
IsValidUserName = False
終了関数
終了の場合
次
Register_UserName の各 VUserName について
UserName = VUserName の場合
IsValidUserName = False
出口
終了の場合
次
終了機能
「************************************
'有効なメールアドレスがあるか確認してください
「************************************
関数 IsValidEmail(電子メール)
薄暗い名前、名前、i、c
IsValidEmail = True
名前 = Split(電子メール、@)
If UBound(names) <> 1 then
IsValidEmail = False
終了関数
終了の場合
それぞれの名前 IN 名について
Len(名前) <= 0 の場合
IsValidEmail = False
終了関数
終了の場合
For i = 1 To Len(名前)
c = LCase(Mid(名前, i, 1))
InStr(abcdefghijklmnopqrstuvwxyz_-., c) <= 0 かつ IsNumeric(c) でない場合
IsValidEmail = False
終了関数
終了の場合
次
Left(名前, 1) = または Right(名前, 1) = の場合
IsValidEmail = False
終了関数
終了の場合
次
InStr(names(1), .) <= 0 の場合
IsValidEmail = False
終了関数
終了の場合
i = Len(names(1)) - InStrRev(names(1), .)
If i <> 2 And i <> 3 then
IsValidEmail = False
終了関数
終了の場合
InStr(email, ..) > 0 の場合
IsValidEmail = False
終了の場合
終了機能