Ada beberapa fungsi validasi formulir yang bagus, Anda dapat merujuk ke '**************************************** *****
'Periksa apakah hanya berisi bahasa Inggris dan angka
'***************************************
Fungsi IsvalidValue(ArrayN, Str)
Nilai Isvalid = Salah
Redupkan GName
Untuk Setiap GName di ArrayN
Jika Str = GName Lalu
Nilai Isvalid = Benar
Keluar Untuk
Akhiri Jika
Berikutnya
Fungsi Akhir
'***************************************
'Periksa apakah nomornya valid
'***************************************
Fungsi AdalahBilangan Bulat(Para)
IsInteger = Salah
Jika Bukan (IsNull(Para) Atau Trim(Para) = Atau Bukan IsNumeric(Para)) Maka
IsInteger = Benar
Akhiri Jika
Fungsi Akhir
'***************************************
'Deteksi nama pengguna
'***************************************
Fungsi IsValidUserName (olehVal UserName)
Redupkan aku, c
DimVUserName
IsValidUserName = Benar
Untuk i = 1 Ke Len(Nama Pengguna)
c = LCase(Tengah(Nama Pengguna, i, 1))
Jika InStr($!<>?#^%@~`&*();:+=' , c) > 0 Lalu
IsValidUserName = Salah
Fungsi Keluar
Akhiri Jika
Berikutnya
Untuk Setiap VUserName di Register_UserName
Jika Nama Pengguna = VUserName Lalu
IsValidUserName = Salah
Keluar Untuk
Akhiri Jika
Berikutnya
Fungsi Akhir
'***************************************
'Periksa apakah ada alamat email yang valid
'***************************************
Fungsi IsValidEmail(Email)
Nama redup, Nama, i, c
IsValidEmail = Benar
Nama = Pisahkan(email, @)
Jika UBound(nama) <> 1 Lalu
IsValidEmail = Salah
Fungsi Keluar
Akhiri Jika
Untuk Setiap Nama DALAM nama
Jika Len(Nama) <= 0 Maka
IsValidEmail = Salah
Fungsi Keluar
Akhiri Jika
Untuk i = 1 Ke Len(Nama)
c = LCase(Tengah(Nama, i, 1))
Jika InStr(abcdefghijklmnopqrstuvwxyz_-., c) <= 0 Dan Bukan IsNumeric(c) Maka
IsValidEmail = Salah
Fungsi Keluar
Akhiri Jika
Berikutnya
Jika Kiri(Nama, 1) = . Atau Kanan(Nama, 1) = Maka
IsValidEmail = Salah
Fungsi Keluar
Akhiri Jika
Berikutnya
Jika InStr(nama(1), .) <= 0 Maka
IsValidEmail = Salah
Fungsi Keluar
Akhiri Jika
i = Len(nama(1)) - InStrRev(nama(1), .)
Jika i <> 2 Dan i <> 3 Maka
IsValidEmail = Salah
Fungsi Keluar
Akhiri Jika
Jika InStr(email, ..) > 0 Lalu
IsValidEmail = Salah
Akhiri Jika
Fungsi Akhir