用asp程序檢測網(wǎng)站郵箱email是否有效
<%
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 = mid(name, i, 1)
if instr(abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz_-., 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
%>


香港服務(wù)器和美國服務(wù)器應(yīng)該怎么選擇？
北京到太康物流專線
網(wǎng)站流量數(shù)據(jù)統(tǒng)計與分析
購買域名后該怎么辦？
大連到黃岡物流專線
蘇州到滁州物流專線
溫州到三明物流專線
美國云主機建站怎么選高性價比機房？