| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 710 人关注过本帖
标题:求助 ASP高手请进
只看楼主 加入收藏
caiyakang
Rank: 2
等 级:新手上路
威 望:5
帖 子:2111
专家分:0
注 册:2005-3-24
收藏
得分:0 
以下是引用griefforyou在2005-12-30 10:07:00的发言:
验证email有这没麻烦吗,晕,也不知谁写的

function checkemail(emailstr)
{ returnflag = true;
re=/\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*/g
if(re.test(emailstr))
{
returnflag = true;
}
else
{
alert("邮件格式不正确!");
}
return returnflag;
}
这个算不算简单
反正我也不知道什么意思...会用就可以了.


中国人的财富网:http://www..cn/
2005-12-30 11:07
conn
Rank: 2
等 级:新手上路
威 望:5
帖 子:420
专家分:0
注 册:2005-11-27
收藏
得分:0 

我来个用后台验证的:
也是和楼上一样,用正则写的:
Function IsValidEmail(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^\w+((-\w+)|(\.\w))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True
'执行搜索
IsValidEmail = oRegExp.Test(sInput)
Set oRegExp = Nothing
End Function


我是新手,但我很虚心,对我发的问题请不要取笑,谢谢
2005-12-30 11:23
conn
Rank: 2
等 级:新手上路
威 望:5
帖 子:420
专家分:0
注 册:2005-11-27
收藏
得分:0 
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

我是新手,但我很虚心,对我发的问题请不要取笑,谢谢
2005-12-30 11:31
快速回复:求助 ASP高手请进
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.046779 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved