| Berikut ini adalah fragmen kode: <% 'Tentukan apakah email sudah benar Fungsi isvalidemail (email) Nama redup, nama, i, c IsValidemail = true nama = split (email, "@") Jika ubound (nama) <> 1 lalu IsValidemail = false Fungsi keluar Akhiri jika Untuk setiap nama dalam nama Jika len (nama) <= 0 lalu IsValidemail = false Fungsi keluar Akhiri jika Untuk i = 1 ke len (nama) C = lcase (mid, i, 1)) If instr ("abcdefghijklmnopqrstuvwxyz_-.", C) <= 0 dan bukan isnumeric (c) kemudian IsValidemail = false Fungsi keluar Akhiri jika Berikutnya Jika kiri (nama, 1) = "." Atau kanan (nama, 1) = " IsValidemail = false Fungsi keluar Akhiri jika Berikutnya If instr (names (1), ".") <= 0 lalu IsValidemail = false Fungsi keluar Akhiri jika i = len (nama (1)) -instrrev (nama (1), ".") Jika saya <> 2 dan saya <> 3 maka IsValidemail = false Fungsi keluar Akhiri jika If instr (email, "..")> 0 lalu IsValidemail = false Akhiri jika Fungsi akhir %> |