 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% @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 "<div align=center>" Response.Write( "您的收件箱有 <font color=red>" & pop3.count & "</font> 封邮件<br><br>" ) response.write "</div>" \\\'计算页数 pagenum=10 \\\'一页共存几条记录 if pop3.count<pagenum then 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<pagenum then 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 "<a href=pop3.asp?page=firstpage&start="&startpage&"&end="&endpage&">第一页</a> " end if if endpage=pop3.count then response.write "下一页 " else response.write "<a href=pop3.asp?page=next&start="&startpage&"&end="&endpage&">下一页</a> " end if if startpage=1 then response.write "上一页 " else response.write "<a href=pop3.asp?page=back&start="&startpage&"&end="&endpage&">上一页</a> " end if if endpage=pop3.count then response.write "最后一页 " else response.write "<a href=pop3.asp?page=lastpage&start="&startpage&"&end="&endpage&">最后一页</a> " end if response.write "当前记录是从第" response.write startpage response.write "封到" response.write endpage response.write "封的信件" response.write "<br>" response.write "<br>" %> <html> <link rel="stylesheet" href="../../css/css.css" type="text/css"> <body bgcolor="eeeeee"> <TABLE width="100%" cellpadding="0" cellspacing="0" border="1" bordercolor="#eeeeee"> <% for i=startpage to endpage %> <tr> <td width="11%" bordercolor="#333333">主题：</td> <td width="77%" bordercolor="#333333"> <%= msg(i).Subject %></td> <td width="12%" bordercolor="#333333"> <div align="center"><a href="../deletemail.asp?messageid=<%=i%>">删除</a></div> </td> </tr> <tr> <td width="11%" bordercolor="#333333">发件人：</td> <td colspan="2" bordercolor="#333333"> <a href="test_SENDMAIL.asp?mailto=<%=msg(i).from%>"><%= msg(i).From %></a> <font color="#FF0000">点击地址回复信件</font></td> </tr> <tr> <td width="11%" bordercolor="#333333">附件个数：</td> <td colspan="2" bordercolor="#333333"> <%= Attachments(i).count %> <font color="#FF0000">接收附件</font></td> </tr> <tr> <td width="11%" bordercolor="#333333">正文：</td> <td colspan="2" bordercolor="#333333"> <%= msg(i).Body %></td> </tr> <tr> <td colspan="3"> </td> </tr> <% next %> </TABLE> </body> </html> <% end if pop3.Disconnect %> 返回类别: 教程 上一教程: 一个免费的邮件列表源程序(二) 下一教程: ASP组件初级入门与精通系列之四 您可以阅读与"利用W3 JMAIL组件收POP3邮件"相关的教程: · 利用ASP+JMAIL进行邮件群发的新思路 · 利用JMAIL.MESSAGE发送邮件 · ASP用JMail、CDO发送邮件 · 利用CDONTS发送邮件的ASP函数 · W3 JMAIL 使用范例 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
