附件readmail.asp

<%@ LANGUAGE = "VBScript" %>
<%
If (Request.ServerVariables ("REQUEST_METHOD") = "POST") then
    Name = Request.Form("name")
    Email = Request.Form("ename")
else
    ' Assume it is GET
    Name = Request.QueryString("name")
    Email = Request.QueryString("email")
end if
If (Email = "") OR (Name = "") then
    Response.Write "You have to supply name and email
"
    Response.End
End If
Set objSession = Server.CreateObject ("CDONTS.Session")
objSession.LogonSMTP Name, Email
Set objInbox = objSession.GetDefaultFolder(1)
If objInbox Is Nothing Then
    Set collMessages = Nothing
    Response.Write "Can't get folder.
"
    objSession.Logoff
    Response.End
End If
Set collMessages = objInbox.Messages
If (collMessages.Count = 0) Then
    Response.Write    " User "    & Name & "" & _
        " (email:    " & Email & ") does not have messages"
    Response.End
    objSession.Logoff
end if
Response.Write    " User "    & Name & "" & _