第ä¸Âç§ÂÃ¥ÂÂæ³Âï¼Â
<%
Function IsValidEmail(Email)
ValidFlag = False
If (Email <> “”) And (InStr(1, Email, “@”) > 0) And (InStr(1, Email, “.”) > 0) Then
atCount = 0
SpecialFlag = False
For atLoop = 1 To Len(Email)
atChr = Mid(Email, atLoop, 1)
If atChr = “@” Then atCount = atCount + 1
If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True
If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True
If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True
If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True
Next
If (atCount = 1) And (SpecialFlag = False) Then
BadFlag = False
tAry1 = Split(Email, “@”)
UserName = tAry1(0)
DomainName = tAry1(1)
If (UserName = “”) Or (DomainName = “”) Then BadFlag = True
If Mid(DomainName, 1, 1) = “.” then BadFlag = True
If Mid(DomainName, Len(DomainName), 1) = “.” then BadFlag = True
ValidFlag = True
‘ æ ¼å¼Âæ£确è¿ÂÃ¥ÂÂTureãÂÂ
End If
End If
If BadFlag = True Then ValidFlag = False
‘ æ ¼å¼Âä¸Âæ£确è¿ÂÃ¥ÂÂFalseãÂÂ
IsValidEmail = ValidFlag
End Function
%>
ÃÂ xml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
ààà第äºÂç§ÂÃ¥ÂÂæ³Âï¼Â
<%
function IsValidEmail(email)
dim names, name, i, c
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
%>
ààà第ä¸Âç§ÂÃ¥ÂÂæ³Âï¼Âç¨ä¸Âé¢è¿Â个å½æ°è¿Âè¡Âå¤æÂÂãÂÂå®Âä¼Âæ£ÂæÂ¥é®件å°åÂÂæ¯å¦å«æÂÂâÂÂ@âÂÂï¼Â以åÂÂâÂÂ.âÂÂæ¯å¦å¨âÂÂ@âÂÂÃ¥ÂÂé¢ï¼Â
function isEmail(pInString)
ÃÂ lAt = False
ÃÂ lDot = false
ÃÂ for x = 2 to len(pInstring)-1
ÃÂ ÃÂ if mid(pInString,x,1) = “@” then lAt = True
ÃÂ ÃÂ ÃÂ if mid(pInString,x,1) = “.” and lAt = True then lDot = True
ÃÂ next
ÃÂ if lAt = True and lDot = True then
ÃÂ ÃÂ isEmail = True
ÃÂ else
ÃÂ ÃÂ isEmail = False
ÃÂ end if
end function
ÃÂ
[1]