多くの検証メールは js クライアントで検証されますが、ASP を使用してサーバー上で検証すれば問題ありません。次のようにコードをコピーします。
「************************************************
'関数名: IsValidEmail
'機能: メールアドレスの有効性を確認します
'パラメータ: email ----確認するメールアドレス
'戻り値: True ----電子メール アドレスは有効です
' False ----電子メール アドレスが不正です
「************************************************
パブリック関数 IsValidEmail(電子メール)
薄暗い名前、名前、I、C
IsValidEmail = True
names = Split(電子メール、@)
UBound(names) <> 1 の場合、IsValidEmail = False: 関数を終了します
名前ごとに
Len(名前) <= 0 の場合、IsValidEmail = False:関数を終了
For I = 1 To Len(名前)
c = LCase(Mid(名前, I, 1))
InStr(abcdefghijklmnopqrstuvwxyz_-., c) <= 0かつIsNumeric(c)でない場合、IsValidEmail = False:関数を終了
次
Left(name, 1) = または Right(name, 1) = の場合、IsValidEmail = False:関数を終了します。
次
If InStr(names(1), .) <= 0 then IsValidEmail = False:Exit Function
I = Len(names(1)) - InStrRev(names(1), .)
I <> 2 かつ I <> 3 の場合、IsValidEmail = False:関数を終了
InStr(Email, ..) > 0 の場合、IsValidEmail = False
終了機能