<%@ LANGUAGE="VBSCRIPT" %>

<%

'************************************************

'这个文件列出所有邮件，并把邮件内容显示窗口置为空白窗口

'作者：awayeah

'邮箱：awayeah@163.net

'************************************************

%>

<%

if session("straccount")="" or session("strpassword")="" then

Response.write("

你尚未登录，请先退出登录!

")

Response.Write ("

Response.End

end if

%>

<%

'定义邮件服务器地址

strserver=session("strserver")

'定义帐号

strAccount=session("straccount")

'定义密码

strPassword=session("strpassword")

'设置组件的各种属性

Set POP3 = CreateObject("EasyMail.POP3.5")

POP3.LicenseKey = "awa/S19I500R1AX30C0R3100"

POP3.MailServer = strServer

POP3.Account = strAccount

POP3.Password = strPassword

pop3.PreferredBodyFormat=1

pop3.TimeOut=120

x = POP3.Connect

If x <> 0 Then

Response.Write "

连接错误: " + CStr(x) + "

请和管理员联系"

POP3.Disconnect

Response.End

End If

x = POP3.DownloadMessages(0)

If x <> 0 Then

Response.Write "下载错误: " + CStr(x) +"

请和管理员联系"

POP3.Disconnect

Response.End

End If%>