利用W3 JMAIL组件收POP3邮件-ASP编程-idc中文资讯站-客观公证的IDC产业权威媒体,关注域名、虚拟主机、服务器、网络、开源技术资讯，整合运营商资源，客观评价各地机房带宽线路质量、IDC企业名录等信息

利用W3 JMAIL组件收POP3邮件

来源：作者：发布时间:2007-11-09 05:14:02

<% @LANGUAGE=VBSCRIPT %>
<%

dim startpage
dim endpage
startpage=int(request("start"))
endpage=int(request("end"))

Set pop3 = Server.CreateObject( "JMail.POP3" )

uid=trim(request("uid"))
pwd=trim(request("pwd"))
pop=trim(request("pop"))

if uid="" or pwd="" or pop="" then
response.redirect "receivemail.asp"
end if

if uid<>"" and pwd<>"" and pop<>"" then
response.cookies("uid")=trim(request("uid"))
response.cookies("pwd")=trim(request("pwd"))
response.cookies("pop")=trim(request("pop"))
else
uid=request.cookies("uid")
pwd=request.cookies("pwd")
pop=request.cookies("pop")
end if
pop3.Connect uid, pwd,pop

’pop3.Connect "agang0084", "921028", "pop3.sina.com.cn"
response.write "

"
Response.Write( "您的收件箱有 " & pop3.count & " 封邮件

" )
response.write "

"

’计算页数
pagenum=10 ’一页共存几条记录
if pop3.count pagecount=1
else
intcount=int(pop3.count/pagenum)
modcount=pop3.count mod pagenum
if modcount>0 then
pagecount=intcount+1 ’假如总记录除以一页可存放的记录数有余数则页数必须加以一
else
pagecount=intcount
end if
end if

response.write ("您的邮件共有"&pagecount&"页     ")

’计算页码

page=trim(request("page"))
if page<>"" then
select case page
case "firstpage"
startpage=1
endpage=pagenum
case "lastpage"
startpage=(pagecount-1)*pagenum+1
endpage=pop3.count
case "next"
if endpage+10 > pop3.count then
startpage=(pagecount-1)*pagenum+1
endpage=pop3.count
else
startpage=startpage+10
endpage=endpage+10
end if
case "back"
if startpage=pagenum+1 then
startpage=1
endpage=pagenum
else
startpage=startpage-10
endpage=endpage-10
end if
end select
else
if pop3.count startpage=1
endpage=pop3.count
else
startpage=1
endpage=pagenum
end if
end if

if pop3.count > 0 then
dim msg(20)
dim Attachments(20)
for i=1 to pop3.count
Set msg(i) = pop3.Messages.item(i)
Set Attachments(i) = msg(i).Attachments
next
%>
<%
if startpage=1 then
response.write "第一页     "
else
response.write "第一页     "
end if

if endpage=pop3.count then
response.write "下一页     "
else
response.write "下一页     "
end if

if startpage=1 then
response.write "上一页     "
else
response.write "上一页     "
end if

if endpage=pop3.count then
response.write "最后一页     "
else
response.write "最后一页     "
end if

response.write "当前记录是从第"
response.write startpage
response.write "封到"
response.write endpage
response.write "封的信件"
response.write "
"
response.write "
"
%>

<% for i=startpage to endpage %>

<% next
%>

主题：	<%= msg(i).Subject %>	删除
发件人：	<%= msg(i).From %> 点击地址回复信件
附件个数：	<%= Attachments(i).count %> 接收附件
正文：	<%= msg(i).Body %>