28,408
社区成员
发帖
与我相关
我的任务
分享判断用户输入的是否为email地址的代码问题！
<%if IsValidEmail(trim(request.form("Email")))=false then
errmsg=errmsg+"<br>"+"<li>您输入的Email地址有错误。"
else
Email=trim(request.form("Email"))
end if%>
浏览器显示的显示的错误信息：
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'IsValidEmail'
/asd/reg.asp, 第 21 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
errmsg=errmsg+"<br>"+"<li>您输入的Email地址有错误。"
else
Email=trim(request.form("Email"))
end if%>
浏览器显示的显示的错误信息：
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'IsValidEmail'
/asd/reg.asp, 第 21 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
...全文
请发表友善的回复…
发表回复
hong3348 2004-11-26
- 打赏
- 举报
<%
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
%>
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
%>
777dragon 2004-11-26
- 打赏
- 举报
我倒~ 好象~写错~ sorry~
777dragon 2004-11-26
- 打赏
- 举报
<%
if IsValidEmail(trim(request.form("Email")))=false then
errmsg=errmsg+"<br>"+"<li>您输入的Email地址有错误。"
Response.End
else
Email=trim(request.form("Email"))
end if
%>
if IsValidEmail(trim(request.form("Email")))=false then
errmsg=errmsg+"<br>"+"<li>您输入的Email地址有错误。"
Response.End
else
Email=trim(request.form("Email"))
end if
%>
笨笨兔兔兔兔兔 2004-11-26
- 打赏
- 举报
你用正则判断吧
kbrw 2004-11-26
- 打赏
- 举报
怎么没人里，帮帮忙~！
