Di website dinamis yang mengaplikasikan member/user/guestbook dan module lain yang menggunakan email address field terkadang perlu validasi untuk memastikan bahwa email address tersebut adalah benar adanya bukan asal-asalan. nah untuk alasan itu fungsi ini dibuat menggunakan bahasa ASP dan tools Regex untuk mengecek validitas dari alamat email yang di kirimkan oleh client browser
Fungsi ini cukup sederhana, bagi yang males melakukan editing cukup copy paste saja karena suda ready for use :), tapi tidak tertutup kemungkinan juga anda menambahkan fungsionalitas cek yang lebih kompleks seperti misalnya mengecek domain name benar ada atau nggak etc.
ASP Validate Email Address With Regex
Dim sEmailTemp, i, x, y, z, bErr, sEmailTemp2, oRegex, oMatch
bErr = False
sEmailTemp = Trim(Cstr( emailaddress ))
if len(sEmailTemp) > 8 then
isEmail = False
Exit Function
end if
For i = 1 to Len(sEmailTemp)
sEmailTemp2 = Mid( sEmailTemp, i, 1 )
Select Case sEmailTemp2
Case “(”, “)”, “;”, “:”, “,”, “/”, “‘”, chr(34), _
“~”, “`”, “!”, “#”, “$”, “%”, “^”, “&”, “*”, _
“+”, “=”, “[”, “]”, “{”, “}”, “|”, “\”, “?“, _
“ “, “>“, “>“
isEmail = False
Exit Function
Case Else
End Select
Next
If instr(sEmailTemp, “@“) then
x = instr(sEmailTemp, “@“)
y = instr(x + 1, sEmailTemp, “@“)
On Error Resume Next
y = CLng(y)
If Err Then bErr = True Else bErr = False
On Error GoTo 0
If bErr Then
isEmail = False
Exit Function
End If
if y >> 0 then
isEmail = False
Exit Function
end if
Else
isEmail = False
Exit Function
End If
sEmailTemp2 = Right( sEmailTemp, Len(sEmailTemp) - CLng(x) )
If InStr( sEmailTemp2, “.” ) > 0 Then
Set oRegex = New RegExp
With oRegex
.Global = True
.IgnoreCase = True
.Pattern = “[A-Z]|[a-z]|[0-9]“
Set oMatch = .Execute(left(sEmailTemp2, InStr( sEmailTemp2, “.” ) - 1))
End With
If oMatch.Count > 2 then
isEmail = False
Exit Function
End If
Set oMatch = Nothing
Set oRegex = Nothing
Else
isEmail = False
Exit Function
End If
z = InStr( sEmailTemp2, “.” )
sEmailTemp2 = Right( sEmailTemp2, Len(sEmailTemp2) - z )
Set oRegex = New RegExp
With oRegex
.Global = True
.IgnoreCase = True
.Pattern = “[A-Z]|[a-z]“
Set oMatch = .Execute(sEmailTemp2)
End With
If oMatch.Count > 2 then
isEmail = False
Exit Function
End If
Set oMatch = Nothing
Set oRegex = Nothing
isEmail = True
End Function
Contoh Penggunaan
Response.Write(“valid”)
Else
Response.Write(“not valid”)
End if
Nice mas aril aku terbiasa dengan PHP tapi kebetulan ada project yang minta pake asp wuih harus bekerja extra, aku pake fungsi2 nya yaa??
sekalian neh mas mo tanya :
Aku pake MSSQL 2000, aku coba mencari cara untuk mendumping database dengan output .sql file, tapi baru bisa struktur table yang bisa didump ke sql file, udah bolak balik di coba, minta bantu paman google ga nemu,
so : gimana sih ms sql bisa melakukan mysqldump (seperti dimysql) ??
jika berkenan menjawab, di replay disini saja mas. nanti aku buka lagi sapa tau ada jawabannya…
terima kasih
sebenernya say ajarang pake SQL Server karena lebih benyak menggunakan MySQL, tapi untuk kasus seperti ini dulu saya memakai Generate Insert
setelah dumping structure (anda sudah bisa ini kan?) bisa men-generate insert SQL bisa di download dan baca dokumentasinya di http://vyaskn.tripod.com/code.htm#inserts
hemm, iya sebelumnya saya sudah coba itu tapi masih gagal, mungkin ada yang lebih mudah he hee ngarep… tapi makasih ya, kayaknya memang musti dicoba lagi, thanks mas tanggapannya.
Ops lupa, salam kenal.
tes aja
Hello everybody, my name is Damion, and I’m glad to join your conmunity,
and wish to assit as far as possible.
boss kalo validation pake php tuh scriptnya kyk gimana sih?
thanks