if InStr(text1.value,"@") = 0 then
MsgBox"E-mail中需要包含‘@’字符!",64,"Oh no!"
end if其中text1为要填写的文本框!
MsgBox"E-mail中需要包含‘@’字符!",64,"Oh no!"
end if其中text1为要填写的文本框!
解决方案 »
- QQ邮箱收件人跟网易邮箱收件人的选择效果怎么实现?
- 如何实现鼠标点击页面中的任意标签,alert该标签的名称.(注意兼容性)
- 求一个关于百度实现搜索的javascript代码问题(急!)
- 如何实现横向导航菜单图片点击变换
- ymPrompt消息提示组件
- 文本域中内容选中之后怎样实现取消选中
- 只用html+javascript能制作统计图吗?
- js浏览器兼容问题
- 关于响应页面!!!
- 有没有前端大神 解释一下 jquery datatable function里面的 a, b, c, d 是怎么赋值的
- 请问问题1、用flash做了一个LOGO怎么样给它加上超链接;2、我在登录FTP时无意...
- 表格的单元格问题。
function IsValidEmail(email)
dim names, name, i, c
'Check for valid syntax in an email address.
IsValidEmail = true
names = Split(email, "@")
if UBound(names) <> 1 then
IsValidEmail = false
exit function
end if
for each name in names
if Len(name) <= 0 then
IsValidEmail = false
exit function
end if
for i = 1 to Len(name)
c = Lcase(Mid(name, i, 1))
if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
IsValidEmail = false
exit function
end if
next
if Left(name, 1) = "." or Right(name, 1) = "." then
IsValidEmail = false
exit function
end if
next
if InStr(names(1), ".") <= 0 then
IsValidEmail = false
exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
IsValidEmail = false
exit function
end if
if InStr(email, "..") > 0 then
IsValidEmail = false
end if
end function
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
</HEAD>
<!--用一个判断语句,如果“e-mail”为空就不执行那段函数就可以了阿!
/……/表示一个锚,^表示开始,$是结尾\w是所有字符()是一个实体 \. 转移“.” | 可以理解为“or”其他的自己看着办了!
-->
<BODY>
<script>
function checkEmail(){
var emailPattern = /^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$/;
if (emailPattern.test(emails.value)==false)
alert("非法的Email地址!")
else
alert("正确的Email地址!")
}
</script>
<input id=emails><input type=button value=CheckEmail onclick=checkEmail()>
</BODY>
</HTML>