<% @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 %>
<%
end if
pop3.Disconnect
%>