代码编写问题~！

[kbrw]

技术信息（用于支持人员）

错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'IsValidEmail'
/asd/reg.asp, 第 21 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

我的语句是这样写的，请问错在何处？
〈%if request.Form("namer")="" then
errmsg=errmsg+"<br>"+"<li>您输入的姓名不能为空。"
else
namer=trim(request.Form("namer"))
end if%〉

[bzscs]

错误是因为没有IsValidEmail这个函数，而你又进行了调用

[777dragon]

?_?

〈% %〉 ----> <% %>


不会是因为这个吧~~

[kbrw]

应该怎么用呢

[kbrw]

要是想判断用户输入的是不是EMAIL的地址，用VBSCRIPT应该怎么写呢~！

[777dragon]

IsValidEmail?? 动网的拿过来用下?_?



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

[lienzhu]

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

[msdner]

参考动网的。

[lienzhu]

呵呵，贴重复了，那就再贴一个javascript吧！
function emailCheck(email)
{
txt=email.toLowerCase();
if (txt.length==0)
return false
if (txt.charAt(0)=="."||txt.charAt(0)=="@"||txt.indexOf('@', 0) ==-1||txt.indexOf('.', 0)==-1||txt.lastIndexOf("@")==txt.length-1||txt.lastIndexOf(".")==txt.length-1)
return false;
if ((txt.indexOf(".com")<5)&&(txt.indexOf(".org")<5)&&(txt.indexOf(".gov")<5)&&(txt.indexOf(".net")<5)&&(txt.indexOf(".mil")<5))
return false;
return true;
}