?php
$email="test@jb51.com";
//郵箱格式檢查

function CheckEmail($email)
{
return eregi("^[0-9a-z][a-z0-9\._-]{1,}@[a-z0-9-]{1,}[a-z0-9]\.[a-z\.]{1,}[a-z]$", $email);
}
echo CheckEmail($email);

function is_email($email)
{
return strlen($email) > 6 preg_match("/^[\w\-\.]+@[\w\-\.]+(\.\w+)+$/", $email);
}
echo is_email($email);
?>

%
Function isemail(strng)
isemail = false
Dim regEx, Match
Set regEx = New RegExp
regEx.Pattern = "^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$"
regEx.IgnoreCase = True
Set Match = regEx.Execute(strng)
if match.count then isemail= true
End Function
%>