议题提交：haicao [E.S.T]
信息来源：邪恶八进制信息安全团队

奇怪，数据库字段为空时instr(rs("email"),"@")竟然也返回空，大家有没碰过发送email 这样的情况，数据库字段为空时，竟然不能识别email是不是合法地址了？？大家赶紧帮忙！！

<%sub updatepass(writeFlag)
  dim rs,pass,strsql
  set rs=server.createobject("adodb.recordset")
  strsql="select * from Member"
  rs.open strsql,conn,1,3
while not rs.eof
  pass=Generator(8)
  email=""
  email=rs("email")
  response.write "当前email="&email&instr(email,"@")
  rs("pwd")=pass
  rs.update
  errmsg=""
  succFlag=false
  if instr(email,"@")=0 then
  succFlag=false &#39;说明发送失败
  errmsg="<font color=ff0000>Email地址格式有误!</font>"
  else
  succFlag=true
  errmsg="发送成功"
  end if
  response.write errmsg
  rs.movenext
  response.write "<br>"
wend
rs.close
end sub
%>

emil字段内容为null
所有的比较之类无论内容，全法将返回false，将以上代码中的判断修改为：
if instr(email,"@") > 0 then
  succFlag=true
  errmsg="发送成功"
else
  succFlag=false &#39;说明发送失败
  errmsg="<font color=ff0000>Email地址格式有误!</font>"
end if
即可。

二楼说的很对.
下午我想了另一种方法也可行就是拿来和汉字比较.
if email>"中国" then
错啦!
else
正常的英文字串组合的email地址
end if

if email>"中国" then


？？？？？？？？？？？？？？？？？？？？


都不知道你要干什么？


用正则检测邮件的方法：

Function CheckExp(mail)
dim regEx,Matches
Set regEx = New RegExp
regEx.Pattern = "(\w)+[@]{1}(\w)+[.]{1}(\w)+"
regEx.IgnoreCase = true
regEx.Global = True
Matches = regEx.test(mail)
CheckExp = matches
End Function

我的意思是null会大于汉字其它的都会小于。
就用这段代码最好了。
if instr(email,"@") > 0 then
succFlag=true
errmsg="发送成功"
else
succFlag=false &#39;说明发送失败
errmsg="<font color=ff0000>Email地址格式有误!</font>"
end if
原先我没想到这个。
和汉字比较是我昨天想到的，确实也可以用。
null调用CheckExp函数会出错。。。
两个结合起来最好了。

汉字的比较也不是这样的阿