Checking valid email function
Đọc bài viết
Cỡ chữ
Function RegExpTest(sEmail)
RegExpTest = false
Dim regEx, retVal
Set regEx = New RegExp
' Create regular expression:
regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$"
' Set pattern:
regEx.IgnoreCase = true
' Set case sensitivity.
retVal = regEx.Test(sEmail)
' Execute the search test.
If not retVal Then
exit function
End If
RegExpTest = true
End Function
Using:
blnValidEmail2 = RegExpTest(MasterUser)
if not blnValidEmail2 then
err_no=err_no+1
err_str=err_str & "<li>Please enter the correct email"
end if
Bình luận
Thu rieng
Chao anh!
Em la Thao Nguyen, sinh vien bao chi TP HCM. Hien em dang thuc hien mot bai viet ve xu huong viet nhat ky online cua hoc sinh TP HCM. Em da tim kiem tren mang rat nhieu ve cac trang blog va dien dan nhung hau nhu rat it tim duoc blog cua hoc sinh pho thong Tp HCM viet nhat ky online. Hoc cung co the cach tim kiem cua em khong duoc hieu qua.
Vi the, em viet thu nay gui den anh mong anh co the gioi thieu cho em mot vai dia chi blog cua hoc sinh pho thong TP HCM hoac dia chi mail cua hoc sinhthuong viet nhat ky. Hoi duong dot vi khong quen da nho va nhung thong tin nay that su quan trong va can trong thoi gian gap nen danh lieu viet mail gui anh. Mong anh giup do.
Thao Nguyen
Mail: guongmatbuoisang@yahoo.com
DT: 0919043720
Blog
Chào bạn, hiện nay dịch vụ yahoo 360o của yahoo đang rất thịnh, bạn có thể tham gia vào một nhóm như thế để tìm kiếm thêm.
Thân ái
toi muon gia nhap nhom!
hi!
chao t dang thu gui do