悠悠博客 关注Ajax技术与web开发

'**********************************************
' 类型：函数
' 目的：判断E-MAIL地址是否正确
' 参数：a_sEmail,待检测的E-Mail地址
' 返回： ture或false
' 作者：cjj
' 时间：2006-6-14
' 版本：v1.0
' 备注：(记录过程或函数的修改说明)
'**********************************************
Function isEmail(ByVal a_sEmail)
Dim sEmail
Dim iPos,i

' 函数默认返回值
isEmail = false
sEmail = Trim(a_sEmail)

If Instr(sEmail,"@") <1 Or Instr(sEmail,".") <1 Then
Exit Function
End If

iPos = Instr(sEmail,"@")

If iPos>=Instr(iPos+1,sEmail,".") Then
Exit Function
End If

'函数返回值
isEmail=true
End Function