28,390
社区成员
发帖
与我相关
我的任务
分享
读取出来
再用ASP统计不行吗?
dim rs,aMCount(),iMType,aMList(),sMail,n,iHave
iMType=-1
set rs = Cn.execute("Select email From list")
do until rs.Eof
sMail = lcase(split(rs(0),"@")(ubound(split(rs(0),"@"))))
iHave = -1
for n = 0 to iMCount
if aMList(n) = sMail then
iHave = n
exit for
end if
next
if -1 = iHave then
iMType = iMType + 1
redim Preserve aMCount(iMType)
redim Preserve aMList(iMType)
aMCount(iMType) = 1
aMList(iMType) = sMail
else
aMCount(iHave) = aMCount(iHave) + 1
end if
rs.movenext
loop
set rs = nothing
select count(*) as emailcount from [user]