Contoh Fungsi Untuk Memvalidasi Email Di ASP

Fungsi berikut digunakan untuk memvalidasi bahwa alamat email sudah benar di ASP.

fungsi revMail (Mail)
'periksa alamat yang valid
'mengembalikan 1 untuk alamat yang tidak valid
'mengembalikan 0 untuk alamat yang valid
redup di Cnt
revMail = 0

'panjang chk
jika len (Surat) <5 maka
' [email protected] harus alamat sesingkat mungkin
revMail = 1

'cek format'
'periksa apakah ada @
elseif instr (Mail, "@") = 0 maka
revMail = 1

'periksa apakah ada.
elseif instr (Mail, ".") = 0 maka
revMail = 1

'periksa apakah tidak lebih dari tiga karakter setelah.
elseif len (Mail) - instrrev (Mail, ".")> 4 lalu
revMail = 1

'yang tidak memiliki _ setelah @
'elseif instr (Mail, "_") <> 0 dan _
'instrrev (Mail, "_")> instrrev (Mail, "@") lalu
'revMail = 1

lain
'yang hanya memiliki satu @
atCnt = 0
untuk i = 1 sampai len (Mail)
jika pertengahan (Mail, i, 1) = "@" maka
atCnt = atCnt + 1
berakhir jika
lanjut

jika atCnt> 1 maka
revMail = 1
berakhir jika

'periksa karakter demi karakter
untuk i = 1 sampai len (Mail)
jika tidak isumerik (pertengahan (Mail, i, 1)) dan _

(lcase (pertengahan (Mail, i, 1)) lcase (pertengahan (Mail, i, 1))> "z") dan _
pertengahan (Mail, i, 1) <> "_" dan _
pertengahan (Mail, i, 1) <> "." dan _
pertengahan (Mail, i, 1) <> "@" dan _
pertengahan (Mail, i, 1) <> "-" lalu
revMail = 1
berakhir jika
lanjut
berakhir jika
fungsi akhir
%>