利用W3 JMAIL组件收POP3邮件 (转)

利用W3 JMAIL组件收POP3邮件 (转)[@more@]

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 "
"
%>

 

主题：		删除
发件人：	sendmail.asp?mailto=">    点击地址回复信件
附件个数：	接收附件
正文：

 
 
 
 

end if

  pop3.DiSCOnnect

%>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10748419/viewspace-997070/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10748419/viewspace-997070/