附件readmail.asp

<!--
    This sample script uses the CDO for NTS Library to
    read e-mail for a specific user.
    Leon Braginski & Matt Powell (c)
-->
<%@ 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 <BR>"
    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. <br>"
    objSession.Logoff
    Response.End
End If
Set collMessages = objInbox.Messages
If (collMessages.Count = 0) Then
    Response.Write    "<center> User <b>"    & Name & "</b>" & _
        " (email:    <b>" & Email & "</b>) does not have messages"
    Response.End
    objSession.Logoff
end if
Response.Write    "<center> User <b>"    & Name & "</b>" & _