ASPで電子メールを検証するための関数例

次の関数は、ASPで電子メールアドレスが正しいことを検証するために使用されます。

関数revMail（メール）
'有効なアドレスを確認してください
'無効なアドレスの場合は1を返します
'有効なアドレスの場合は0を返します
薄暗いatCnt
revMail = 0

'chkの長さ
len（メール）<5の場合
' [email protected] 可能な限り最短のアドレスである必要があります
revMail = 1

'フォーマットを確認してください
'@があることを確認します
elseif instr（Mail、 "@"）= 0 then
revMail = 1

'があることを確認します。
elseif instr（Mail、 "。"）= 0 then
revMail = 1

'の後に3文字以内であることを確認してください。
elseif len（Mail）-instrrev（Mail、 "。"）> 4 then
revMail = 1

'@の後に_がない
'elseif instr（Mail、 "_"）<> 0および_
'instrrev（Mail、 "_"）> instrrev（Mail、 "@"）then
'revMail = 1

そうしないと
'@が1つしかない
atCnt = 0
for i = 1 to len（メール）
mid（Mail、i、1）= "@"の場合、
atCnt = atCnt + 1
終了する場合
次

atCnt> 1の場合、
revMail = 1
終了する場合

'文字ごとにチェック
for i = 1 to len（メール）
数値でない場合（mid（Mail、i、1））および_
（lcase（mid（Mail、i、1）） lcase（mid（Mail、i、1））> "z"）および_
mid（Mail、i、1）<> "_"および_
mid（Mail、i、1）<> "。" および_
mid（Mail、i、1）<> "@"および_
mid（Mail、i、1）<> "-" then
revMail = 1
終了する場合
次
終了する場合
終了機能
%>