台灣最大程式設計社群網站
線上人數
678
 
會員總數:245785
討論主題:189420
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 驗證 Email 格式
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
驗證 Email 格式
價值 : 0 QP  點閱數:856 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
請參考
Function chkmail(mail_address)
a=instr(theForm.email.value,"@")
b=instr(theForm.email.value,".")-a
if a<2 or b<3 then
chkmail=0
else
chkmail=1
end if
end function

===================================================

回應者: 版工--阿進

**********
這是之前看到的驗證 Email 格式正不正確
可是忘記來源@@"~
請參考
**********
<HTML>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<meta http-equiv="Content-Language" content="zh-tw">
<title>檢核e-mail是否正確</title>
</head>
<script language="Vbscript">
<!--

function isemail(theEmail)
if instr(theEmail,"@") > 2 then
if len(theEmail)-instr(theEmail,"@") > 6 then
if instr(instr(theEmail,"@"),theEmail,".")>0 then
if len(theEmail)-instr(instr(theEmail,"@"),theEmail,".") >= 2 then
YesorNo=true
else
YesorNo=false
end if
else
YesorNo=false
end if
else
YesorNo=false
end if
else
YesorNo=false
end if
if YesorNo=true then
isemail=true
else
isemail=false
end if
end function

sub go1()
if mailvalue.value="" then
msgbox "您未填e-mail資料"
else
if isemail(mailvalue.value) then
' msgbox "資料正確"
message.innerhtml="<h2>資料正確</h2>"
else
msgbox "e-mail資料好像錯了哦!"
end if
end if
end sub

//-->
</script>
<body bgcolor="#ffffcc">

<div align="center">
<table border="0" cellspacing="0" width="100%" bgcolor="#99CCFF">
<caption>檢核e-mail是否正確</caption>
<tr><td width="100%" bgcolor="#99CCFF">
<div align="center">
<table border="0" cellspacing="1" width="100%" bgcolor="#3399FF" height="1">
<tr><td bgcolor="#EAF4FF" height="1">
<div align="center">
<table border="0" width="100%" height="6">
<tr><td bgcolor="#9ED0FA" width="100%" height="2">
<center><p align="center"><font size="4">很多人會不小心打錯了 e-Mail的資料</font></p></center>
</td></tr>
</table>
</div>
</td></tr>
</table>
</div>
</td></tr>
<tr><td width="100%" bgcolor="#ffFF00">
<div align="center">
<table border="0" cellspacing="1" width="100%" bgcolor="#3388FF">
<tr><td width="100%" bgcolor="#EAF4FF" height="1">
<div align="center">
<table border="0" width="100%" height="24" bgcolor="#FFFFFF">
<tr><td bgcolor="#FFFFFF" width="100%" height="14" valign="top">
<div align="left">
請輸入e-mail:<input type="text" name="mailvalue" value="" size="40">
<input type=button name="b2" value="檢核資料是否正確" onclick="go1()">
<hr>
<div id="message"></div>
</div>
<div id="inputarea">
</div>
</table>
</div>
</td></tr>
</table>
</center>
</div>
<tr><td width="100%" bgcolor="#ffffff">

</table>
</div>
<center>
</center>
</body>
</html>
 

================================================================================
回應者: vincent

Function CheckEMail(strEmailAddress)
Dim strResult
Set strResult = new RegExp
strResult.pattern = "^[a-zA-Z][A-Za-z0-9_.-]+@[a-zA-Z0-9_]+?\.[a-zA-Z]{2,3}$"
CheckEMail=strResult.Test(strEmailAddress)
End Function

回傳True or False代表驗證結果......
=========================================================
回應者: Ananymous

function checkmail(myEmail) {
if (/^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,3})+$/.test(myEmail.value)){
return (true)
}
alert("E-mail格式不正確")
return (false)
}


本篇文章發表於2002-06-06 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.