驗証 Email 格式 #1
'IsValidEmail(字串)
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
end if
end if
if badflag = true then validflag = false
isvalidemail = validflag
end function
function isvalidemail(email) 
function 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 end if end if if badflag = true then validflag = false isvalidemail = validflag end function